/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
AktivX
Fra : Ole J. Hansen


Dato : 11-06-02 19:55

Hej NG
Jeg har lavet et AktivX, jeg får de knapper jeg skal have, men den FormMode
der er i koden,
den er REMmet, den kan ikke køre, er der en venlig sjæl der kan give mig et
hint hvor jeg
kører galt.
Hvis nogen evt havde et kodeeksempel på Update, Cancel, New, Save og Delete,
så ville
jeg blive glad.
Jeg har et program med mange forme, det ville være nemt, hvis man bare kunne
smide
AktivX'et på hver form.
Jeg er bange for, at koden her er lidt lang, men for forståelsens skyld, er
jeg nødt til at sende
dette.
Det er - Private Sub SetFormMode(Mode As ADOFormMode) - der ligesom ikke
kører.

m.v.h.
ole

Option Explicit

Private mADORecordset As ADODB.Recordset
' Private mFormMode As ADORformMode

'
Public Event Error(Number, Description, Source)
'
' form control toggle
Enum ADOFormMode
Add = 0
Edit = 1
End Enum
'
' Private mADORecordset As ADODB.Recordset
' Private mFormMode As ADORformMode

Public Property Get ADORecordset() As Recordset
Set ADORecordset = mADORecordset
End Property

Public Property Let ADORecordset(ByVal vNewValue As Recordset)
Set mADORecordset = vNewValue
End Property

' Public Property Get FormMode() As ADOFormMode
' FormMode = mFormMode
' End Property

' Public Property Let FormMode(ByVal vNewValue As ADOFormMode)
' mFormMode = vNewValue
' Call SetFormMode(mFormMode)
' End Property

Private Sub SetFormMode(Mode As ADOFormMode)
'
' toggle controls
'
Dim blnFlag As Boolean
'
' set mode flag
'
If Mode = Add Then
blnFlag = False
Else
blnFlag = True
End If
'
' set action buttons
CmdAction(0).Enabled = Not blnFlag
CmdAction(1).Enabled = Not blnFlag
CmdAction(2).Enabled = blnFlag
CmdAction(3).Enabled = blnFlag
CmdAction(4).Enabled = blnFlag

End Sub




 
 
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste