Question about Computers & Internet

1 Answer

My msgbox is locked,,,,,can u help me out - Computers & Internet

Posted by on

Ad

1 Answer

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that gotĀ 5 achievements.

    Governor:

    An expert whose answer gotĀ voted for 20 times.

    Hot-Shot:

    An expert who has answered 20 questions.

  • Expert
  • 53 Answers

COM 0R MOBILE

Posted on Mar 24, 2011

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

How to Make a Popup (for Windows)?


Open Notepad (Start>Programs>Accessories>Notepad).

26319026-bxzhjmonsmllydp0qa2riq2g-2-0.jpg
Copy and paste the following text into the program: lol=msgbox("",16,"Error")


26319026-bxzhjmonsmllydp0qa2riq2g-2-2.jpg In between the two adjacent quotation marks, type the error message you wish to appear in the popup (eg. lol=msgbox("Example",16,"Error")).


26319026-bxzhjmonsmllydp0qa2riq2g-2-5.jpg
Click File>Save As. 26319026-bxzhjmonsmllydp0qa2riq2g-2-9.jpg In the 'Save type as' dropdown, change the setting from 'Text Documents' to 'All files'. Then, as your file name, type your file name (when you open the file, it will trigger the popup), followed by '.vbs' (eg. Example.vbs). Then, in the 'save in' dropdown, select a place where you can access your file. When you have selected your desired place to save the file, click 'save' to save your file.

26319026-bxzhjmonsmllydp0qa2riq2g-2-14.jpg
Open 'My Computer' (Start>My Computer) and find your newly-created file.
Open the file, and your error message should pop up on the screen!


26319026-bxzhjmonsmllydp0qa2riq2g-2-20.jpg

Oct 20, 2016 | Microsoft Computers & Internet

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

How to get MsgBox function on Form


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

May 07, 2010 | Microsoft 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

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

Password


Hello, if you are using a vb program, i know a code that will allow you to make a password protect your programs. But you are prompt to enter it in every time you start the program.
Private Sub Form_Load()
passwordbox = InputBox("Please Enter Key")
If passwordbox = "Put Your Password Here!" Then
MsgBox "Welcome!"
Else: MsgBox "You have entered the wrong password"
Unload Me
End If
End Sub
You can try this. Hope this can help you in some way :)

Feb 29, 2008 | Computers & Internet

1 Answer

Program


I wrote this as a vbscript. It's Visual Basic code in windows script. If you have XP, just copy the text into notepad and save it as "vowel.vbs". Now double click the newly created script file.

' vowel.vbs
'
' This VBScript is used to count the vowels and consonants in a string.
' Designed and Tested on Windows XP Pro SP2
'
' Version 1.0.0 - 02.20.2008
'
' This code may be freely distributed or modified.
' -----------------------------------------------------------------'

Option Explicit
Dim str
Dim vowels
Dim consonants
Dim i

vowels = 0
consonants = 0
str = "hello"

for i = 1 to len(str)
select case mid(str,i,1)
case "a"
vowels = vowels + 1
case "e"
vowels = vowels + 1
case "i"
vowels = vowels + 1
case "o"
vowels = vowels + 1
case "u"
vowels = vowels + 1
case else
consonants = consonants + 1
end select
next

msgbox "Vowels = " & vowels
msgbox "Consonants = " & consonants
'End of script.

Feb 21, 2008 | Computers & Internet

1 Answer

Hi........


I wrote this as a vbscript. It's Visual Basic code in windows script. If you have XP, just copy the text into notepad and save it as "vowel.vbs". Now double click the newly created script file.

' vowel.vbs
'
' This VBScript is used to count the vowels and consonants in a string.
' Designed and Tested on Windows XP Pro SP2
'
' Version 1.0.0 - 02.20.2008
'
' This code may be freely distributed or modified.
' -----------------------------------------------------------------'

Option Explicit
Dim str
Dim vowels
Dim consonants
Dim i

vowels = 0
consonants = 0
str = "hello"

for i = 1 to len(str)
select case mid(str,i,1)
case "a"
vowels = vowels + 1
case "e"
vowels = vowels + 1
case "i"
vowels = vowels + 1
case "o"
vowels = vowels + 1
case "u"
vowels = vowels + 1
case else
consonants = consonants + 1
end select
next

msgbox "Vowels = " & vowels
msgbox "Consonants = " & consonants
'End of script.

Feb 21, 2008 | Intel (RK80532PG0881M) Pentium 4, 3 GHz...

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

Related Topics:

13 people viewed this question

Ask a Question

Usually answered in minutes!

Top Computers & Internet Experts

Doctor PC
Doctor PC

Level 3 Expert

7733 Answers

kakima

Level 3 Expert

102366 Answers

David Payne
David Payne

Level 3 Expert

14161 Answers

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

Answer questions

Manuals & User Guides

Loading...