| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come fare una tastiera su schermo in Visual Basic
    È possibile creare una tastiera su schermo con il programma di Microsoft Visual Basic , che può essere scaricato dal sito Web di Microsoft per libero . Visual Basic è un programma abbastanza comprensibile per la maggior parte delle persone . Il programma è stato progettato per la creazione di applicazioni sicure e orientato agli oggetti . Questo programma offre agli sviluppatori la possibilità di indirizzare il web, i dispositivi mobili e Windows. La tastiera su schermo creato da Visual Basic consente di digitare in diverse applicazioni sul computer. Istruzioni
    1

    Avviare Microsoft Visual Basic.
    2

    Cliccare su "Nuovo Progetto" proprio sotto la scheda " File " che si trova sulla barra degli strumenti .

    3

    Highlight "Applicazione Windows Form " nel " New Project" di dialogo pop - up .
    4

    Cambiare il nome del progetto di "Tastiera su schermo " o qualcosa di simile alla più facile identificare il progetto.
    5

    Fare clic su " OK" nella parte destra in basso della "New Project" finestra di pop - up . Un modulo vuoto etichettato " Form1 " dovrebbe apparire nel giro di pochi secondi
    6

    Clicca su " Proprietà casella " posta sul lato destro dello schermo e selezionare la casella "Nome" , . Cambiare il nome da " Form1 " a " frmMain " .
    7

    Highlight " FormBorderStyle " e cambiare il nome attuale di " FixedToolWindow " .
    8

    Highlight " Dimensione " e modificare il dimensione attuale di
    9

    evidenziare "SMS "
    10

    Highlight " TopMost " " 390.208 " . e cambiare il nome in " tastiera" . cambiare e su "True" .
    11

    espansione (+ ) i vostri " Common Controls " in " Strumenti " nella parte sinistra dello schermo e selezionare componente " ComboBox " .
    12

    Draw una ComboBox nella casella " Form" , che dovrebbe essere etichettato come "Tastiera" .
    13

    Cliccare sulla casella combinata e quindi tornare alla " Proprietà casella " posta sul lato destro dello schermo . Evidenziare "Nome" nel " dialogo Proprietà " e modificare il nome in " cboWindows " .
    14

    Highlight " DropDownStyle " e cambiare il nome in " DropDownList " e fare clic destro su " Form" in " Solution Explorer " e selezionare " Visualizza codice "
    15

    Digitare i seguenti metodi API e le dichiarazioni di seguito la "Classe frmMain pubblica" : .

    ' API Metodi
    < p > Public Declare Function IsWindowVisible Lib " user32.dll " _

    Alias ​​" IsWindowVisible " ( ByVal hwnd As Integer) As Boolean

    Public Declare Function GetWindow Lib " user32.dll " _ < br

    Alias ​​> " GetWindow " ( ByVal hwnd As Integer , _ ByVal

    wCmd As Integer) As Integer

    Public Declare Function GetWindowLong Lib " user32.dll " _
    < p > Alias ​​" GetWindowLongA " ( ByVal hwnd As Integer , _ ByVal

    nIndex As Integer) As Integer

    Public Declare Function GetParent Lib " user32.dll " _

    Alias ​​" GetParent " ( ByVal hwnd As Integer ) As Integer

    Public Declare Function SetForegroundWindow Lib " user32.dll "_

    Alias ​​" SetForegroundWindow " ( ByVal hwnd As Integer) Come
    Integer < p > ' Dichiarazioni

    RowOne privato As String ( ) = { "` " ," 1 " ," 2 " ," 3 "," 4 "," 5 " ," 6 "," 7 "," 8 " , " 9 " , " 0 " , " - " , " = " }

    RowTwo privato As String ( ) = { " q " , " w " , " e ", " r " , " t " , " y " , " u " , " i " , " o ", " p " , " [ " , " ] "}

    RowThree privato As String ( ) = { " a " , " s " , " d " , " f " , " g " , " h " , " j " , " k " , " l " , " , " , " ' " , " # "}

    privato RowFour As String ( ) = { " \\ " , " z" , " x " , "c" , " v" , "b" , " n" , " m " , " , ", " . ", " /" }

    BlocMaiusc privato As New CheckBox

    chiave privata , speciale As String

    di Windows privata As New ArrayList

    finestra privato Come
    IntPtr < br > 16

    Inserisci i metodi dell'API e delle dichiarazioni di seguito i " gestori di eventi ":

    ' gestori di eventi

    private Sub Key_Special ( ByVal sender As Button , _ ByVal

    e come System.EventArgs ) per

    speciale = " " Allora

    speciale = Sender.Tag

    Else

    speciale = " "
    < p > End If End Sub


    private Sub Key_Click ( ByVal sender As Button , _

    ByVal e As System.EventArgs ) per

    chiave = mittente . Tag

    chiave = " { SPACE } ", quindi il tasto = " " ' Convert { SPACE } a Spazio

    finestra < > 0 Then

    SetForegroundWindow ( window ) per

    SendKeys.SendWait ( Special & IIf ( Capslock.Checked _

    e non è speciale < > " ^ " , _

    UCase (chiave) , Chiave ) ) per

    SetForegroundWindow (Finestra ) per

    End If End Sub


    17

    Inserisci questo di seguito i " metodi privati ​​" :

    ' metodi privati ​​

    private Function IsActiveWindow ( ByVal hWnd As Integer) As Boolean Dim

    isowned come booleano

    Dim Style As Integer

    isowned = GetWindow ( hWnd , 4) < > 0

    Style = GetWindowLong ( hWnd , -20 ) per

    Se Non IsWindowVisible ( hWnd ) per poi tornare False '
    non visibile < p > Se GetParent ( hWnd ) < > 0 Then return false 'ha Parent

    ( Style And & H80 ) < > 0 And Not isowned poi tornare False ' è Tooltip

    ( stile e & H40000 ) = 0 e isowned poi tornare False ' Ha un proprietario

    Process.GetCurrentProcess.MainWindowHandle = hWnd poi tornare False

    Return True' finestra Valid

    End funzione

    private Sub KeyboardButton ( ByVal Larghezza As Integer , ByVal Altezza As Integer , _ ByVal

    Top As Integer , ByVal Sinistra As Integer , _ ByVal

    Testo opzionale As String = " " , _

    opzionale Tag ByVal As String = " " , _ Optional ByVal

    speciale As Boolean = false ) per

    Dim pulsante As New Button

    Previous :

    next :
      Articoli Correlati
    ·Che cosa è una variante in VB 
    ·Come ottenere informazioni sulla stampante tramite VB6 
    ·Come scrivere un programma per convertire la temperatur…
    ·Funzione Mid in VB.NET 
    ·Come cancellare il DataGrid in VB.Net 
    ·Come cancellare gli Appunti Con VBScript 
    ·Come utilizzare Timer1 su VB.NET 
    ·Come leggere i pixel da caselle di immagine in VB6 
    ·Come creare un set di dati da GridView 
    ·Come creare un browser Web utilizzando VB 
      Articoli in evidenza
    ·Introduzione a SQL Certificazione 
    ·Come compilare il codice D su Vim 
    ·Come usare FTP da VBA 
    ·Come utilizzare l' Ogre Vector3 Operator 
    ·Come output in Visual C 
    ·Come usare Netbeans CVS 
    ·Come Distruggi documenti di Word 
    ·Perché non sono tutti i siti protetto rispetto attacch…
    ·Come stimare il numero di bug in un codice 
    ·Classe PHP var Funzione 
    Copyright © Conoscenza Informatica http://it.wingwit.com