Variables des Objets Intégrés

Dans les sections ci-dessus, nous avons vu comment déclarer une variable d'un type de données intégré. Sans compter que ces types, bateau de base visuel de Microsoft Access et de Microsoft avec des objets comme nous les avons présentés dans la leçon 3. Parfois vous devrez se référer à de tels objets en votre code. Dans la plupart des cas, vous devrez déclarer d'abord une variable du type désiré avant de l'employer.

Pour déclarer une variable d'un objet, vous devriez d'abord veiller vous connaître le type d'objet que vous voulez.

Chaque objet que vous emploierez dans votre application est principalement de type objet. Dans beaucoup de cas, vous pourrez employer directement l'objet dans votre application. Dans quelques autres cas, vous devrez d'abord déclarer la variable et l'initialiser avant de l'employer. En outre, dans beaucoup de cas, vous pouvez déclarer une variable et indiquer son type particulier. Dans certains cas, vous ne pouvez pas savoir ou ne pouvez pas devoir indiquer le type particulier de l'objet que vous voulez employer. Dans ce cas-ci, en déclarant la variable, vous pouvez indiquer son type comme objet. En utilisant le type d'objet pour déclarer celui, la variable devrait être l'un des types existants de VBA d'objet et non un des types de données de base que nous avons vus plus tôt. Ceci serait fait comme suit :

Dim objVariable As Object

Après cette déclaration, vous devriez alors initialiser la variable et indiquer le type réel qu'elle serait. Pour initialiser une variable avouée comme objet de VBA, employer l'opérateur d'ensemble que nous verrons plus tard.

Dans la Leçon 3, nous avons vu qu'une base de données de Microsoft Access était un objet de type application. En votre code, pour déclarer une variable de ce type, vous pouvez dactylographier :

Dim app As Application

Si vous voulez se référer à un tel objet en dehors de de Microsoft Access, vous devez le qualifier avec l'objet d'Access. Par exemple, à partir d'une application telle que le Microsoft Word, pour déclarer une variable qui se rapporte à une base de données de Microsoft Access, la déclaration ci-dessus serait faite comme :

Dim app As Access.Application

Même dans le Microsoft Access, vous pouvez employer Access.Application.

Une constante est une valeur qui ne change pas (cette définition est superflue parce que la valeur de mot suggère déjà quelque chose qui pas changement). Il y a deux types de constantes que vous emploierez dans vos programmes : ceux fournis à toi et ceux vous se définissent.

Pour vous aider avec identifier des couleurs, constantes d'utilisations de base visuelles de Microsoft diverses

De base visuel fournit la constante de vbCrLf employée pour interrompre une ligne de texte et pour se déplacer à la prochaine ligne.

Pi est une constante mathématique dont la valeur est approximativement égale à 3.1415926535897932. Il est fortement employé en fonctionnement qui impliquent des cercles ou des variantes géométriques d'un cercle : cylindre, sphère, cône, etc.

Une variable serait la nulle quand sa valeur est inadmissible ou ne soutient pas n'importe quelle valeur significative ou reconnaissable.

Une expression serait fausse si le résultat de sa comparaison est 0. Autrement, on dit que l'expression soutient un résultat vrai.

Une opération est au moins une valeur combinée avec un symbole pour produire une nouvelle valeur. Une opération plus complexe peut impliquer plus d'une valeur et probablement plus d'un symbole. Une valeur impliquée dans une opération s'appelle un opérande. Un symbole impliqué dans une opération s'appelle un opérateur.

L'opération de tâche est employée pour tirer une copie d'une valeur, d'une expression, ou de la teneur d'une commande et pour donner la copie à un champ ou à une expression différent. L'opération de tâche est effectuée avec = signe.

Par exemple, supposer que vous avez un champ qui montre un prénom et qui le champ s'appelle FirstName. Si vous voulez que le prénom à montrer dans un autre domaine, avec ce nouveau champ appelé, dans le nouveau domaine vous pourrait dactylographier :

=FirstName

D'une part, vous pouvez employer l'opérateur de tâche pour donner une valeur à une variable avouée. Voici un exemple :

Private Sub Form_Load()
    Dim NumberOfTracks As Integer
    NumberOfTracks = 16
