Quantcast

Msgbox-ovi na srpskom u vb 6.0

S

Shadow

Gost
Ovako :

1. To ne mozes ni da uradis sa standardnim msgbox-om , vec moras da napravis posebnu formu .

2. Ne vidim u cemu je problem ! Sve ikone dolaze sa samim VB 6.0 ! Folder Visual Studio\Common\Graphics\Icons ! Ukoliko ih nema tamo provjeri da li si prilikom instalacije VS-a instalirao graficke datoteke !

Nadam se da je ovo pomoglo !
Shadow
 

Gost
Sasa Vitorovic:
Mnogo mi je vazno,mora da neko zna.
Ova e funkcija koja raboti vo VB5 mozda ke mozes da ja prilagodis za VB6.
Public Function Poraka(Text As String, S As String, Optional ByRef AktivnaKontrola As DBGrid) As String
Dim X As Integer
Dim conKontrola As CommandButton
strOdgovorNaPoraka = ""
X = 1
frmPoraka.lblPoraka = Text
'POSTAVUVANJE NA VIDLIVITE KONTROLI
For Each conKontrola In frmPoraka.Kontroli
conKontrola.Visible = conKontrola.Visible Or CBool(Mid$(S, X, 1))
X = X + 1
Next
frmPoraka.Show vbModal
Do While strOdgovorNaPoraka = ""
DoEvents
Loop
Poraka = strOdgovorNaPoraka
'KRIENJE NA SITE KONTROLI
For Each conKontrola In frmPoraka.Kontroli
conKontrola.Visible = False
Next
frmPoraka.Hide
'MDIfrmGlavnaForma.ActiveForm.SetFocus
'MDIfrmGlavnaForma.ActiveForm.Print MDIfrmGlavnaForma.ActiveForm.ActiveControl.Name
'AktivnaKontrola.SetFocus
End Function

Eve ti edno povikuvanje
Call Poraka("ne postoi takov komintent !", "001", conAktivnaKontrola)
 

Top