wuxi9658

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

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中；
程序没什么问题，调试时注意控件的命名。

Nothing

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

wuxi9658

谢谢两位，顶！！