End Sub

Quand l'opérateur de tâche est fourni à une variable comme valeur commençante pour la variable, ceci désigné sous le nom d'initialiser la variable.

1. Des ressources qui accompagnent cet ebook, ouvrir la base de données Exercise2
2. Ouvrir la forme de tâche
3. Après visionnement de la forme, la commuter à la vue de conception
4. Sur la forme, cliquer la boîte des textes de prénom pour la choisir
5. Sur la fenêtre de propriétés, cliquer l'étiquette d'événement
6. Double-cliquer sur le foyer perdu
7. Droit-cliquer sur le foyer perdu et cliquer la construction…
8. Mettre en application l'événement comme suit :
    

   Private Sub txtFirstName_LostFocus() ' Assign the content of the First Name text box ' to the Full Name text box txtFullName = txtFirstName End Sub

9. Revenir à la forme et la commuter à la vue de forme
10. Cliquer la boîte des textes de prénom. Dactylographier l'étiquette de Catherine et de pression
     
    
11. Noter que la boîte des textes de nom et prénoms a obtenu remplie de valeur du prénom quand la boîte des textes de prénom a perdu le foyer.
    Après avoir employé la forme, la commuter à la vue de conception

Nous avons vu plus tôt que vous pourriez déclarer une variable basée sur un objet intégré de VBA. Indiquer l'objet particulier que vous vous référez, vous peut (nécessité) employer l'opérateur d'ensemble pour assigner un objet existant à votre variable. Ceci serait fait comme suit :

dim ctlFirstName as Control
Set ctlFirstName = TextBox

Double-cite sont employés pour montrer une corde. D'abord…

Une corde est un espace vide, un caractère, ou un groupe de caractères que vous dactylographiez ou fournissez à une commande et de toi veulent ce caractère ou ce groupe de caractères à considérer « comme est ». En d'autres termes, l'expression ou la commande qui reçoit la corde devrait la garder ou eux la manière vous avez fourni elle ou eux.

Une corde peut être un espace vide ou un caractère, tel que $ ou W ; un groupe de caractères, comme la maison ou le Manchester uni ou parlant verbalement, je veux dire… L'ampèreheure l'oublient. La majeure partie du temps, vous voudrez que le programme garde ce caractère ou groupe de caractères exactement la manière toi ou l'écrit par l'utilisateur ils. Faire le programme savoir que c'est une corde, vous doit l'enfermer dans de doubles citations. De nos exemples, nos cordes seraient « $ », « W », « à la maison », « Manchester uni », et « verbalement parlant, je veux dire… L'ampèreheure l'oublient ».

Pour assigner une corde à une expression ou à un champ, employer l'opérateur de tâche comme suit :

= "Manchester United"

De la même manière, pour initialiser une variable avec de la corde, employer l'opérateur de tâche. Voici un exemple :

Private Sub Form_Load()
    Dim Address As String
    Address = "12404 Lockwood Drive Apt D4"
End Sub

1. Sur la forme de tâche, droit-cliquer la boîte des textes de nom et prénoms et cliquer l'événement de construction…
    
   
2. Sur la zone de dialogue de constructeur de choix, cliquer le constructeur de code et cliquer BIEN
3. Une fois dans le rédacteur de code, dans la boîte combo d'objet, le cmdReset choisi et mettent en application son événement de clic comme suit :
    

   Private Sub cmdReset_Click() ' Make all text boxes empty txtFirstName = "" txtMI = "" txtLastName = "" txtFullName = "" txtUsername = "" End Sub

4. Cliquer la ligne vide entre le txtFullName_BeforeUpdate et le sous-marin secondaires privés d'extrémité. Noter que la boîte combo d'objet montre le txtFullName.
5. Dans la boîte combo de procédé, choisir DblClick et mettre en application l'événement comme suit :
    

   Private Sub txtFullName_DblClick(Cancel As Integer) Dim strFullName As String strFullName = "Mary D. Lunden" txtFullName = strFullName End Sub

6. Revenir à la forme et double-cliquer la boîte des textes de nom et prénoms
7. Après visionnement de la forme, la commuter à la vue et au retour de conception à de base visuel de Microsoft

