تۆ لێرەیت

ماڵەوە سه‌‌کۆ پرسیار و وەڵام

ڤژوەڵبەیسك

dilan

Dilan

بڵاوکراوەتەوە

2003/11/04

دۆخی بوچوون

خوێندنەوە  ۔4۔ )

ئەم كاتەتان باش
پرسیارێكم هەیە سەبارەت بە چۆنێتی پرنت كردنی تێكستێك لەناو فایلێكی وۆرد لەرێگای ڤژوەڵبەیسكی 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"

زۆر سوپاس بۆ كاك عەلی بۆ ئەو وەڵامە بەڵام كاك عەلی گیان ئەو فۆرمەی كەهەمە فۆرمی ڤژوەڵبەیسكی سەربەخۆیە (v5) نەك ڤژوەڵبەیسكی ئۆفیس ئینجا ئەودوگمەیەی كەلەسەر فۆرمەكەیە كەكلیكی لەسەر بكرێت فایلێكی وۆردی تازه ‌بكاتەوەو تێكستێكی تێدا بنوسێت

دوگمە‌ (Button)یەك درووست كراوە لە word دا ناوی ThisButtonە ئەمەش كۆدەكەی:

()Private Sub ThisButton_Click
Dim MePrint As Document

Me.PrintOut
End Sub

ماڵت نەڕمێ دیلان!!! له بەیانەوه خەریكم ئەم سەردێره بخوێنمەوه " ڤژوەڵبەیسك" !!!! ئەوه ئێستا كەشفم كرد چێیه ! نەدەكرا هەر به VB نووسیبات؟ یان هەر نووسیبات " ڤیژواڵ بێیسیك"؟