vb.net中,如何点击按钮调出选择文件窗口选中图片并在picturebox中显示出来?
知道图片的路径吧!点击右键看一下就行了,在程序中写
picturebox1.image=image.fromfile(你查看到的那个路径)
1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体,此处设定其名称为OpenDlg和SaveDlg;
2 触发Button的点击事件,或PictureBox的点击事件,其对应的方法
OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式
If OpenDlg.ShowDialog() = DialogResult.OK Then
Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)
EndIf
3 保存图片
If SaveDlg.ShowDialog = DialogResult.OK Then
Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式
EndIf
纯手打,若拼写错误,那是很正常的。还有问题, 请追问。
径存放在 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 不过还是会显示图片
先用OpenFileDialog控件弹出选择文件对话框,用FileName属性得到选择图片的地址,把这个地址如此赋值: Me.PictureBox1.Image = Image.FromFile(刚才得到的地址)
picturebox有个ImageLocation的属性,能实现你的要求.
在VB.net中,如何使几个数组变量按照列表示出来,并输出到指定的EXCEL...
先在: My Project 中引用 Microsoft Excel 11.0 Object Library(这个是Excel 2003,Excel 2007 是12.0),之后在窗体代码中加入相关内容就行了。以下是一个窗体的简单实例 假设在C盘根文件夹中有:TEST.xls Public Class 引用EXCEL窗体 Private A() As String = {"A", "B", "CC", "C", "...
vb。net 中,怎么将byte()中的一部分提起出来
在.net 中有个Array.Copy函数就可以:比如:Dim B() As Byte ReDim B(100)Dim B_All As Byte()B_All = System.IO.File.ReadAllBytes(FileName)Array.Copy(B_All, 0, B, 0, 101)
在vb.net中,如何计算出2000-2100年之间的闰年?输出到文本框,并统计输出...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim leapyears() As Integer = GetLeapYears(2000, 2100)Dim str As String Try Dim count As Integer = UBound(leapyears) + 1 str = "闰年个数:" + count.ToString For i = 0 To UBound(leapyears)...
在vb.net中的tab怎么用
回答:textBox1.Text = "a" & vbTab & "1" & vbLf & "b" & vbTab & "2"
急:vb.net设计的软件中,如何让主窗口置顶?
用SetWindowPos,参数TOP_MOST 就是直接设置窗口的TOPMOST属性也行啊,把默认的false改成true,自己在窗口的属性列表里找找吧
vb.net中如何对结构数组进行new初始化
Dim B() As A={New A(1), New A(2)}有时要初始化很多个的时候可以用循环 Dim c As Integer = 50 Dim B(c) As A For i = 0 To c B(i) = New A(i) Next不过这样是对变量重新赋值,这种方法用在类上比较好。看看这个有帮助哦:http:\/\/msdn.microsoft.com\/zh-cn...
VB.net中 Public Sub New()怎么用。
public class a private mCode as string public sub new() mCode = "123" end sub public sub new(byval code as string) mCode = code end subend class使用这个类的时候 dim HaveA as new a("win")dim HaveB as new a()第一个情况,类中的变量mCode是“123”...
VB.net中如何在代码中设置文本框字体的大小
Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Dim a As FontStyle a = Me.TextBox1.Font.Size Dim b As Single = a * 10 Me.TextBox1.Width = Me.TextBox1.Width * 10 Me.TextBox1.Font = New ...
VB.NET中,如何从textbox中去出有逗号的一串数字,并把每个数字区分开...
str=split(textbox.text,",")a=str(0)b=str(1)...x=str(ubound(str))
vb.net桌面中bitmap类如何直接绘制到屏幕?
可以直接显示的。你看下面的示例,使用vb.net画的齿轮:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickb = New Bitmap(PictureBox1.Width, PictureBox1.Height)g = Graphics.FromImage(b)'g.RotateTransform(90)g.Clear(Color....
养韦抒罗: button , OpenFileDialog , PictureBox , textbox 控件,我把图片显示在 picturebox 中,而路 径存放在 textbox 中,不知道这样行不行. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1....
龙潭区15792305408: vb.net WebBrowser如何点击选择对话框 - ?
养韦抒罗: webbrowser1.Document.Body.All.GetElementsByName("box_45537501")(0).InvokeMember("Click")
龙潭区15792305408: 给VB.NET中按钮设置快捷键? - ?
养韦抒罗: 这个容易啊.把按钮属性的default设为ture就行了.要想快捷键(ESC)就把cancel设为ture.
龙潭区15792305408: VB.NET怎么能点击一个按钮是所有容器中的按钮全部处于未选中的状态 - ?
养韦抒罗: 你说的未选中状态是指焦点?只有一个按钮能获得焦点.你点击一个按钮,那个按钮获得焦点,其他按钮自然失去焦点.
龙潭区15792305408: Vb.Net WebBrowser控件如何单击下拉列表选择框中的项目 - ?
养韦抒罗: InvokeScript的第一个参数是方法名,不带参数不带符号,第二个是参数集合. InvokeScript("ChangeField",{"this.form"}) 以上信息供参考.
龙潭区15792305408: vb.net如何打开ocx - ?
养韦抒罗: 1.单击“工具→选择工具箱项”菜单项,这时会弹出一个名为“选择工具箱项”的对话框.2.单击位于右方的“浏览”按钮或按“Alt+B”键,这时会弹出一个名为“打开”的对话框.3.选择你想要的ocx控件,单击“打开”按钮4.在你所选择的那个列表框项上打勾,按确定按钮
龙潭区15792305408: VB.NET如何使多个button同时处于选中状态 - ?
养韦抒罗: 建议你用RadioButton单选按钮,如果要多选的话,用CheckBox,不要用Button当开关使用,这样符合大多数人的软件使用习惯
龙潭区15792305408: VB.net中CheckListBox如何通过程序做选择. - ?
养韦抒罗: CheckedListBox1.CheckOnClick = True 指示复选项是否应在首次单击时更改状态 CheckListBox.GetItemChecked 返回复选框是否被选中的真假项 要用代码赋是否勾选某项的值应该用setitemchecked
龙潭区15792305408: VB.NET中,如何选中DataGridView某行值,点击button后打开第二个窗体并将值显示在这个窗体的textbox上 - ?
养韦抒罗: dim frm2 as new form2 frm2.show dim zhi as string for i=0 to datagridview1.columns.count-1 zhi=zhi & datagridview1.SelectedRows(0).Cells(0).Value & "" next i frm2.textbox1.text=zhi
龙潭区15792305408: vb怎么操作网页单选按钮 - ?
养韦抒罗: 使用 webbrowser Dim doc As HtmlDocument = Me.WebBrowser1.Documentdoc.GetElementById("AAAAAA").SetAttribute("value", "无意义灌水") '这里的AAAAAA是查看代码出来的单选按钮的对象ID