如何动态创建picturebox?
为什么我用dimpaspicturebox这样不能使用?具体的还要做什么麻烦给出具体代码,谢谢!受不了,除了这个有没有别的方法了?我只是想利用下在模块里面封装成一个函数的...
为什么我用 dim p as picturebox这样不能使用?
具体的还要做什么 麻烦给出具体代码,谢谢!
受不了,除了这个有没有别的方法了?我只是想利用下
在模块里面封装成一个函数的话,我怎么知道程序里面有那些窗体?可能你说用for each in forms集合访问,但是如果我这个程序是一个没有任何窗体的程序呢?仅仅是一个用sub main作为入口的模块呢???
=======================================
我只是利用一下picturebox控件并不想把它添加到窗体啊,如果我这段代码是封装在模块里面呢,那你还能用Me.Controls.Add("VB.PictureBox", "xx")吗?
=======================================
不是添加控件的,我还是多贴一些代码吧
Private Sub Command1_Click()
Dim xx As PictureBox
With xx
.Top = 0
.Left = 0
.Width = 500
.Height = 500
.Visible = True
.BackColor = vbBlack
End With
xx.Picture = LoadPicture("c:\1.bmp")
SavePicture xx, "c:\1.jpg"
End Sub 展开
具体的还要做什么 麻烦给出具体代码,谢谢!
受不了,除了这个有没有别的方法了?我只是想利用下
在模块里面封装成一个函数的话,我怎么知道程序里面有那些窗体?可能你说用for each in forms集合访问,但是如果我这个程序是一个没有任何窗体的程序呢?仅仅是一个用sub main作为入口的模块呢???
=======================================
我只是利用一下picturebox控件并不想把它添加到窗体啊,如果我这段代码是封装在模块里面呢,那你还能用Me.Controls.Add("VB.PictureBox", "xx")吗?
=======================================
不是添加控件的,我还是多贴一些代码吧
Private Sub Command1_Click()
Dim xx As PictureBox
With xx
.Top = 0
.Left = 0
.Width = 500
.Height = 500
.Visible = True
.BackColor = vbBlack
End With
xx.Picture = LoadPicture("c:\1.bmp")
SavePicture xx, "c:\1.jpg"
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询