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
  Blokirali ste reklame
Dragi prijatelju, nemojte da blokirate reklame - isključite Ad Blocker na Forumu, jer će tako mesto vaših susreta na Krstarici ostati besplatno za korišćenje.