Προς το περιεχόμενο

Visual Basic


Stormwatch

Προτεινόμενες αναρτήσεις

Δημοσ.

Gnorizeis gia API FUNCTIONS file?????<P>An oxi tote prepei na psakseis sto Internet gia auto...!!!Autin tin stigmi den exo kapoia site sto mialo mou..!!!Meso search engines mporeis na breis arketa pragmata..!<BR><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm21.gif" border=0> <P>------------------<BR>Simplicity is the path to true happiness

Δημοσ.

Mallon den imouna safis!<BR>otan ennoo exomiosi ennoo na ftiakso ena button pou na kanei se ena textbox oti kanei to backspace [afto to vrika:<BR>text1.text = left(text1.text,len(text1.text)-1)].eho provlima me to na kano to antistiho gia ta cursor(left kai right)....

Δημοσ.

Loipon ena poli kalo site gia vb kai oxi mono einai to <A HREF="http://www.planet-source-code.com." TARGET=_blank>www.planet-source-code.com.</A> Tora auto pou thes na kaneis me ton cursora einai arketa aplo alla pragmatika den mporo na katalavo gia pio logo thes na to xrisimopoeiseis. Tespa. An ipothesoume oti exeis ena textbox text1 kai ena button cmdLeft gia ton aristero cursora kai ena cmdRight gia ton dexi cursora tote oi subs tha einai oi exis<P>Private Sub cmdLeft_Click()<BR>Text1.SelStart = iif(text1.selstart>0, Text1.SelStart - 1,0)<BR>Text1.SetFocus<BR>End sub<P>Private Sub cmdRight_Click()<BR>Text1.SelStart = Text1.Selstart+1<BR>Text1.setFocus<BR>End sub<P>tora pou to skeftomai kai auto pou exeis grapsei me to backspace, tha svinei panta ton teleutaio xaraktira kai oxi ekeinon pou vrisketai o cursoras. Auto mporeis na to kaneis ws exis<P>Private Sub cmdBackSpace_Click()<P>With Text1<P>If .SelStart > 0 Then<BR>.SelStart = .SelStart - 1<BR>.SelLength = 1<BR>.SelText = ""<BR>End If<P>.setfocus<BR>End With<P>End Sub<P>[ 27-05-2001: Message edited by: banditikoulas ]<p>[ 28-05-2001: Message edited by: banditikoulas ]

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...