重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
创新互联从2013年创立,先为惠阳等服务建站,惠阳等地企业,进行企业商务咨询服务。为惠阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub
If CType(Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If