189 8069 5689
添加一个OPTION控件，复制-粘贴，建立 控件组
为大箐山等地区用户提供了全套网页设计制作服务，及大箐山网站建设行业解决方案。主营业务为网站建设、成都网站制作、大箐山网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub
using
Microsoft.Office.Interop.Excel;
using
Excel
=
Microsoft.Office.Interop.Excel;
Excel.Application
myExcel
=
new
Excel.Application();
Excel.Workbook
excelWorkbook
=
null;//一个Excel文件
Excel.Worksheet
excelSheet
=
null;
myExcel.Application.Workbooks.Open(@"d:\test.xlsx");//你要打开的excel文件路径
//让Excel文件可见
myExcel.Visible
=
true;
excelWorkbook
=
myExcel.ActiveWorkbook;//给worksheect对象添加选择事件：
workSheet.SelectionChange+=excelSheet_SelectionChange;
excelSheet
=
(Excel.Worksheet)excelWorkbook.ActiveSheet;
//重写事件逻辑
private
void
excelSheet_SelectionChange(Range
range)
{
MessageBox.Show("you
select
"+Target.Address);
}
你说的未选中状态是指焦点？
只有一个按钮能获得焦点。
你点击一个按钮，那个按钮获得焦点，其他按钮自然失去焦点。
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中只记录文件存放的路径，我找了一个 ImageLocation 函数
PictureBox1.ImageLocation = filename 不过还是会显示图片