查看完整版本: 有个问题想请教

有个问题想请教

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

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

这个程序很简单，只是将加载到PictureClip1的位图原样剪切并加载到Image1中；
程序没什么问题，调试时注意控件的命名。

PictureClip1.ClipX = TextX.Text 这句你试一下
PictureClip1.ClipX = val(TextX.Text )

谢谢两位，顶！！