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

---

作者: 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