添加一个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 不过还是会显示图片