Announcement

Collapse
No announcement yet.

Skinning Source Code for Visual Basic

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • 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
    www.planetsourcecode.com
    PowerVoice v1 | NaviVoice Source
    GammaControl v2.4
    SKINbedder v3

    1995 Lexus SC300

    Comment


    • #3
      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%

      Comment


      • #4
        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

        Comment


        • #5
          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%

          Comment


          • #6
            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:

            http://www.mp3car.com/vbulletin/showthread.php?t=57504

            Comment


            • #7
              Any use:

              http://www.mp3car.com/vbulletin/showthread.php?t=38483

              Comment


              • #8
                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

                Comment


                • #9
                  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

                  Comment


                  • #10
                    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%

                    Comment

                    Working...
                    X