[RESOLVED] Bug in vb ?

Amaizing !

Code:

---

Private Sub Command1_Click()
MsgBox "test", vbExclamation, App.Title
End Sub

---

http://img242.imageshack.us/img242/9...eenshotor2.jpg


Now same msgbox code with in my app.
http://img7.imageshack.us/img7/5355/screenshotab2.jpg

See how message box appear?
http://img7.imageshack.us/img7/4488/screenshotoj2.jpg

whats wrong?

You overloaded the constant somewhere. I can do it too:

Code:

---

Private Sub Form_Load()
    Dim vbExclamation As Integer
   
    vbExclamation = 2
    MsgBox "test", vbExclamation, App.Title
End Sub

---

Quote:

---

You overloaded the constant somewhere

---

sorry dilettante, whats this mean really?pls explain a bit.

It means you declared a variable named vbExclamation somewhere. And somewhere along the line you set it to 2.

"Overloading" is when you give the same literal name more than one meaning. In this case you can declare something in module or procedure scope that is named the same as a gobal constant. While you are within that scope the compiler only sees the local value.

Quote:

---

Originally Posted by dilettante

It means you declared a variable named vbExclamation somewhere. And somewhere along the line you set it to 2.

"Overloading" is when you give the same literal name more than one meaning. In this case you can declare something in module or procedure scope that is named the same as a gobal constant. While you are within that scope the compiler only sees the local value.

---

tx dile,
but i am 100 percent user i have not used vbExclamation as a variable name :mad:

Well... at least do a Find and check.

Otherwise you have quite a mystery on your hands.

any way dile,
i put

Code:

---

  MsgBox "test", 48, App.Title

---

and working for now.

http://visualbasic.freetutes.com/lea.../lesson18.html

Quote:

---

Originally Posted by dilettante

Well... at least do a Find and check.

Otherwise you have quite a mystery on your hands.

---

find helped to find :D

Yah i am using a 3rd pary code and just found this line

Code:

---

Private Const vbExclamation = 2

---

:thumb: :check:

Wah-wahhhh.... LMBO