& opérateur est employé pour apposer deux cordes, les teneurs de deux commandes, ou des expressions ; ceci est considéré comme les enchaînant. Par exemple, il pourrait te permettre d'enchaîner un prénom et un dernier nom, produisant un nom et prénoms. La formule générale de l'opérateur de concaténation est exprimée comme :

Value1 & Value2

Pour montrer une expression enchaînée, employer l'opérateur de tâche. Pour assigner une expression enchaînée à une variable, employer l'opérateur de tâche la même manière. Voici un exemple :

Private Sub Form_Load()
    Dim FirstName, LastName As String
    Dim FullName As String
    
    FirstName = "Francis "
    LastName = "Pottelson"
    FullName = FirstName & LastName
    Text0 = FullName
End Sub

Pour enchaîner plus de deux expressions, vous pouvez employer l'autant d'et des opérateurs entre n'importe quelle combinaison de deux expressions selon les besoins. Après avoir enchaîné les expressions ou les valeurs, vous pouvez assigner le résultat à une valeur ou à une expression différente en utilisant l'opérateur de tâche. La syntaxe utilisée est :

=Value1 & " " & Value2

Exemples

	=FirstName et « « et LastName Ceci montrerait, par exemple, Boniface Dunkerque
	= [LastName] et « , » et [FirstName] Ceci produirait, par exemple, Chang, Helene
	= [adresse] et « « et [ville] et » « et [état] et » « et [ZIPCode] et » « et [pays] Ceci montrerait une adresse complète dans un domaine

1. Dans le rédacteur de code, supprimer le code dans l'événement de txtFirstName_LostFocus
2. Dans la boîte combo d'objet, choisir le cmdCreateAccount et mettre en application son événement de clic comme suit :
    

   Private Sub cmdCreateAccount_Click() Dim strFirstName As String Dim strMiddleInitial As String Dim strLastName As String Dim strFullName As String Dim strUsername As String strFirstName = txtFirstName strMiddleInitial = txtMI strLastName = txtLastName ' Create a username made of the last name followed by the middle initial strUsername = txtLastName & strMiddleInitial ' Create a full name as the first name followed by the last name strFullName = txtFirstName & " " & txtLastName txtFullName = strFullName txtUsername = strUsername End Sub

3. Revenir au Microsoft Access, commuter la forme à la vue de forme, et cliquer le prénom
4. Dactylographier Hermine et serrer l'étiquette
5. Dactylographier D et serrer l'étiquette
6. Dans la dernière boîte nommée des textes, dactylographier les étés et serrer l'étiquette
7. Noter que le premier bouton est choisi. La pression entrent
8. Fermer la zone de dialogue. Une fois demandé si vous voulez sauver la forme, cliquer oui

Dans les mathématiques, un nombre entier tel que 120 ou un double nombre flottant tel que 98.005 est qualifié en tant que positif ; c'est-à-dire, on le considère 0 plus grand que. Si un nombre est moins de 0, pour l'exprimer, vous pouvez ajouter - se connecter le côté gauche du nombre. Les exemples sont -5502 ou -240.65. - Le signe signifie que le nombre est négatif.

Une variable ou une expression peut également être représentée en tant que négatif en le mettant en tête avec a - signe. Les exemples sont - distance ou - NbrOfPlayers. Pour initialiser une variable avec une valeur négative, employer l'opérateur de tâche. Voici un exemple :

Private Sub Form_Load()
    Dim NumberOfTracks As Byte
    Dim Temperature As Integer
    
    NumberOfTracks = 16
    Temperature = -94
End Sub

L'addition est employée pour ajouter une valeur ou expression à l'autre. Il est employer effectué + symbole et sa formule est :

valeur1 + valeur2

L'addition te permet d'ajouter deux nombres tels que 12 + 548 ou 5004.25 + 7.63

Après avoir effectué l'addition, vous obtenez un résultat. Vous pouvez fournir un tel résultat à une variable ou à une commande différente. Ceci est fait en utilisant l'opérateur de tâche. La formule utilisée serait :

= valeur1 + valeur2

