28. februar 2000 - 17:14Der er
7 kommentarer og 1 løsning
Opgave HASTER!
Jeg skal have lavet en simpel Active X. Jeg har ikke tid til selv at se på den så et færdigt svar ønskes.
Opgaven lyder:
1) Lav en ActiveX control med tekstfelterne Fornavn, Efternavn, og adresse, samt CPR-nr.
2) Lav en funktion eller procedure, der kontrollerer om CPR-nummeret overholder modulus 11 reglen og indarbejd meddelelsen om kontrollen af CPR-nummeret i ActiveX controllen. Controllen skal således kun returnere navn og CPR-nummer når alt er korrekt.
Hvis modulus 11 ikke sider dig noget så smid lige en kommentar.
Prøv at poste nedenstående i en fil, som skal hedde CPRControl.ctl og smid den i et project. I CPR textkontrollen benyttes valideringsrutinen til at kontrollere om det er et validt cpr-nummer der er indtastet - hvis ikke kan feltet ikke forlades.
Lad mig høre om det er noget i den stil du søger? Skriv en email adresse, hvis du vil have sendt koden!
VERSION 5.00 Begin VB.UserControl CPRControl ClientHeight = 1695 ClientLeft = 0 ClientTop = 0 ClientWidth = 4305 ScaleHeight = 1695 ScaleWidth = 4305 Begin VB.TextBox Text4 Height = 315 Left = 1380 TabIndex = 3 Top = 1260 Width = 2835 End Begin VB.TextBox Text3 Height = 315 Left = 1380 TabIndex = 2 Top = 540 Width = 2835 End Begin VB.TextBox Text2 Height = 315 Left = 1380 TabIndex = 1 Top = 900 Width = 2835 End Begin VB.TextBox Text1 Height = 315 Left = 1380 TabIndex = 0 Top = 120 Width = 2835 End Begin VB.Label Label4 Caption = "CPR-nummer" Height = 255 Left = 120 TabIndex = 7 Top = 180 Width = 1155 End Begin VB.Label Label3 Caption = "Adresse" Height = 255 Left = 120 TabIndex = 6 Top = 1320 Width = 1155 End Begin VB.Label Label2 Caption = "Efternavn" Height = 255 Left = 120 TabIndex = 5 Top = 960 Width = 1155 End Begin VB.Label Label1 Caption = "Fornavn" Height = 195 Left = 120 TabIndex = 4 Top = 600 Width = 1095 End End Attribute VB_Name = "CPRControl" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Option Explicit
Const c_CPRRule = "4327654321"
Private Sub Text1_Validate(Cancel As Boolean) Dim strCPR As String Dim i As Integer, l As Long
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.