vb点虐 弹出选择框 vb弹出框代码
vb点虐 中,如何点击按钮调出选择文件窗口选中图片并在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中只记录文件存放的路径,我找了一个 ImageLocation 函数
PictureBox1.ImageLocation = filename 不过还是会显示图片
VB点虐 怎么弹出如下类似的对话框(看图)?
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现
方法一,利用msgbox:
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二,利用窗体实现:
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
VB点虐 怎么弹出文件夹路径选择框
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ,编辑框里就会显示选择的路径
分享名称:vb点虐 弹出选择框 vb弹出框代码
文章来源:http://myzitong.com/article/ddipjie.html