Opgave HASTER!

Der er 200 points i bonus for et svar i dag.

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
   
    Cancel = True
   
    strCPR = Text1.Text
    strCPR = Replace(strCPR, " ", "")
    strCPR = Replace(strCPR, "-", "")
   
    l = 0
    If (Len(strCPR) = 10) And IsNumeric(strCPR) Then
        For i = 1 To 10
            l = l + CInt(Mid(strCPR, i, 1)) * CInt(Mid(c_CPRRule, i, 1))
        Next
       
        Cancel = Not ((l Mod 11) = 0)
    End If
    If Cancel Then
        MsgBox "Det indtastede CPR-nummer er forkert", vbCritical, "CPR kontrol"
    End If
End Sub

Mvh

Jeg kan ikke rigtig køre koden. Mangler der ikke en startup form?

Prøv at sende koden til forlaget@bigfoot.com

Ja det ser fint ud. Men hvad med: "Controllen skal således kun returnere navn og CPR-nummer når alt er korrekt."

Det betyder vist en listbox eller hvad? Jeg vil gerne lige have en listbox på der viser resultatet af indtastning af cpr.

Hvordan kan en kontrol returnere noget? Prøv at forklare lide nærmere hvad du gerne vil have lavet. Hvad skal der ske med den listbox?

Mvh

Ved du hvad - det er faktisk godt nok det du har lavet ;-)

Jeg ville blive glad hvis du gad at se på http://www.eksperten.dk/spm.asp?id=12502 i aften.

Well, det er vist gjort...