1. Ouvrir la forme de frmAlgebraicOperators.
2. Après le visionnement elle, le commutent à la vue de conception
3. Les ressources de accompagnement incluent des images des figures géométriques. Pour augmenter la forme, vous pouvez les ajouter. Faire le ce, sur la boîte à outils, cliquent l'image et cliquent le secteur gauche des étiquettes. Sur la zone de dialogue d'image d'insertion, localiser l'image et l'ajouter.
4. Sur la forme, cliquer la tableau quadrilatérale Droit-cliquent le dessus calculent le bouton et cliquent l'événement de construction…
5. Sur la zone de dialogue de constructeur de choix, double-cliquer le constructeur de code.
6. Dans la boîte combo d'objet, choisir le cmdRCalculate
7. Mettre en application les deux événements de clic comme suit :
    

   Private Sub cmdRCalculate_Click() Dim dblLength, dblHeight As Double Dim dblPerimeter As Double dblLength = txtRLength dblHeight = txtRHeight ' Calculate the perimeter of the rectangle ' by adding the length to the height, 2 times each dblPerimeter = dblLength + dblHeight + dblLength + dblHeight txtRPerimeter = dblPerimeter End Sub Private Sub cmdSqCalculate_Click() Dim dblSide As Double Dim dblPerimeter As Double dblSide = txtSqSide ' Calculate the perimeter of a square by adding the side 4 times dblPerimeter = dblSide + dblSide + dblSide + dblSide txtSqPerimeter = dblPerimeter End Sub

8. Revenir à la forme et la commuter à la vue de forme
9. Dans l'étiquette quadrilatérale, cliquer le côté et le type 35.55
10. Cliquer le dessus calculent le bouton
11. Cliquer la longueur et le type 42.72
12. Cliquer la taille et le type 36.44
13. Cliquer l'autre calculent le bouton
14. Après avoir employé la forme, revenir au rédacteur de code

La soustraction est exécutée en recherchant une valeur d'une autre valeur. Ceci est fait en utilisant - le symbole. La syntaxe utilisée est :

valeur1 - valeur2

La valeur de la valeur 1 est soustraite de la valeur de la valeur 2. Après que l'opération soit effectuée, une nouvelle valeur résulte. Ce résultat peut t'être employé de quelque façon veulent. Par exemple, vous pouvez le montrer dans une commande en utilisant l'opérateur de tâche comme suit :

= valeur1 - valeur2

La multiplication laisse ajouter une valeur à elle-même un certain nombre de fois, ensemble par la deuxième valeur. La multiplication est exécutée avec * le signe qui est dactylographié avec le décalage + 8. Voici un exemple :

valeur1 * valeur2

Pendant l'opération, la valeur 1 est à plusieurs reprises ajoutée à elle-même, temps de valeur 2. Le résultat peut être assigné à une autre valeur ou être montré dans une commande comme suit :

= valeur1 * valeur2

1. Pour appliquer l'opération de multiplication, changer les événements de clic comme suit :
    

   Private Sub cmdRCalculate_Click() Dim dblLength, dblHeight As Double Dim dblPerimeter As Double Dim dblArea As Double dblLength = txtRLength dblHeight = txtRHeight ' Calculate the perimeter of the rectangle ' by adding the length to the height, 2 times each dblPerimeter = dblLength + dblHeight + dblLength + dblHeight dblArea = dblLength * dblHeight txtRPerimeter = dblPerimeter txtRArea = dblArea End Sub Private Sub cmdSqCalculate_Click() Dim dblSide As Double Dim dblPerimeter As Double Dim dblArea As Double dblSide = txtSqSide ' Calculate the perimeter of a square by adding the side 4 times dblPerimeter = 4 * dblSide dblArea = dblSide * dblSide txtSqPerimeter = dblPerimeter txtSqArea = dblArea End Sub

2. Obtenir de nouveau à la forme et cliquer tous les deux calculent des boutons :
    
   
3. Après avoir employé la forme, la commuter à la vue de conception et obtenir de nouveau au rédacteur de code
4. Dans la boîte combo d'objet, choisir le cmdCCalculate et mettre en application son événement de clic comme suit :
    

   Private Sub cmdCCalculate_Click() Dim dblRadius As Double Dim dblCircumference, dblArea As Double dblRadius = txtCircleRadius ' Circumference of a circle = 2 * Radius * PI dblCircumference = 2 * dblRadius * 3.14159 ' Area of a circle = Radius * Radius * PI dblArea = 3.14159 * dblRadius * dblRadius txtCircleCircumference = dblCircumference txtCircleArea = dblArea End Sub

