R2du-soft
یک شنبه 07 مهر 1392, 18:25 عصر
سلام دوستان
من نیاز به این روش دارم اما به مشکل میخورم:
برنامه ای نوشتم که پس از باز شدن سایت گوگل رو باز میکنه ، زمانی که فرم رو میبندم ، فرم اول hide میشه و سپس فرم دوم نشون داده میشه و با زدم دکمه ای که توی فرم دوم هست ، فرم اول باز به حالت نمایش در میاد.
ولی مشکل من اینجاست که من فرم اول رو مخفی کرده بودم ، و با دکمه ای که درون فرم دوم هست باز فرم رو به حالت نمایش در اوردم،اما نمیخوام که با زدن دکمه و نمایش مجدد فرمم باز سایت گوگل باز بشه ولی این اتفاق میوفته!
کدهایی که استفاده کردم:
درون فرم اول:
Private 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 Form_Load()
ShellExecute Me.hWnd, "Open", "http://google.com", "", App.Path, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
Me.Hide
End Sub
و درون فرم دوم یک دکمه و سپس کدهای زیر:
Private Sub Command1_Click()
Form1.Show
Me.Hide
End Sub
روشی هست که زمانی که میخوایم فرم رو به حالت نمایش در بیاریم رویداد form load اجرا نشه؟
و
روشی هست مانند goto که از فرم 2 فرمان بدیم که به قسمتی از رویداد فرم اول بره و از اونجا به بعد اجرا کنه کد رو؟ مثل کد زیر:
Private 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 Form_Load()
ShellExecute Me.hWnd, "Open", "http://google.com", "", App.Path, 1
:2
ShellExecute Me.hWnd, "Open", "http://yahoo.com", "", App.Path, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
Me.Hide
End Sub
Private Sub Command1_Click()
form1.goto2
یعنی رویداد 2 که توی فرم اول هست رو به بعد اجرا کنه و از باز کردن سایت گوگل صرف نظر کنه؟ :متفکر:
من نیاز به این روش دارم اما به مشکل میخورم:
برنامه ای نوشتم که پس از باز شدن سایت گوگل رو باز میکنه ، زمانی که فرم رو میبندم ، فرم اول hide میشه و سپس فرم دوم نشون داده میشه و با زدم دکمه ای که توی فرم دوم هست ، فرم اول باز به حالت نمایش در میاد.
ولی مشکل من اینجاست که من فرم اول رو مخفی کرده بودم ، و با دکمه ای که درون فرم دوم هست باز فرم رو به حالت نمایش در اوردم،اما نمیخوام که با زدن دکمه و نمایش مجدد فرمم باز سایت گوگل باز بشه ولی این اتفاق میوفته!
کدهایی که استفاده کردم:
درون فرم اول:
Private 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 Form_Load()
ShellExecute Me.hWnd, "Open", "http://google.com", "", App.Path, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
Me.Hide
End Sub
و درون فرم دوم یک دکمه و سپس کدهای زیر:
Private Sub Command1_Click()
Form1.Show
Me.Hide
End Sub
روشی هست که زمانی که میخوایم فرم رو به حالت نمایش در بیاریم رویداد form load اجرا نشه؟
و
روشی هست مانند goto که از فرم 2 فرمان بدیم که به قسمتی از رویداد فرم اول بره و از اونجا به بعد اجرا کنه کد رو؟ مثل کد زیر:
Private 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 Form_Load()
ShellExecute Me.hWnd, "Open", "http://google.com", "", App.Path, 1
:2
ShellExecute Me.hWnd, "Open", "http://yahoo.com", "", App.Path, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
Me.Hide
End Sub
Private Sub Command1_Click()
form1.goto2
یعنی رویداد 2 که توی فرم اول هست رو به بعد اجرا کنه و از باز کردن سایت گوگل صرف نظر کنه؟ :متفکر: