Question about Microsoft Computers & Internet

1 Answer

How to get MsgBox function on Form - Microsoft Computers & Internet

Posted by on

Ad

1 Answer

  • Level 1:

    An expert who has achieved level 1.

    Hot-Shot:

    An expert who has answered 20 questions.

    Corporal:

    An expert that hasĀ over 10 points.

    Mayor:

    An expert whose answer gotĀ voted for 2 times.

  • Contributor
  • 30 Answers

This question is way too generic but in Visual Basic 6 for example you would just call the function from a method such as:

sub buttonclick()

msgbox("Hello World")

end sub

Posted on May 23, 2010

Ad

1 Suggested Answer

6ya6ya
  • 2 Answers

SOURCE: I have freestanding Series 8 dishwasher. Lately during the filling cycle water hammer is occurring. How can this be resolved

Hi,
a 6ya expert can help you resolve that issue over the phone in a minute or two.
best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
click here to download the app (for users in the US for now) and get all the help you need.
goodluck!

Posted on Jan 02, 2017

Ad

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

1 Answer

18. A palindrome is a string that reads the same


here is a little vbscript sample str=InputBox("Type String To check For palindrome","")
strR=StrReverse(str)
half=Int(Len(str)/2)
If Left(str,half)=Left(strR,half) Then
    MsgBox ("It's a palindrome string")
Else
    MsgBox ("It's not a palindrome string")
End If

Jun 05, 2010 | Computers & Internet

1 Answer

I want to use two independent Sub procedures: One to convert a temperature from Farenheit to Celsuis, and the other to convert a temperature from Celsuis to Farenheit


Save this as a vbscript (filename.vbs) and modify the language as needed. Should be pretty self explanatory let me know if that works.
Sub ConvertTemp()
temp = InputBox("Please enter the temperature in degrees F.", 1)
MsgBox "The temperature is " & Celsius(temp) & " degrees C."
End Sub

Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function

Function Fahrenheit(cDegrees)
Fahrenehit = (cDegrees + 32) * 9/ 5
End Function


Apr 05, 2010 | Computers & Internet

1 Answer

Validating textbox, the textbox should be accept numbers only Im using a PL vb6.0


Put the following code to txtBox_BeforeUpdate function:

If IsNumeric(txtBox.Text)=false then msgbox "Numbers only"

Feb 14, 2010 | Computers & Internet

1 Answer

How to create an object of VSI-Fax like in winfax


For VB

Private Sub Form_Load()
Dim sendObject As Object
Dim ret As Integer

Set sendObject = CreateObject("Winfax.SDKSend")

ret = sendObject.SetSubject("TEST!!!")
If (ret = 1) Then
MsgBox ("SetSubject Failed")
End
End If

ret = sendObject.SetKeywords("Test")
If (ret = 1) Then
MsgBox ("SetKeywords Failed")
End
End If

ret = sendObject.SetResolution(0)
If (ret = 1) Then
MsgBox ("SetResolution Failed")
End
End If

ret = sendObject.SetQuickCover(1)
If (ret = 1) Then
MsgBox ("SetQuickCover Failed")
End
End If

ret = sendObject.SetCoverText("This is a Test.")
If (ret = 1) Then
MsgBox ("SetCOverText Failed")
End
End If

ret = sendObject.SetUseCover(1)
If (ret = 1) Then
MsgBox ("SetUseCover Failed")
End
End If

ret = sendObject.ShowCallProgress(1)
If (ret = 1) Then
MsgBox ("ShowCallProgress Failed")
End
End If

ret = sendObject.SetTo("Somebody")
If (ret = 1) Then
MsgBox ("SetTo Failed")
End
End If

ret = sendObject.SetNumber("#######") 'My fax number
If (ret = 1) Then
MsgBox ("SetNumber Failed")
End
End If

ret = sendObject.SetAreaCode("###") 'My area code
If (ret = 1) Then
MsgBox ("SetAreaCode Failed")
End
End If

ret = sendObject.SetPriority(1)
If (ret = 1) Then
MsgBox ("SetPriority Failed")
End
End If

ret = sendObject.AddRecipient()
If (ret = 1) Then
MsgBox ("AddRecipient Failed")
End
End If

ret = sendObject.LeaveRunning()
If (ret = 1) Then
MsgBox ("LeaveRunning Failed")
End
End If

ret = sendObject.GetRecipientCount() 'this shows 1
MsgBox ("Recipient Count: " & ret) 'recipient

ret = sendObject.Send(1)
If (ret = 1) Then
MsgBox ("Send Failed")
End
End If

End Sub


If u like that Appreciate me by giving vote.
And try to be little specific while u ask question, that means, if u want code on any object ask for which language u r in need of?

Oct 19, 2009 | Esker VSI-FAX 4.x (25301) for Unix

1 Answer

Accept x and y from user and calculate x raise to y


here is the solution;
solution 1 (need 3 text boxes, Namely text1, text2 & text3 & a command button. Put the code below in the button click event) Dim x, y As Integer x = Text1 y = Text2 Text3 = x ^ y
solution 2 (put the code either in form load event or button click event)
Dim X, Y As Integer X = InputBox("Enter X", "X ? ") Y = InputBox("Enter Y", "Y ? ") MsgBox "X^Y = " & X ^ Y

May 18, 2009 | Polar Electro Wearlink Coded Watch

1 Answer

An example of visual basic program


Visual Basic (VB) is the thrid generation event-driven programming language and integrated development enviorment (IDE) from Microsoft for its COMprogramming model. VB is also considered a relatively easy to learn anduse programming language, because of its graphical development featuresand BASIC heritage.
Here is an example of a code that displays a message box "Hello, World!"
as the program runs:

Private
Sub Form_Load()
MsgBox "Hello, World!"
End Sub

simply making duplicated lines of text and changing the words in the
speech marks can draw a different text and ammounts.
For example:

Private
Sub Form_Load()
MsgBox "Welcome, blue_skies61!"
MsgBox "My name is Siwek06!"
End Sub

you can also bold the text by puting this line before a text:

Sub SetFontBold()

Overall i think this is a easy language to learn.
Go on to microsoft.com help center, or the forums to learn more.


Feb 23, 2009 | Visual Land V-Touch Digital Media Player

1 Answer

How do you check a Text File is empty or not in vb6.0


Here is a script that shows you how to do this

On Error Resume Next
Dim fso, s
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
s = ts.ReadAll
ts.Close
if len(s) = 0 then
msgbox "File is Empty"
else
msgbox len(s) & " " & s
end if

Nov 07, 2008 | Computers & Internet

1 Answer

Vb6 source code is not compiling.


What the heck are you compiling it with that doesn't give a line number for that error? Pay attention to the titles of messageboxes! Perhaps noting what lines you changed from the original will give a clue to narrow it down, but I expect you addressed an object with a property (object.property) in a context that can't be expected to generate or use that property as you gave it. Moreover there are spaces in object names, it seems....

Apr 13, 2008 | Computers & Internet

1 Answer

Access 2003 HELP PLEASE!


Sharon King:

Did you get this problem solved? I realize it is quite old, but I am willing to help if it is not solved. If it is, I would be interested to know what happened...

smartsolve

Feb 18, 2008 | Microsoft Office Access 2003 (077-02871)...

Not finding what you are looking for?
Computers & Internet Logo

Related Topics:

44 people viewed this question

Ask a Question

Usually answered in minutes!

Top Microsoft Computers & Internet Experts

micky dee

Level 3 Expert

2767 Answers

Piyal Perera
Piyal Perera

Level 3 Expert

528 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18394 Answers

Are you a Microsoft Computer and Internet Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...