5. Revenir à la forme et la commuter à la vue de forme
6. Cliquer l'étiquette circulaire et changer le rayon supérieur (le rayon du cercle) en 64.88 et cliquer le dessus calculent le bouton :
    
   
7. Après avoir employé la forme, la commuter à la vue de conception

La division d'un article signifie le découpage il dans les morceaux ou les fractions d'une valeur d'ensemble. Par exemple, quand vous coupez une pomme au milieu, vous le divisez dans 2 morceaux. Si vous coupez chacun des morceaux résultants, vous obtiendrez 4 morceaux ou fractions. Ceci est considéré que vous avez divisé la pomme dans 4 divisions. Par conséquent, la division est employée pour obtenir la fraction d'un nombre en termes de des autres.

De base visuel de Microsoft fournit deux types de résultats pour l'opération de division. Si vous voulez que le résultat de l'opération soit un nombre normal, appelé un nombre entier, utilisation « d'opérateur de jeu de denture \ » comme diviseur. Voici un exemple :

valeur1 \ valeur2

Cette opération peut être effectuée sur deux types de nombres valides, avec ou sans pièces décimales. Après l'opération, le résultat serait un nombre normal. Le résultat de l'opération peut être assigné à une autre valeur. Il peut également être montré dans une commande en utilisant l'opérateur de tâche :

= valeur1 \ valeur2

Le deuxième type de résultats de division dans un nombre décimal. Il est exécuté avec « vers l'avant d'estafilade/ ». Sa syntaxe est :

valeur1 / valeur2

Après que l'opération soit effectuée, le résultat est un nombre décimal. Le résultat de l'une ou l'autre opération peut être assigné à une autre valeur. Il peut également être montré dans une commande en utilisant l'opérateur de tâche :

= valeur1 / valeur2

L'élévation à une puissance est la capacité de soulever un nombre à la puissance d'un autre nombre. Cette opération est effectuée en utilisant l'opérateur de ^ (décalage + 6). Elle emploie la formule mathématique suivante:

yx

Dans de base visuel de Microsoft (et le Microsoft Access), cette formule est écrite comme :

y^x

et moyens la même chose. L'un ou l'autre ou y et x peuvent être des valeurs ou des expressions, mais ils doivent porter les valeurs valides qui peuvent être évaluées.

Quand l'opération est effectuée, la valeur de y est augmentée à la puissance du X. Vous pouvez montrer le résultat d'une telle opération dans un domaine en utilisant l'opérateur de tâche comme suit :

=y^x

Vous pouvez également assigner l'opération à une expression comme suit :

Total = y^x

1. Revenir au rédacteur de code et changer le code du cmdSqCalculate_Click comme suit :
    

   Private Sub cmdSqCalculate_Click() Dim dblSide As Double Dim dblPerimeter As Double Dim dblArea As Double dblSide = txtSqSide ' Calculate the perimeter of a square by adding the side 4 times dblPerimeter = 4 * dblSide dblArea = dblSide ^ 2 txtSqPerimeter = dblPerimeter txtSqArea = dblArea End Sub

2. Obtenir à la forme et la commuter à la vue de forme.
3. Dans la feuille quadrilatérale de propriété, écrire 12.46 dans la boîte latérale des textes et cliquer le dessus calculent
4. Après avoir employé la forme, la commuter à la vue de conception

L'opération de division donne un résultat des valeurs décimales d'un nombre avec ou sans, qui est très bien dans quelques circonstances. Parfois vous voudrez obtenir la valeur restante après qu'une division rende un résultat normal. Imaginer que toi avoir 26 enfants à un stade du football (le football) et eux êtes sur le point de commencer. Vous savez que vous avez besoin de 11 enfants pour que chaque équipe commence. Si le jeu commence par la bonne quantité de joueurs, queest-ce qu'assiéront et attendront ?

The remainder operation is performed with keyword Mod. Its syntax is:

Value1 Mod Value2

The result of the operation can be used as you see fit or you can display it in a control using the assignment operator as follows:

= Value1 Mod Value2