Nick-95 (Normal User)
Newbie
Messaggi: 5
Iscritto: 23/01/2010
|
Ciao ragazzi, sono nuovo in questo forum
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 il 23/01/2010 alle 20:28 |
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
|
|
Nick-95 (Normal User)
Newbie
Messaggi: 5
Iscritto: 23/01/2010
|
Grazie della risposta, ma non capisco niente :S
|
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
Nella schermata msdn
In alto a destra dove c'è scritto United States - English (oppure Classic) scegli l'italiano
|
|
Nick-95 (Normal User)
Newbie
Messaggi: 5
Iscritto: 23/01/2010
|
Non ho capito molto da li...
a me servirebbe quella cosa specifica...
|
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
L'unico altro suggerimento che ti so dare è un metodo che si usa in vb6 ma che funziona anche in vb8
Codice sorgente - presumibilmente VB.NET |
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.
|
|
Il Totem (Admin)
Guru^2
Messaggi: 3635
Iscritto: 24/01/2006
|
La versione .NET di Declare è l'attributo DllImport (del namespace System.Runtime.InteropServices):
Codice sorgente - presumibilmente VB.NET |
<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
|
|
|
Nick-95 (Normal User)
Newbie
Messaggi: 5
Iscritto: 23/01/2010
|
Ehm... scusate sono un tantino inesperto ancora in questo campo... dove devo inserire questi codici?
|
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
Codice sorgente - presumibilmente VB.NET |
Option Strict On Option Explicit On Imports System.Runtime.InteropServices Public Class Form1 Inherits System.Windows.Forms.Form <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 <DllImport("user32.dll")> _ Private Shared Function GetFocus() As Integer End Function <DllImport("user32.dll")> _ Private Shared Function ShowCaret(ByVal hWnd As Integer) As Integer End Function 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 TextBox1.GotFocus ShowCustomCaret(5, 14) ' caret largo 5 alto 14 End Sub End Class
|
Però:
Se sei "un tantino inesperto" perchè non ti accontenti del caret standard del controllo textbox ?
|
|