nargust
May 2nd, 2003, 04:40 AM
Dear All,
I just download activeskin4.27 demo from softshape.com. It works perfectly on VB6, but not on VB.Net. I cann't detect the value of getname method. Is it the limitation of Activeskin for using freeform in VB.net
' This is my code in VB.Net
Public Class Form1
Inherits System.Windows.Forms.Form
Dim Skinobj As ACTIVESKINLib.ISkinObject
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skin1.LoadSkin("c:\skin1.skn")
Skin1.ApplySkinByName(Me.Handle.ToInt32, "Simple")
End Sub
Private Sub Skin1_ClickEvent(ByVal sender As Object, ByVal e As AxACTIVESKINLib._ISkinEvents_ClickEvent) Handles Skin1.ClickEvent
If Skinobj.GetName = "ButtonPlay" Then MessageBox.Show("ButtonPlay")
End Sub
End Class
I saw from help file in using getname method. It shows
Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
but it can't do like this in VB.net
Anyone know, how to fix this problem.
Thanks in advance
I just download activeskin4.27 demo from softshape.com. It works perfectly on VB6, but not on VB.Net. I cann't detect the value of getname method. Is it the limitation of Activeskin for using freeform in VB.net
' This is my code in VB.Net
Public Class Form1
Inherits System.Windows.Forms.Form
Dim Skinobj As ACTIVESKINLib.ISkinObject
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skin1.LoadSkin("c:\skin1.skn")
Skin1.ApplySkinByName(Me.Handle.ToInt32, "Simple")
End Sub
Private Sub Skin1_ClickEvent(ByVal sender As Object, ByVal e As AxACTIVESKINLib._ISkinEvents_ClickEvent) Handles Skin1.ClickEvent
If Skinobj.GetName = "ButtonPlay" Then MessageBox.Show("ButtonPlay")
End Sub
End Class
I saw from help file in using getname method. It shows
Private Sub skn_Click(ByVal Source As ACTIVESKINLibCtl.ISkinObject)
but it can't do like this in VB.net
Anyone know, how to fix this problem.
Thanks in advance