[es] - vbYesNo zamena dijalog formom

babayaro961
nezaposlen

Član broj: 202119
Poruke: 21
*.dynamic.sbb.rs.

+2 Profil

^{02.01.2023. u 18:13 - pre 27 meseci}

Na formi imam kod koji savršeno funkcioniše, osim u onom delu da se u message boxu mora koristiti ošišana latinica, a ono što je meni potrebno – ćirilica, nikako ne može. Zbog toga bih hteo da vbYesNo zamenim jednom dijalog formom , čiji bi naziv bio npr. “frmDialogBoxes” na kojoj bih mogao pisati i normalnom latinicom i ćirilicom, što nije problem napraviti, ali kako bi onda trebalo da izgleda ovaj kod, odnosno - šta je još potrebno uraditi?
Kod je sledeći:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Odgovor As Integer

Odgovor = MsgBox("Zapisivanje promene?", vbYesNo, "Promena!")

If Odgovor = 6 And IsNull(Dat_vr) Then
Status = "2"
Exit Sub
ElseIf Odgovor = 6 And Dat_vr <> "" Then
Status = "1"
Else
Cancel = True
Me.Undo
End If
End Sub

Odgovor na temu

flighter_022
L2 Applications Administrator
NS

Član broj: 18499
Poruke: 749
*.dynamic.sbb.rs.

ICQ: 23089150

+234 Profil

Re: vbYesNo zamena dijalog formom

^{02.01.2023. u 18:55 - pre 27 meseci}

Ja sam takve stvari radio tako sto:

1. U posebnom fajlu napisem funkciju koju pozivam kad treba. Ta funkcija smesta u public variable tekst zaglavlja, tekst poruke, tekstove na dugmadima itd) i na kraju poziva formu
2. LOAD event forme cita gore pomenute promenjive i setuje zaglavlje, tekst poruke, dugmad
3. Klik na bilo koje dugme setuje jednu globalno vidljivu promenjivu i vraca izvrsenje koda na funkciju
4. Preostali kod funkcije vraca vrednost 1, 2, 3 ili sta vec u zavisnosti od toga koje dugme je pritisnuto

Ovo je najjednostavniji nacin.

Odgovor na temu

babayaro961
nezaposlen

Član broj: 202119
Poruke: 21
*.dynamic.sbb.rs.

+2 Profil

Re: vbYesNo zamena dijalog formom

^{02.01.2023. u 20:44 - pre 27 meseci}

Ako može neki primer, jer baš nemam nikakva znanja u vezi sa time da bih mogao samostalno da uradim. Sa nekog primera bih verovatno uspeo da to adaptiram za svoje potrebe

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2836

+45 Profil

Re: vbYesNo zamena dijalog formom

^{02.01.2023. u 21:38 - pre 27 meseci}

Ovo bi trebalo da radi. Blokirao sam 32-bitni sndPlaySound Lib "winmm.dll".
Ako neko ima bolje rešenje za zvuk, neka okači.

Ps. Ukucaj u pretragu ovog foruma zxzbox. Pročitaj tih par tema. Ima i biblioteka zxzBox.dll

_{[Ovu poruku je menjao Getsbi dana 02.01.2023. u 23:09 GMT+1]}

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Prikačeni fajlovi

SrpskiMsgBox.mdb - 340k

Odgovor na temu

babayaro961
nezaposlen

Član broj: 202119
Poruke: 21
*.dynamic.sbb.rs.

+2 Profil

Re: vbYesNo zamena dijalog formom

^{03.01.2023. u 13:02 - pre 27 meseci}

SrpskiMsgBox.mdb funkcioniše odlično, ali samo kada je u pitanju promena naziva dugmadi koja se mogu nasloviti i ćirilicom i latinicom. I dalje ne vidim kako da se i tekst poruke i naslov forme mogu pisati šišanom latinicom ili ćirilicom, što mi je prevashodni cilj. Postoji, doduše, mogućnost da se preko LabelPrompt-a iz ovog primera postavi drugi Label sa željenim natpisom, ali to bi bilo "krpljenje". Evo ga primer

Prikačeni fajlovi

BIBLIOTEKA.accdb - 1236k

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2836

+45 Profil

Re: vbYesNo zamena dijalog formom

^{03.01.2023. u 16:18 - pre 27 meseci}

VBA kôd ne trpi ćirilicu niti ošišanu latinicu. Možda eventualno š i ž u porukama na mojoj tastaturi. Dakle svakako bez dodatih labela. To nije rešenje. Moguće rešenje je da za svaku situaciju napraviš posebnu formicu tipa poruke: MessgeBox1, MessgeBox2, ..... i pozivaš ih po potrebi u VBA kôdu.
Nešto slično ti je savetovao kolega flighter_022.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu