ooooooo

آقا الکی الکی یه چیزی کشف کردم که واقعآ دلم نیومد نذارمش.

این کد رو امتحان کنید و نتیجه ش رو ببینید

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y_ As Single)
If  Button = 1 Then Picture1.Line (X, Y)-(X + X, Y + Y)
End Sub

popup menu

اگر میخواهید وقتی کاربر بر روی فرم شما رایت کلیک میکنه یک منو باز بشه این مطلب رو بخونید.

اول یک منو درست کنید.

بعد visible اون رو false کنید.

(activex.poumpmenu(menu as object,flgas,x,y,defult menu

کد بالا برای اضافه کردن منو به یک ابزار است.

activex همون ابزاری هست که میخواهید منو رو به اون اضافه کنید.

menu as object که در این قسمت فقت اسم منو رو بنویسید.

بقیه هم فدا سرتون.

(private sub form1_mousedown(button as integer,shift as integer,x as string,y as string

If button=2 Then

form1.proumpmenu file

END IF

End Sub

LoadKeyboardLayout

برای عوض کردن زبان ویندوز از این api استفاده میکنیم .

Private Declare Function LoadKeyboardLayout Lib "user32.dll" Alias_ "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

و یک flag 

Private Const LANG_FARSI As Long = &H29

()private sub form1_load
LoadKeyboardLayout "00000429", 1
end sub

کد بالا زبان keyboard رو از انگلیسی به فارسی تغییر میده.