重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在项目中右键点击添加窗体。在代码中需要显示该窗体的地方写入如下代码:“form2.show()”form2是你窗体的name属性……
创新互联公司专注于雁江企业网站建设,成都响应式网站建设公司,商城网站开发。雁江网站建设公司,为雁江等地区提供建站服务。全流程按需网站设计,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
我说选把打开多个图片路径加载到一个listbox里,利用listbox写代码
Private Sub picbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ListBox1.SelectedIndex = count Then
Try
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
Catch
ListBox1.SelectedIndex = 0
End Try
End If
picbox.Image = ListBox1.SelectedItem.ToString
End Sub
Dim i As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
If i 3 Then Timer1.Enabled = False : Exit Sub
PictureBox1.ImageLocation = "z:\" i ".png"
End Sub
你的图片名称可以用 1.jpg,2.jpg ...... n.jpg来命名,存放在一个文件夹下,文件夹放在应用程序安装包,或者运行的相对位置。代码就好写了
在事件外public int i;
在事件里面
if(ii)
{
i++; //累加顺序读取
pictureBox1.Image=Image.LoadFile(Application.StartUpPath + "/文件夹名/" + i.ToString() + ".jpg")
}
else
{
i=1; //初始化
}
这样就是按顺序读取图片。
当然折中办法很笨拙,因为图片名称写成数字很别扭,而且后缀也不完全一样,所以我们尽量用查询DB办法或者查找文件办法。数组是很慢的也很老土。把图片名称存在表里面,表里面查到哪个名称就加载那张图片就行了,简单了事,或者给图片在表里安排一列索引,用索引去查名称,加载出来就可以了。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'建立新的系统进程
Dim process As New System.Diagnostics.Process()
If RadioButton1.Checked Then
'设置文件名,此处为图片的真实路径+文件名
process.StartInfo.FileName = "c:\a.bmp"
'设置进程运行参数
process.StartInfo.Arguments = "rundll32.exe shimgvw.dll"
Else
process.StartInfo.FileName = "mspaint.exe"
process.StartInfo.Arguments = "c:\a.bmp"
End If
'此项为是否使用Shell执行程序,因系统默认为true,此项也可不设,但若设置必须为true
'process.StartInfo.UseShellExecute = True
'此处可以更改进程所打开窗体的显示样式,可以不设
'process.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End Sub