gune_baxan
چهارشنبه 03 خرداد 1385, 21:49 عصر
سلام بر تمامی دوستان عزیز من یک مشکل کوچیک دارم اگه کمکم کنید ممنون میشم. من یه برنامه شبیه paint ویندوز نوشتم برای Save اون هم به صورت زیر نوشتم
Private Sub Save_Click()
Common1.ShowSave
If Common1.FileName <> "" Then
Call SavePicture(Picture1, Common1.FileName)
End If
End Sub
ولی موقع Save کردن پیغام خطای زیر رو میده:
Run-time error ‘380’:
Invalide property value
میشه بگین اشتباه من کجاست؟
Private Sub Save_Click()
Common1.ShowSave
If Common1.FileName <> "" Then
Call SavePicture(Picture1, Common1.FileName)
End If
End Sub
ولی موقع Save کردن پیغام خطای زیر رو میده:
Run-time error ‘380’:
Invalide property value
میشه بگین اشتباه من کجاست؟