Results 1 to 10 of 10

Thread: Skinning Source Code for Visual Basic

  1. #1
    FLAC NiN^_^NiN's Avatar
    Join Date
    Aug 2004
    Location
    Australia, Melbourne
    Posts
    1,230

    Skinning Source Code for Visual Basic

    Does anyone have some simple clean source code for skinning a Visual Basic app?

    I've got to many programs on the go and don't have time to create the code (plus there has been a few requests on this board about doing it in vb)

    So does anyone have some working code to post?

    Thanks guys
    CarPC Status:
    GPS: 99%
    Hardware: 99%
    Software: 92%
    Case Install: 99.9%
    Dash Install: 100%
    Car Install: 72%

  2. #2
    My Village Called 0l33l's Avatar
    Join Date
    Jul 2004
    Location
    Berkeley, CA
    Posts
    10,516

  3. #3
    FLAC NiN^_^NiN's Avatar
    Join Date
    Aug 2004
    Location
    Australia, Melbourne
    Posts
    1,230
    been there its useless

    I need a simple example
    CarPC Status:
    GPS: 99%
    Hardware: 99%
    Software: 92%
    Case Install: 99.9%
    Dash Install: 100%
    Car Install: 72%

  4. #4
    Mobile Impact Creator reddeath30's Avatar
    Join Date
    Mar 2005
    Location
    Fontana, California
    Posts
    1,142
    What kind of skinning are you talking about, something to do animated buttons, skinned scrollbars? what exactly?
    Mobile Impact
    Highly innovative car computer multimedia/entertainment system software.
    http://mobileimpact.biz.tm

  5. #5
    FLAC NiN^_^NiN's Avatar
    Join Date
    Aug 2004
    Location
    Australia, Melbourne
    Posts
    1,230
    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.
    CarPC Status:
    GPS: 99%
    Hardware: 99%
    Software: 92%
    Case Install: 99.9%
    Dash Install: 100%
    Car Install: 72%

  6. #6
    Newbie
    Join Date
    Apr 2005
    Posts
    34
    Quote Originally Posted by reddeath30
    What kind of skinning are you talking about, something to do animated buttons, skinned scrollbars? what exactly?
    I wouldn't mind an example that shows some basics. Something I could use to skin an app like this:

    Offline News Reader / Skinnable Software

  7. #7
    Raw Wave
    Join Date
    Jun 2004
    Location
    On the beach
    Posts
    2,223

  8. #8
    Mobile Impact Creator reddeath30's Avatar
    Join Date
    Mar 2005
    Location
    Fontana, California
    Posts
    1,142
    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
    Mobile Impact
    Highly innovative car computer multimedia/entertainment system software.
    http://mobileimpact.biz.tm

  9. #9
    FLAC PURDooM's Avatar
    Join Date
    Jun 2005
    Location
    Anoka County, MN
    Posts
    1,020
    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.
    Current projects: iGmod reloaded (Latest release) (put on hiatus indefinatly)

    Unlimited Internet and gps tracking for $6 a month with boost mobile!

    Carputer 2: www.lmaocar.com

  10. #10
    FLAC NiN^_^NiN's Avatar
    Join Date
    Aug 2004
    Location
    Australia, Melbourne
    Posts
    1,230
    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
    CarPC Status:
    GPS: 99%
    Hardware: 99%
    Software: 92%
    Case Install: 99.9%
    Dash Install: 100%
    Car Install: 72%

Similar Threads

  1. GPS/MapPoint VB Source Code
    By stevieg in forum Software & Software Development
    Replies: 7
    Last Post: 01-28-2011, 04:59 PM
  2. Alpha Release: XMPC-CAR for XM
    By gork in forum Software & Software Development
    Replies: 88
    Last Post: 01-11-2006, 01:19 PM
  3. Source code bugged
    By Saldorri in forum Media Engine
    Replies: 0
    Last Post: 07-29-2005, 09:23 AM
  4. GPS:MM shutdown RR when switch skin
    By MatrixPC in forum RR Bug Tracker
    Replies: 5
    Last Post: 05-12-2005, 12:07 PM
  5. master volume doesnīt work
    By free2world8000 in forum RR Bug Tracker
    Replies: 14
    Last Post: 02-17-2005, 01:08 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •