ڤژوەڵبەیسك
ئەم كاتەتان باش
پرسیارێكم هەیە سەبارەت بە چۆنێتی پرنت كردنی تێكستێك لەناو فایلێكی وۆرد لەرێگای ڤژوەڵبەیسكی 5
ئەگەر یارمەتی هەبێت ئەو كۆدەمان بۆ بنێرن كە ئەو كارەئەكات
زۆر زۆر سوپاستان ئەكەم
سڵاو
فەرموو
دوگمە (Button)یەك درووست كراوە لە word دا ناوی ThisButtonە ئەمەش كۆدەكەی:
()Private Sub ThisButton_Click
Dim MePrint As Document
Me.PrintOut
End Sub
دیلان داخوازی یەكەمت زۆر جیاوازە لە دووهەم !!
فەرمو :
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "winword", "", "", 10
End Sub
ئەگەر وا نەكرایەوە، ئەوا لە جیاتی winword ئەمەی خوارەوه بنوسه :
"C:\Programme\Microsoft Office\Office\Winword.exe"
ماڵت نەڕمێ دیلان!!! له بەیانەوه خەریكم ئەم سەردێره بخوێنمەوه " ڤژوەڵبەیسك" !!!! ئەوه ئێستا كەشفم كرد چێیه ! نەدەكرا هەر به VB نووسیبات؟ یان هەر نووسیبات " ڤیژواڵ بێیسیك"؟