Technology and Online Community For All
welcome JOIN US NOW AND FEEL THE DIFFERENCE headbang

Technology and Online Community For All

What You See Is What You Get
 
HomeCalendarGalleryFAQSearchMemberlistUsergroupsRegisterLog in
November 2017
SunMonTueWedThuFriSat
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendarCalendar
Latest topics
» Uniblue PowerSuite
Mon Apr 09, 2012 7:27 pm by BlitzKrieG

» Ova Drive Hider
Fri Mar 02, 2012 8:48 am by CodeWarrior

» Ova Folder Security
Mon Feb 27, 2012 5:06 pm by CodeWarrior

» SPSBox
Sun Feb 26, 2012 4:24 am by CodeWarrior

» Norton [all here]
Thu Feb 23, 2012 8:01 am by BlitzKrieG

» OvaSystemSolution CVRS System
Sat Feb 18, 2012 6:06 am by CodeWarrior

» Avril Lavigne - Smile
Sat Jan 28, 2012 7:14 am by ^PiNKHeRMioNe

» Hot N Cold- Katy Perry
Sat Jan 28, 2012 7:11 am by ^PiNKHeRMioNe

» America's next top model (All Stars) Lisa D'Amato
Sat Jan 28, 2012 6:55 am by ^PiNKHeRMioNe

Search
 
 

Display results as :
 
Rechercher Advanced Search
Who is online?
In total there is 0 user online :: 0 Registered, 0 Hidden and 0 Guests :: 1 Bot

None

Most users ever online was 25 on Fri Dec 19, 2014 9:47 pm
Top posters
trekyboy
 
BlitzKrieG
 
ZNABiRA
 
EDI`STEALTH
 
*B o R g Z
 
SHY
 
CodeWarrior
 
^PiNKHeRMioNe
 
RaiJin
 
chaotic`
 
Statistics
We have 239 registered users
The newest registered user is Hellraiser666

Our users have posted a total of 948 messages in 662 subjects

Share | 
 

 TUT for VB6 MessageBox vbYesNo

View previous topic View next topic Go down 
AuthorMessage
CodeWarrior
Code Master
Code Master


Join date : 2011-12-20
Male Posts : 22

20111228
PostTUT for VB6 MessageBox vbYesNo

Creat a New Project in VB6

Put 1 Text at 1 Command

Double Click the Command Button and Paste This Code
Form MessageBox using Command Button Click

Code:

Option Explicit

Private Sub Command1_Click()
Dim ans As String
If Text1.Text = "" Then
  Exit Sub
End If
If Text1.Text = 1 Then
ans = MsgBox("Exit Application?", vbInformation + vbYesNo)
If ans = vbYes Then
Unload Me
ElseIf ans = vbNo Then
[COLOR="Cyan"]' Put the code any you want her [/COLOR]
Me.Refresh
End If
End If
End Sub

For MessageBox Using Text Change

Code:

Private Sub Text1_Change()
Dim ans As String

If Text1.Text = 1 Then
ans = MsgBox("Exit Application?", vbInformation + vbYesNo)
If ans = vbYes Then
Unload Me
ElseIf ans = vbNo Then
[COLOR="Cyan"]' Put the code any you want her [/COLOR]
Me.Refresh
End If
End If
End Sub
Back to top Go down
View user profile
Share this post on: Excite BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahooSmarking

TUT for VB6 MessageBox vbYesNo :: Comments

No Comment.
 

TUT for VB6 MessageBox vbYesNo

View previous topic View next topic Back to top 

Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Technology and Online Community For All :: Technical Support :: Programming Related :: Visual Basic 6/VB.NET-
Jump to: