Inputbox, ok, cancel ??????????

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
bariemai
Δημοσιεύσεις: 155
Εγγραφή: 28 Δεκ 2002 23:09

Inputbox, ok, cancel ??????????

Δημοσίευση από bariemai » 28 Δεκ 2002 23:16

Katarxhn Xronia Polla se olous & se oles!
Loipon antimetopizo to e3hs:
Exo 1 inputbox ala kata periergo tropo den mporo na elen3o to button ok kai cancel pou apartizoun ka8e inputbox.
px otan patao ok 8elo na kataxoreitai se mia metavliti kanonika oti exei grapsei o usr mesa se auto.
Otan omos patao cancel 8elo na akyronetai h diadikasia auth.
Oson afora ta buttons px sto msgbox mporo k ta elegxo apolyta dld pote o xrhsths patise ok or cancel k ti energia 8a akolou8isei meta, to idio omos den symbenei k me ta buttons tou inputbox distyxos :(
Mipos mporei na me boi8isei kapios????

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Inputbox, ok, cancel ??????????

Δημοσίευση από agrippas » 28 Δεκ 2002 23:59

Μη μπερδεύεις το InputBox με το MsgBox. Στο InputBox τα ΟΚ και CANCEL είναι έτοιμα. Πάρε παράδειγμα:

Κώδικας: Επιλογή όλων

eisagwgh:
  strX = InputBox(msg, "Evresi timhs tou f(X)", 0)

epikyrwsh:
  If strX = "" Then Exit Sub
  If IsNumeric(strX) = False Then GoTo ErrorVal

ErrorVal:
Αν ο χρήστης πατήσει OK, τότε το inputbox καταχωρεί την strX. Αν πατήσει Cancel, δεν την καταχωρεί.

Στο ΜsgBox δουλεύεις αλλιώς: Εμφανίζεις ένα μήνυμα σαν ερώτηση π.χ. και έχει διάφορους τύπους: vbYesNo, vbOkCancel κλπ. που όπως είπες μπορείς εύκολα να τα ελέγξεις π.χ. με ένα select - case.

Άβαταρ μέλους
bariemai
Δημοσιεύσεις: 155
Εγγραφή: 28 Δεκ 2002 23:09

Inputbox, ok, cancel ??????????

Δημοσίευση από bariemai » 29 Δεκ 2002 07:35

To 8ema einai telika mporo na po se 1 inputbox px sto OK vgale to msg1 tade, sto cancel vgale to msg2????
enoeitai oti auto pou 8elo na kano einai ths morfhs:
a=inputbox(msg,"dose onoma",bla bla)
if a="" then 'An einai keno
3anadose a '3anazita timi
else 'alios
proxora stis epomenes diadikasies...
end if
An omos patisi cancel 3exna ola ta parapano k gyrna sthn prohgoumeni katastasi.
Ginetai me inputbox einai na psa3o gia kati pio xtreme, px mia deuteri forma pou 8a kanei oti 8a ekane 1 inputbox alla + auta pou 8elo??
Τελευταία επεξεργασία από το μέλος bariemai την 29 Δεκ 2002 11:45, έχει επεξεργασθεί 1 φορά συνολικά.

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Inputbox, ok, cancel ??????????

Δημοσίευση από agrippas » 29 Δεκ 2002 09:39

Τώρα κατάλαβα τι θες... Yeap! Με κολπάκι όλα γίνονται:

Κώδικας: Επιλογή όλων

Dim strOnoma As String
Dim strApanthsh As String

arxi:

strOnoma = InputBox("dwse onoma", "kataxwrisi onomatos")

If strOnoma = "" Then strApanthsh = MsgBox("prepei na dwseis kapoio onoma", vbOKCancel)

Select Case strApanthsh
    Case vbOK
        GoTo arxi
    Case vbCancel
        GoTo synexeiakwdika
End Select

synexeiakwdika:
Γιατί να φτιάχνεις άλλη φόρμα και να παιδεύεσαι;

Άβαταρ μέλους
bariemai
Δημοσιεύσεις: 155
Εγγραφή: 28 Δεκ 2002 23:09

Inputbox, ok, cancel ??????????

Δημοσίευση από bariemai » 29 Δεκ 2002 12:02

ok katarxhn thanks pou asxoleisai mazi mou :)
Loipon gia kapio logo an k fenetai kalo afto pou egrapses den me kaliptei.
Isos na mhn mporo na ekfraso ego kala to provlima mou k etsi san apotelesma mperdevo k esena, opote 8a prospa8iso na to 8eso ligo pio apla.
3ekiname:
Ena msgbox mporei na exei kapia koumpia px yes, no ktl.
Ena inputbox exei toulaxiston aposo 3ero ANAGKASTIKA 2 koumpia 1.ok, 1 cancel.
Otan se 1 msgbox patiso px to koumpi OK tote automata pernei kapia timi px vbyes, an patiso no antistoixa vbno.
kala mexri edo!
To erotima pou me aposxolei einai sto Inputbox otan patiso to OK or CANCEL ti timi pernei auto???
An ma8o auto tote 8a mporeso na proxoriso ena mikro project pou exo 3ekinisei me ton or8o tropo alios 8a prepei na katafygo distyxos h eutyxos se kapia epinohsh. :-?
Thanks k pali!

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Inputbox, ok, cancel ??????????

Δημοσίευση από agrippas » 30 Δεκ 2002 00:35

Όχι, όπως το λες δε γίνεται. Τώρα για την τιμή που παίρνουν οι μεταβλητές: Αν εξαιρέσουμε την default τιμή που μπορεί να δώσει ο προγραμματιστής, ως string παίρνει την τιμή NULL "" είτε αν ο χρήστης δε δώσει τίποτα και πατήσει Ok, είτε αν πατήσει Cancel.

Άβαταρ μέλους
bariemai
Δημοσιεύσεις: 155
Εγγραφή: 28 Δεκ 2002 23:09

Inputbox, ok, cancel ??????????

Δημοσίευση από bariemai » 30 Δεκ 2002 06:28

ok thnanks auto i8ela na ma8o!

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες