Clicca su " Strumenti > Macro> Visual Basic Editor " menu a scelta in ArcGIS per aprire l'editor di macro di Visual Basic . Nell'editor, fai clic su " Inserisci> Modulo . " Nome del modulo "Calcolatrice ". "Inserisci > Modulo " Click e il nome del modulo " frmCalc . " Si apre una maschera vuota e una cassetta degli attrezzi contenente controlli che è possibile aggiungere al form.
2
Aggiungi i controlli necessari per le funzioni di calcolo richiesti . Ad esempio, una semplice calcolatrice necessita di una sola casella di testo e cinque pulsanti di comando . Selezionare la casella di testo . Nella finestra " Proprietà" , modificare la proprietà Text su " 0 ", senza le virgolette , e la proprietà "Name" a " txtDisplay " senza le virgolette . " . CmdAdd " Selezionare un pulsante di comando e impostare la proprietà " Caption " a " + " e il suo " Nome " per impostare le didascalie dei pulsanti di comando rimanenti " a" - ", " * ", , . rispettivamente "/" e " =" e il loro nome a " cmdSubtract , " " cmdMultiply ", " cmdDivide " e " cmdResult , "
3
Fare doppio clic sul modulo "Calcolatrice" per aprire la finestra del codice . Digitare il seguente codice : numero frmCalcDim carico come DoubleDim operatore String
4
Fare doppio clic sul form per aprire la finestra del codice . Digitare il seguente codice : numero = 0operator = " "
5 Fare doppio clic sul pulsante " + " il comando per aprire la finestra del codice e digitare il seguente codice: numero = txtDisplay . TexttxtDisplay.Text operatore = " 0 " = " + "
6
incolla il codice da " cmdAdd " nella finestra del codice per i pulsanti di comando che rappresentano le altre tre operazioni , sostituendo la " + " nell'ultima riga con l'operatore che corrisponde a ogni tasto - per esempio , l'operatore = ." * "per" cmdMultiply "
7
doppio clic " = " , pulsante di comando per aprire la finestra del codice e digitare il seguente codice : Se operatore = " + " Thennumber = numero + txtDisplay.TextElseIf operatore = " - " Thennumber = numero - txtDisplay.TextElseIf operatore = " * " Thennumber = numero * txtDisplay.TextElseIf operatore = " /" Thennumber = numero /txtDisplay.TextEnd IftxtDisplay.Text = numero
8
Chiudere l' editor di Visual Basic , salvare il modulo e modulo , se richiesto. In ArcGIS , fare clic sul "> Strumenti Personalizza" opzione di menu . Scegliere la scheda " Comandi" . Sotto " Categorie ", selezionare " Macro ". Tue macro appaiono sulla destra. Fare clic e trascinare l'icona accanto alla macro "Calcolatrice" per collocarlo in una delle barre degli strumenti di ArcGIS . Fare clic sul nuovo pulsante " Barra degli strumenti" per eseguire la calcolatrice personalizzata.
Programmazione © www.354353.com