vb點(diǎn)虐 中如何將多個(gè)單選按鈕設(shè)為一組

添加一個(gè)OPTION控件，復(fù)制-粘貼，建立 控件組

為大箐山等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及大箐山網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站建設(shè)、成都網(wǎng)站制作、大箐山網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

比如復(fù)制6個(gè)

代碼如下

Private Sub Command1_Click()

For i = 0 To 5

If Option1(i).Value = True Then MsgBox Option1(i).Caption "被選中"

Next

End Sub

VB.NET和C#如何等待excel選擇單元格，并返回單元格地址。如圖中，點(diǎn)擊列表區(qū)域的選擇按鈕的效果？

using

Microsoft.Office.Interop.Excel;

using

Excel

=

Microsoft.Office.Interop.Excel;

Excel.Application

myExcel

=

new

Excel.Application();

Excel.Workbook

excelWorkbook

=

null;//一個(gè)Excel文件

Excel.Worksheet

excelSheet

=

null;

myExcel.Application.Workbooks.Open(@"d:\test.xlsx");//你要打開的excel文件路徑

//讓Excel文件可見

myExcel.Visible

=

true;

excelWorkbook

=

myExcel.ActiveWorkbook;//給worksheect對(duì)象添加選擇事件：

workSheet.SelectionChange+=excelSheet_SelectionChange;

excelSheet

=

(Excel.Worksheet)excelWorkbook.ActiveSheet;

//重寫事件邏輯

private

void

excelSheet_SelectionChange(Range

range)

{

MessageBox.Show("you

select

"+Target.Address);

}

VB.NET怎么能點(diǎn)擊一個(gè)按鈕是所有容器中的按鈕全部處于未選中的狀態(tài)

你說的未選中狀態(tài)是指焦點(diǎn)？

只有一個(gè)按鈕能獲得焦點(diǎn)。

你點(diǎn)擊一個(gè)按鈕，那個(gè)按鈕獲得焦點(diǎn)，其他按鈕自然失去焦點(diǎn)。

vb點(diǎn)虐 中,如何點(diǎn)擊按鈕調(diào)出選擇文件窗口選中圖片并在picturebox中顯示出來?

button , OpenFileDialog , PictureBox , textbox 控件，我把圖片顯示在 picturebox 中，而路

徑存放在 textbox 中，不知道這樣行不行。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim filename As String

OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"

OpenFileDialog1.FilterIndex = 1

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

filename = OpenFileDialog1.FileName

Else

End

End If

If Not (PictureBox1.Image Is Nothing) Then

PictureBox1.Image.Dispose()

PictureBox1.Image = Nothing

End If

'PictureBox1.Image = System.Drawing.Image.FromFile(filename)

去掉注釋后就顯示圖片

TextBox1.Text = filename

End Sub

picturebox中只記錄文件存放的路徑，我找了一個(gè) ImageLocation 函數(shù)

PictureBox1.ImageLocation = filename 不過還是會(huì)顯示圖片