Oppure

Loading
23/01/10 19:26
Nick-95
Ciao ragazzi, sono nuovo in questo forum :D
Comunque passiamo al problema.
Vorrei creare un notepad in stile cmd...
per fare sfondo nero e scritta bianca non ci vuole un genio ok...
ma come si fa a fare in modo che avanti a ogni scritta ci sia quel trattino basso bianco che lampeggia e che precede ogni cosa che scriviamo...
come posso fare in VB.NET?
Grazie in anticipo per le future risposte ;)
Ultima modifica effettuata da Nick-95 23/01/10 19:28
aaa
23/01/10 20:33
Alfonso
... "quel trattino basso bianco che lampeggia" si chiama caret.

e qui c'è qualcosa che ti può interessare

msdn.microsoft.com/en-us/library/…
aaa
23/01/10 20:51
Nick-95
Grazie della risposta, ma non capisco niente :S
aaa
23/01/10 21:06
Alfonso
Nella schermata msdn
In alto a destra dove c'è scritto United States - English (oppure Classic) scegli l'italiano
aaa
24/01/10 16:58
Nick-95
Non ho capito molto da li...
a me servirebbe quella cosa specifica...
aaa
25/01/10 10:54
Alfonso
L'unico altro suggerimento che ti so dare è un metodo che si usa in vb6 ma che funziona anche in vb8
Private Declare Function GetFocus Lib "user32" () As Integer

Private Declare Function CreateCaret Lib "user32" (ByVal hWnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Private Declare Function ShowCaret Lib "user32" (ByVal hWnd As Integer) As Integer

Private Sub ShowCustomCaret(ByVal w As Short, ByVal h As Short)
   CreateCaret(GetFocus(), 0, w, h)
   ShowCaret(GetFocus())
End Sub

Private Sub Text1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Text1.GotFocus
   ShowCustomCaret(5, 14) ' caret largo 5 alto 14
End Sub

anche se mi sembra che Private Declare Function non sia il massimo per .net.
E probabilmente esiste qualcosa di specifico per .net che però io non conosco.
aaa
25/01/10 10:59
Il Totem
La versione .NET di Declare è l'attributo DllImport (del namespace System.Runtime.InteropServices):
<DllImport("user32.dll")> _
Private Shared Function CreateCaret(ByVal hWnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

End Function
aaa
29/01/10 21:06
Nick-95
Ehm... scusate sono un tantino inesperto ancora in questo campo... dove devo inserire questi codici?
aaa