Board logo

标题: 有个问题想请教 [打印本页]

作者: wuxi9658    时间: 2005-11-6 14:56     标题: 有个问题想请教

这是我在网上找的一个程序,想读一读帮助自己学习,可是运行的时后提示地三句就有问题,麻烦大家帮我解释一下,谢谢

Private Sub Command1_Click()
    Image1.Width = TextW.Text
    Image1.Height = TextH.Text   
   PictureClip1.ClipX = TextX.Text
    PictureClip1.ClipY = TextY.Text
    PictureClip1.ClipWidth = TextW.Text
    PictureClip1.ClipHeight = TextH.Text
    Image1.Picture = PictureClip1.Clip
End Sub

Private Sub Form_Load()
    PictureClip1.Picture = LoadPicture(App.Path + "1.bmp")
   TextX.Text = 0
    TextY.Text = 0
    TextW.Text = PictureClip1.Width
    TextH.Text = PictureClip1.Height
作者: 冰点    时间: 2005-11-9 08:57

这个程序很简单,只是将加载到PictureClip1的位图原样剪切并加载到Image1中;
程序没什么问题,调试时注意控件的命名。
作者: Nothing    时间: 2005-11-9 13:33

PictureClip1.ClipX = TextX.Text 这句你试一下
PictureClip1.ClipX = val(TextX.Text )
作者: wuxi9658    时间: 2005-11-10 12:08

谢谢两位,顶!!




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0