Thread: Skinning Source Code for Visual Basic

www.planetsourcecode.com

been there its useless

I need a simple example

What kind of skinning are you talking about, something to do animated buttons, skinned scrollbars? what exactly?

well its for afew different projects i got like tv tuner program etc.

Simple image box with a hover over and click effect basiclly.

Maybe ini example as well for what dir the skin is in.

Here is an example of what I used in Mobile Impact to do the vertical scroll bars in the filelist in the media player module. I liked to use the picture.paintpicture method with picture boxes as they stay on top of most other controls and you can just paint a small section from one picture to another, making it very usefull. Create picture boxes then use the loadpicture statements to fill them with your preferred picture. I hope this points you in the right direction or at least A direction.

Private Sub Form_Load()
Picture7 = LoadPicture(App.Path & "\Skins\" & txtSkin & "\audio_vertical_slider.jpg")
Picture8 = LoadPicture(App.Path & "\Skins\" & txtSkin & "\audio_vscroll.jpg")
end sub

Private Sub Picture8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture8.Refresh
Picture8.PaintPicture Picture7, 0, Y - Picture7.Height / 2, 810, 450, 0, 0, 810, 450
End If

Dim loc
Dim dur
loc = Picture8.Height / vscroll.Max - 1
dur = Y / loc
vscroll.Value = dur

Dim dex As Integer
dex = vscroll.Value
filelist.ListItems(dex).Selected = True
filelist.selectedItem.EnsureVisible
End Sub

Private Sub Picture8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture8.Refresh
Picture8.PaintPicture Picture7, 0, Y - Picture7.Height / 2, 810, 450, 0, 0, 810, 450

If Y - Picture7.Height / 2 < 0 Then
Picture8.PaintPicture Picture7, 0, 0, 810, 450, 0, 0, 810, 450
End If

If Y + Picture7.Height / 2 > Picture8.Height Then
Picture8.PaintPicture Picture7, 0, Picture8.Height - Picture7.Height, 810, 450, 0, 0, 810, 450
End If

End If
End Sub

Private Sub Picture8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture8.Refresh
Picture8.PaintPicture Picture7, 0, Y - Picture7.Height / 2, 810, 450, 0, 0, 810, 450
End If

Dim loc
Dim dur
loc = Picture8.Height / vscroll.Max - 1
dur = Y / loc
vscroll.Value = dur

Dim dex As Integer
dex = vscroll.Value
filelist.ListItems(dex).Selected = True
filelist.selectedItem.EnsureVisible

If vscroll.Value = vscroll.Max Then
Picture8.PaintPicture Picture7, 0, Picture8.Height - Picture7.Height, 810, 450, 0, 0, 810, 450
End If
If vscroll.Value = vscroll.min Then
Picture8.PaintPicture Picture7, 0, 0, 810, 450, 0, 0, 810, 450
End If

End Sub

If you are writing the software yourself, what I recomend doing is figuring out how to make regions of your windows transparent. iGmod loosely follows this example to acomplish that: http://www.thescarms.com/vbasic/IrregularForms.asp

Then just make some bitmaps and put them on the form as pictureboxes and bam, your windows are skinned.

Wil have a play when i get home thanks guys

I'll post a sample project when i sort it out for other people

Looks like a skinnable tv turner is gonna be available very shortly