
正文
vbnet图片框 vb中图片框是哪一个
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net怎样改变picturebox控件的形状
'vbnet图片框我给你找到了,设置region属性就可
Private Sub PictureBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Region Is Nothing Then
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddEllipse(0, 0, 200, 200)
PictureBox1.Region = New Region(path)
Else
PictureBox1.Region = Nothing
End If
End Sub
'这个双击图片框使其变形,通过GraphicsPath对象可以作出各种形态来,比如可作出文字形状
Dim stringText As String = "vbnet图片框我是谁"
Dim family As New FontFamily("Arial")
Dim myfontStyle As Integer = CInt(FontStyle.Italic)
Dim emSize As Integer = 86
Dim origin As New Point(20, 20)
Dim format As StringFormat = StringFormat.GenericDefault
path.AddString(stringText, family, myfontStyle, emSize, _
origin, format)
PictureBox1.Region = New Region(path)
相关问答
Q1: 求大神指点 vb.net 数组添加的图片框 怎么单价单击图片框的时候 放大图片框呢?
'初始化的时候添加事件
Private Sub Main_Load(....) Handles MyBase.Load
AddHandler pic_10.Click, New EventHandler(AddressOf Pic_Click)'pic_10为你自创建图片的需放大的图片名称
End Sub
'自定义控件处理函数(注意TabIndex的编号)
Protected Sub Pic_10Click(ByVal sender As Object, ByVal e As EventArgs)
'在这放大图片
pic_10.Width+=20
pic_10.Height+=20
End Sub
Q2: 怎么让VB的图片显示框显示图片?
假定春夏秋冬四个按钮分别是Command1、Command2、Command3、Command4vbnet图片框,四个图片框分别是Picture1、Picture2、Picture3、Picture4
Private Sub Command1_Click()
Picture1.Picture = LoadPicture("春vbnet图片框的图片路径放在这")
End Sub
Private Sub Command2_Click()
Picture2.Picture = LoadPicture("夏vbnet图片框的图片路径放在这")
End Sub
Private Sub Command3_Click()
Picture3.Picture = LoadPicture("秋vbnet图片框的图片路径放在这")
End Sub
Private Sub Command4_Click()
Picture4.Picture = LoadPicture("冬的图片路径放在这")
End Sub
如果按钮和图片框弄成控件数组则程序会更简单(四个图片的文件名要改为1.jpg、2.jpg、3.jpg、4.jpg):
Private Sub Command1_Click(Index As Integer)
Picture1(Index).Picture = LoadPicture(App.Path "\" Index + 1 ".jpg")
End Sub
Q3: VB.net 2008图片框处理图片时,图片框无法显示图片,打红叉叉,如何解决?
贴代码啊,贴上加载两个图片框的代码,有代码才知道你加载图片时错在那里.下回提问要详细周全,碰到了就回一下,但问题资料提供不全面会浪费时间也会浪费一个别人回答的机会,因为等你再提供更多资料时能回答的人就不一定在线了.下回再看到你这问题不知道等到什么时候了...
Q4: vb.net 怎么来回切换图片?
vb.net 怎么来回切换图片?1、添加控件Picturebox1和控件Timer1,将Timer1的Interval属性改为1000(即1秒),Enabled属性改为True
2、假设你要循环切换4张图片,你可以添加如下代码即可实现:
Dim a As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = 4 Then
a = 0
Else
a = a + 1
End If
If a = 0 Then Me.PictureBox1.Image = Image.FromFile("1.jpg")
If a = 1 Then Me.PictureBox1.Image = Image.FromFile("2.jpg")
If a = 2 Then Me.PictureBox1.Image = Image.FromFile("3.jpg")
If a = 3 Then Me.PictureBox1.Image = Image.FromFile("4.jpg")
End Sub
vbnet图片框的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb中图片框是哪一个、vbnet图片框的信息别忘了在本站进行查找喔。








