لەم بابەتەدا باس لە یەکێک لە بەکارهێنانە گرنگەکانى بەرنامەى پاوەرپۆینت+ڤیژوەڵ بەیسک دەکەین بە هیواى ئەوەى سودى هەبێت
سەرەتا پێویستە بەرنامەى پاوەرپۆینتت هەبێت لەم لینکانە یەکێک دابگرە
Microsoft PowerPoint 2010 یان Microsoft PowerPoint 2007 یان Microsoft PowerPoint 2003
هاوڕێیان من Microsoft PowerPoint 2010 داگرتوە بۆیە بەو بەرنامەیە ڕوونى دەکەمەوە
بەرنامەى پاوەرپۆینتەکە بکەرەوە کە داتبەزاندوە و پاشان وەک ئەم وێنانە بکە
پاشان لە ڤیژوەڵ بەیسک دا Alt+F11 ئێستا دەچینە ڤیژوەڵ بەیسک لە ڕێگەى
زیاد دەکەین بۆ پرۆژەکەمان , UserForm——-Insert دەچینە سەر لیستى
ئەمانە ڕێک دەخەین Proporties لە لیستى
UserForm1
Width =500
Height =405.75
ئەو ئامرازانەى پێویستمان دەبێت
1- Image (1 دانە)
2- Command Button(10 دانە)
بەم شێوەیە ڕێکى دەخەین لە فۆڕمەکەدا
ئەمانە ڕێک دەخەین Proporties لە لیستى
Btn1
Caption =چەپ
Btn2
Caption =سەرەوە
Btn3
Caption =خوارەوە
Btn4
Caption =ڕاست
Btn5
Caption =گەڕانەوە
Btn6
Caption =بچوک کردن
Btn7
Caption =شاردنەوە
Btn8
Caption =گەورەکردن
Btn9
Caption =دەرکەوتن
Btn10
Caption =دەرچون
وە خۆتان فۆنتێکى جوانى بۆ هەڵبژێرن بۆ ئەوەى جوان دەرکەوێت
ئەمە ڕێک بخە Proporties لە لیستى
Image1
Top =24
Left =138
PictureSizeMode = fmPictureSizeModeStretch
Picture = وێنەیەک هەڵبژێرە
ئەم کۆدانە پەیست بکە F7 پەنجە بنێ بى
Private Sub Btn1_Click()
Image1.Left = Image1.Left – 50
End Sub
Private Sub Btn10_Click()
End
End Sub
Private Sub Btn2_Click()
Image1.Top = Image1.Top – 50
End Sub
Private Sub Btn3_Click()
Image1.Top = Image1.Top + 50
End Sub
Private Sub Btn4_Click()
Image1.Left = Image1.Left + 50
End Sub
Private Sub Btn5_Click()
Image1.Left = 134.8
Image1.Top = 24
End Sub
Private Sub Btn6_Click()
Image1.Width = Image1.Width – 100
Image1.Height = Image1.Height – 100
End Sub
Private Sub Btn7_Click()
Image1.Visible = False
End Sub
Private Sub Btn8_Click()
Image1.Width = Image1.Width + 100
Image1.Height = Image1.Height + 100
End Sub
Private Sub Btn9_Click()
Image1.Visible = True
End Sub
ئێستا دێینە سەر بەشێکى گرنگ ئەوەش بریتیە لەوەى چۆن ئەو بەرنامەیەیى کە دروستمان کردوە تێکەڵ بە فایلى پاوەرپۆینت بکەیت بۆ ئەوەش
وە ئەک کۆدەى تیا دەنوسین Insert—–Module ێک زیاد بکەین و دەچینە سەر بەشى Module پێویستە
Sub ShowForm()
UserForm1.Show
End Sub
دەکەین و شتێکى هاوشێوەى ئەمەت دێتە بەردەم وەک ئەمە بکە Crtl+S ئێستا کارى پرۆگرامینگ تەواو بوو
دەچینەوە بەرنامەى پاوەرپۆینت و F5 دەکەین و کلیک لەسەر کۆماندەکە دەکەین و بەرنامەکە دەکرێتەوە.
ئیستا تەواو بووین هیوادارم سوودى لێ ببینن , وە ئەمە تەنها پرۆژەیەکى سادە بوو دەتوانن چەندەها بەرنامەى زۆر باشتر دروست بکەن
ئامادەكردنی : ڕێباز ڕەئوف