Path: csiph.com!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail From: "Ettore" Newsgroups: it.comp.lang.visual-basic Subject: Re: Enter al posto tab . Date: Wed, 2 May 2018 17:25:20 +0200 Organization: A noiseless patient Spider Lines: 2 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain; format=flowed; charset="iso-8859-1"; reply-type=response Content-Transfer-Encoding: 7bit Injection-Date: Wed, 2 May 2018 15:25:25 -0000 (UTC) Injection-Info: reader02.eternal-september.org; posting-host="e3a1a99169b3ae795b04e74be98c51f4"; logging-data="11153"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+XwNB9N6XTIYKO9e+u9TLulrBxZxUkiig=" X-MimeOLE: Produced By Microsoft MimeOLE V16.4.3528.331 In-Reply-To: X-Newsreader: Microsoft Windows Live Mail 16.4.3528.331 Importance: Normal Cancel-Lock: sha1:1EL/i9weAH6ZkSjeSViIuM2sdF8= X-Priority: 3 X-MSMail-Priority: Normal Xref: csiph.com it.comp.lang.visual-basic:19354 >Private Sub Text1_KeyPress(KeyAscii As Integer) >Const MaxDec As Integer = 2 >dim MaxCar As Integer >Dim DoveVirgola As Integer ' se Raggiunti massimi decimali >Dim NumIntero As Integer >MaxCar = 12 >If Text1.MaxLength > MaxCar Then MaxCar = Text1.MaxLength >NumIntero = MaxCar >If MaxDec > 0 Then NumIntero = MaxCar - (MaxDec + 1) >If KeyAscii = 45 Then ' segno negativo > If Len(Trim(Text1.Text)) = 0 Then > KeyAscii = KeyAscii >.................. CUT >Sauro Ho tagliato un bel pezzo, hoprovato a compilarlo ma vedo onde in rosso, quindi ho modificato Text1, in textbox1, Ma da' errore sintassi ( TextBox1.SelLength .............. e prima .. TextBox1.SelStart ) dicendo che non e' un membro di TextBox ...... che gia' mi sto grattando la fronte........... BC30035 - www.bing.com/search?q=BC30035+Visual+Basic+AND++VB.NET+Errore+di+sintassi.&form=VSHELP ciao .