Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

How do iIchange the gui(800x600) to a bmp.


minipimp
 Share

Recommended Posts

ok, put both .bmp and .jpg in the folder, then open up source and go to frmMirage

go in the code and find:
```
Private Sub Form_Load()

    Dim Ending As String

    For i = 1 To 4
        If i = 1 Then Ending = ".gif"
        If i = 2 Then Ending = ".jpg"
        If i = 3 Then Ending = ".png"
        If i = 4 Then Ending = ".bmp"

        If FileExists("GUI\800X600" & Ending) Then
            frmMirage.Picture = LoadPicture(App.Path & "\GUI\800X600" & Ending)
        End If

    Next i
End Sub
```
change it to this
```

Private Sub Form_Load()

        If FileExists("GUI\800X600.bmp") Then
            frmMirage.Picture = LoadPicture(App.Path & "\GUI\800X600.bmp")
        End If
End Sub
```
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...