Golsha
جمعه 10 مهر 1388, 11:26 صبح
سلام دوستان ببخشيد من يه سوال ديگه دارم اونم اينه كه چه طوري ميشه عكسي كه توي RichTextBox را چرخاند ؟؟
سوال ديگه اينه كه من با اين كد عكس رو وارد RichTextBox ميكنم .
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub
حالا ميخوام مثل برنامه نقاشي كه توش يه مربع با موس رسم مي كنيم عكس منم به اين صورت توي RichTextBox رسم بشه و شكل موس به شكل ( + ) در بياد و بعد از رسم عكس دوباره شكل موس به شكل عادي برگرده .
سوال ديگه اينه كه من با اين كد عكس رو وارد RichTextBox ميكنم .
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData Picture1.Picture
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub
حالا ميخوام مثل برنامه نقاشي كه توش يه مربع با موس رسم مي كنيم عكس منم به اين صورت توي RichTextBox رسم بشه و شكل موس به شكل ( + ) در بياد و بعد از رسم عكس دوباره شكل موس به شكل عادي برگرده .