Jajaja tienen razon!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Const SW_NORMAL As Short = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Key As String = Nothing
Dim i As Integer
For i = 0 To 255
'Consultamos el valor de la tecla mediante el Api.
'Si se presionó devuelve -32767 y mostramos el valor de i
If GetAsyncKeyState(i) = -32767 Then
Key = Chr(i)
End If
Next
Try
If asc(Key) = 255 Then
My.Computer.Keyboard.SendKeys("<")
ElseIf asc(Key) = 255 And My.Computer.Keyboard.ShiftKeyDown Then
My.Computer.Keyboard.SendKeys(">")
ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown Then
My.Computer.Keyboard.SendKeys("<>")
ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown And My.Computer.Keyboard.ShiftKeyDown Then
My.Computer.Keyboard.SendKeys("</>")
End If
Catch ex As Exception
End Try
End Sub
''' <summary>
''' Obtiene o establece la fuente del editor
''' </summary>
''' <remarks>Fuente predeterminda: Courier New, tamaño texto: 9,75pt</remarks>
Public Overrides Property Font() As Font
'rtbScript.SelectionFont = value;
'now select all text and set font
Get
Return rtbScript.Font
End Get
Set(ByVal value As Font)
rtbScript.Font = value
rtbLineNumbers.Font = value
RedrawObjects()
End Set
End Property