قالب وردپرس



  •  ثبت نام |     |



ارسال موضوع جدید پاسخ به موضوع
 صفحه 1 از 1  [ 1 پست ] 

چهارشنبه فروردین 14, 92 1:33 pm

آفلاین
مدیر سایت
آواتار کاربر
تاریخ عضویت: چهارشنبه فروردین 6, 92 1:04 am
پست: 1372
{ GIVEN }: { THANKS }
{ RECEIVED }: { THANKS }
قرار دادن فرم در وسط صفحه در هر رزولیشنی


استفاده از این کد باعث می شود فرم در هر حالتی در وسط صفحه قرار گیرد.
Private Sub Center_This_Form(f As Form)
f.Move (Screen.Width - f.Width) \ 2, _
(Screen.Height - f.Height) \ 2
End Sub

Private Sub Form_Load()
Center_This_Form Me
End Sub


باز كردن پنجره اينترنت اكسپلور از داخل برنامه


براي نمونه يك سورس مي نويسم كه شما مي تونيد با اون از طريق Internet Explorer به سايت مورد نظرتون از داخل برنامه خودتون وارد بشيد :
اين كد را در قسمت Form / General بنويسيد
(Private Sub OpenUrl (URLName As String
Dim objIE As Object
("Set objIE = CreateObject ("internetexplorer.application
objIE.Visible = True
((objIE.Navigate (Trim(URLName
End Sub



بعد يك Command و يك Textbox روي صفحه بزاريد و خصوصيت Name اونها رو به ترتيب cmdGOو txtURLName قراربديد ، بعد هم مي تونيد با نوشتن كد زير در رويداد Click مربوط به cmdGo به هر صفحه اي كه در ابنترنت دوست داريد دسترسي داشته باشيد. به همين سادگي !


( )Private Sub cmdGO_Click
(Call OpenUrl (txtURLName
End Sub
باز و بستن درب CD ROM


اگر ميخواهيد توسط برنامه خود درب CD ROM را باز و بسته كنيد كافيست ابتدا كد زير را در يك ماژول كپي كنيد.
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

حالا كد زير را در پنجره فرم كپي كنيد.دو دكمه فرمان هم لازم است.
Private Sub CMDOPEN_Click()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

Private Sub CMDCLOSE_Click()
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub
خاموش كردن كامپيوتر در VB


براي خاموش كردن كامپيوتر كافيست كد زير را در پنجره كد كپي كنيد.


Private Sub Command1_Click()

result = Shell("shutdown -s -t 30", vbHide)

End Sub

اگر ميخواهيد عمل خاموش شدن بعد از سپري شدن مدتي انجام شود بعد از حرف T عدد مورد نظر را تايپ كنيد.
حركت بين كنترلها با استفاده از كليد Enter


با استفاده از این کد می توانید با زدن کلید Enter بين كنترلهاي روي فرم (تكس باكس و دكمه فرمان ) حركت كنيد .(براي سهولت در حركت بجاي tab يا جهت نما استفاده مي شود.)

۱- خاصيت Key Press فرم را True كنيد.

2- tab index تمام كنترلها را ست كنيد.

3- كد زير را در رويداد Key Press فرم كپي كنيد. و استفاده كنيد.
(Private Sub Form_KeyPress(KeyAscii As Integer
If KeyAscii = vbKeyReturn Then SendKeys "{TAB}": KeyAscii = 0
End Sub

بلوكه كردن متن هنگام ورود به آن

از اين كد براي بلوكه كردن متن داخل يك تكس باكس هنگام وارد شدن به آن استفاده مي شود. كافيست اين كد را براي هريك از تكس باكسها كپي كنيد.تا در صورت بدست آوردن فوكس بلوكه شوند.

( )Private Sub Text1_GotFocus
Text1.SelStart = 0
(Text1.SelLength = Len(Text1.Text
End Sub
استفاده از Status Bar در برنامه - در آوردن صداي بوق از اسپيكر


از اين تابع براي در آوردن صدا بوق از اسپيكر استفاده مي شود.براي استفاده كافيست تابع Api زير را همراه با كد دكمه فرمان در پنجره كد كپي كنيد.(براي تغيير دادن فركانس صداي بوق كافيست اعداد موجود در كد دكمه فرمان را تغيير دهيد.


Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long



Private Sub Command1_Click()


Beep 500, 100


End Sub

اگر بخواهيد در برنامه از Status Bar استفاده كنيد از كد زير براي وارد كردن متن در پنلهاي آن مي توانيد استفاده كنيد.

Private Sub Timer1_Timer()


StatusBar1.Panels(1).Text = Format(Time, "hh:mm:ss")


StatusBar1.Panels(2).Text = Date


StatusBar1.Panels(3).Text = "www.hacker4906.blogfa.com"


End Sub

تغيير شكل فرم بصورت دايره يا بيضي


برای نمايش فرم استفاده شده در برنامه بصورت دايره يا بيضی كافيست كد زير را در قسمت تعاريف پنجره كد فرم كپی كنيد.
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 Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

از آنجايی كه برای عملكرد بهتر می بايست خاصيت boarderStyle فرم را برابر 0-None كنيد.بنابراين از كد زير برای حركت فرم بدون نوار عنوان استفاده می كنيم.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 15
Call ReleaseCapture
Call SendMessage(hWnd, &HA1, 2, 0&)
MousePointer = 1
End Sub


از كد زير كه در رويداد فرم لود قرار دارد برای تغيير شكل فرم استفاد ه می كنيم كافيست اعداد ۲۰۰-۲۰۰ را تغيير دهيد تا شكلهای ديگری نمايش داده شود.

Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 200, 200), True
End Sub
چگونه از اجراي مجدد يک برنامه در ويژوال بيسيک جلوگيري شود


اگر كد زير را در رويداد فرم لود پنجره كد كپی كنيد به برنامه امكان باز شدن مجدد را نمی دهد و با پيغامی باز بودن فرم را اعلام می كند.
Private Sub Form_Load()
If App.PrevInstance = True Then
Dim Result As Integer
Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
Unload Me
End If
End Sub

_________________


بالا بالا
  پروفایل
  پاسخ با نقل قول 
نمایش پست ها از آخر به اول:  مرتب سازی بر اساس  
ارسال موضوع جدید پاسخ به موضوع
 صفحه 1 از 1  [ 1 پست ] 

همه زمان ها بر اساس UTC + 3:30 ساعت [ DST ] تنظیم شده اند


چه کسی آنلاین است

کاربران حاضر در این انجمن : کاربر عضو شده ای موجود نیست و 6 مهمان


در این انجمن نمی توانید موضوعات جدیدی ارسال کنید
در این انجمن نمی توانید به موضوعات پاسخ دهید
در این انجمن نمی توانید پست خود را ویرایش کنید
در این انجمن نمی توانید پست های خود را حذف کنید
در این انجمن نمی توانید پیوست ارسال کنید


جستجو برای:
پرش به:  

Powered By www.Cmpclub.ir
کلوب کشوری کامپیوتر
2016

قالب وردپرس