Hejsan! I vb skapar du objekt med Class moduler. Vilket du ger medlemmar. Detta var bara ett kort exempl. Eget objekt? komponent?
Jag är lite nybörjare på VB så ha förtröstan! =)
Jag vet att man kan göra en egen Sub eller Funktion
tex public sub hej()
Men jag vill göra ett objekt, eller "sub och funktionsamling"
såhär:
public object hej()
'Här i ska det finnas flera methods och properties tex
prop skriv(texten as string)
msgbox texten
end prop
End object
Sen ska man kunna anropa detta som följande
hej.skriv("detta funkar!")
Hur gör man!? / Olle
Tack*1000Sv: Eget objekt? komponent?
Exempel:
'Class1 ---------------------------------
Public Event SkakaHand(Value As Boolean)
Private mFärg As Long
Private mObject As Object
Public Sub Hälsa(Namn As String)
RaiseEvent SkakaHand(True)
MsgBox "Hej " & Namn & ". Hur mår du?"
RaiseEvent SkakaHand(False)
End Sub
Public Property Get Färg() As Long
Färg = mFärg
End Property
Public Property Let Färg(vData As Long)
mFärg = vData
End Property
Public Property Get Object() As Long
Set Object = mObject
End Property
Public Property Set Object(vData As Object)
SetmObject = vData
End Property
'Form1 ---------------------------------
Private WithEvents MyClass As Class1
Private Sub Command1_Click()
MyClass.Hälsa Text1
End Sub
Private Sub Form_Load()
Set MyClass = New Class1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set MyClass = Nothing
End Sub
Private Sub MyClass_SkakaHand(Value As Boolean)
If Value Then
Label1 = "Skakar hand..."
Else
Label1 = ""
End If
End SubSv: Eget objekt? komponent?
Tror det finns en kurs här på pellesoft där objekt orientering i vb tas upp...