|
| Allineare il testo a destra (per esempio i
numeri) in una textbox Impostare
l'allineamento a destra, settare la proprieta' MultiLine a True e disabilitare la
pressione del tasto INVIO con un bel
If KeyAscii = vbKeyReturn then KeyAscii = 0
nell'evento Keypress. |
Cancella l'ultimo carattere
in una textbox
Text1 = Left(Text1, Len(Text1) - 1) |
Come
si formatta una textbox inserendo un separatore delle migliaia nella cifra
txtPrezzi(Index) = Format(txtPrezzi(Index), "###,###,###")
Nell'evento Change della text inserire il codice che segue:
Text1.Text = Format(Text1.Text, "#,##0")
Text1.SelStart = Len(Text1.Text) |
| Disabilitare
una text box per l'editazione Nella sezione dichiarazioni inserire
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal
wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Public Const
EM_SETREADONLY = &H41F
Create questa sub
Sub DisabilitaCampo(NomeCampo As Control, Tipo As Integer)
Dim dummy%
dummy% = SendMessage(NomeCampo.hWnd, EM_SETREADONLY, Tipo, 0)
End Sub
La variabile Tipo determina se il text box deve essere abilitato o meno all'editazione:
Tipo=TRUE (l'editazione del text box viene disabilitata)
Tipo=FALSE (l'editazione del text box viene abilitata)
Per utilizzarla ad esempio nell'evento form_load inserire la seguente riga:
Call DisabilitaCampo(MioText, True)
|
Stampare il contenuto di una TextBox da VB5
printer.print text1.text
printer.enddoc |
CREARE TESTO
COLORATO
1. Creare una Form
2. Inserire il seguente codice:
Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
For I = 0 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
'Line -(X + TextWidth(C), Y = TextHeight(C)), _
QBColor(Rnd * 16), BF
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print "Hello World Hello World Hello World Hello"
Next
End Sub |
|
|