En Applikation Lignende den her ?

Det er det program som hedder HH Sjov .. Kan man Decompile filen og se hvorn det er lavet eller ?

ups, det er det første program man kan se når man går ind på siden www.g3300.webbyen.dk ..

Er her lidt help at hente ? :S

Er her ingen HJÆLP at hente ?

' ---------------------------- Form1 ----------------------------
' Så skal du bare ha en PictureBox (Picture1) på din Form (Form1)
' og nogle billeder..
'
' Find 'Picture' under 'Properties' på Picture1 og Form1 og vælg de
' billeder du skal ha på.
Option Explicit

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  With Picture1 ' <- PictureBox
      .Top = (Y - (.ScaleHeight \ 2))
      .Left = (X - (.ScaleWidth \ 2))

      If .Top < 0 Then
        .Top = 0
      ElseIf (.Top + .ScaleHeight) > Me.ScaleHeight Then
        .Top = (Me.ScaleHeight - .ScaleHeight)
      End If

      If .Left < 0 Then
        .Left = 0
      ElseIf (.Left + .ScaleWidth) > Me.ScaleWidth Then
        .Left = (Me.ScaleWidth - .ScaleWidth)
      End If
  End With
End Sub
' ---------------------------- Form1 ----------------------------

Hvordan gør jeg så det med navnet ?

Kan jeg gøre ligesom man kan i det program der ? hvor man kan skifte rum ude i siden ?

Det vel bare at sætte en

Private Sub Label1_Click()
Picture1.Picture="newpic.gif"
End Sub

Eller ?

Hvordan gør jeg baggrunden gennemsigtig i en PictureBox ?

Ok nu har jeg lavet det hele for dig!
http://vbhansen.dk/spm/703318/vbHHSjov.zip

Sjh, er du G3300 ?

nej da

Jeg er bare god til programmering ;)

Hvordan har du så kunne lave det ? Har du Decompilet ?

Jeg er 95% sikker på at man ikke kan decompile en exe-file.. det er meget svært at decompile et program.. men det er ikke så svært at lave sådan et lille program dem HH Sjov.

sådan et lille program SOM HH Sjov.

Hmm .. Det virker som om du er G3300 .. :) Men okey hvis du siger du ikk er så er du ikke .. :) sys bare det er lidt for perfekt efterlignet til at være en kopi ..

Private Sub lblLejlighed_Click(Index As Integer)
  If Index = 0 Then
    Me.Picture = LoadPicture(App.Path & "\BG1.jpg")
      Else
    Me.Picture = LoadPicture(App.Path & "\BG2.jpg")
  End If
End Sub
Hvis jeg vil tilføje et rum mere igen ? Hvorn gør jeg det ?

G3300 = Gerard 3300 ..

Lav en kopi af lblLejlighed (Label) (CTRL + C og CTRL + V)

så kan du lave det sådan:

Private Sub lblLejlighed_Click(Index As Integer)
Dim strFile As String
  Select Case Index
        Case 0
          strFile = "BG1.jpg"
        Case 1
          strFile = "BG2.jpg"
        Case 2
          strFile = "BG3.jpg"
        Case 3
          strFile = "BG4.jpg"
  End Select
  Me.Picture = LoadPicture(App.Path & "\" & strFile)
End Sub

Hvorfor kan jeg ikk flytte på Objekterne inde i selve Editoren ? det er som om de er låste .. :S

Højre klik på Vinduet (Form) tryk på 'Lock Controls' så skulle den være der..

arh skønt .. :) heeh .. Det irriterede mig .. :)
Laver du oppe så sent ?

Laver du oppe så sent ? Hvad mener du ??

det er da lidt halv sent er det ikk ? heeh ..

ha ha halv sent er klokken 01.30 helt sent er klokken 02.30 og så kan jeg lige nå at få 6 timers søvn ;)

heeh ,, :) Nu har jeg fået tilføjet lidt flere rum, nu skal jeg til og gøre så man kan være andre ting .. :) kender du godt NS aka HøjHuset?

desværre.. men god fornøjelse..

heeh Joo TaaK Daa .. :) og siger Mange TaaK .. :)

jamen selv tak..

:) Har du msn ? så kunne det være du kunne hjælpe mig en anden gang jo .. :)

Det har jeg.. men chefen syntes ikke det er så smart.. ;)

Arh okey .. har du da ikk msn på din egen maskine ?

Jo jeg har selv et par. computer.. men den tid jeg bruger på dem vil jeg godt ha for mig selv..

Kan jeg Implentere billederne ? for hvis jeg flytter exe filen virker det ikke fordi at billede filerne ikke ligger der .. :S

Jeg tror du har fået hjælp nok for de 60 point ;) (Det er ikke fordi jeg mangler point, men der er andre her inde på eksperten som måske også kunne hjælpe dig lidt)

heeh okey, jeg prøver og spørge ad så ..