Mike Hearn wrote:
I don't have Linux installed (yet). The report of 440 "Automatition Error" is from one of the Linux testers.Heh. I guess you don't know how VB works under the hood then ;)
Could you send me a +ole,+tid,+seh,+msgbox trace please?
Only thing I could provide is the source code, since I'm under the impression that you (Mike) knows Visual Basic very well, spotting the problem will be easy if it's an "obvious" problem.
Otherwise, I guess the only thing I can do is to get myself a copy of Linux. Has anyone any particular version to recommend for my purpose (install Linux and WINE as quickly as possible and find the bug)?
Private Sub Load1_Click()
If BattleHaltButton.Caption = "Halt" Then Exit Sub 'If there's an ongoing battle, do nothing
CommonDialog1.ShowOpen 'Shows the Open dialog by using Comdlg32.ocx, the dialog pops up, no problem with that
If CommonDialog1.FileName = "" Then Exit Sub 'It the user has clicked cancel, then do nothing
Load2.Visible = True
R1path = CommonDialog1.FileName 'Sets the global variable R1Path
namevar1 = CommonDialog1.FileTitle
namevar2 = Len(namevar1) - 4 'Removes .RWR from the name
Robot1.Caption = Left$(namevar1, namevar2) 'Replaces the caption 'No Robot Selected' with the robots name
R1Present = True 'Sets the global variable R1Present
Dim rIcon As String
rIcon = Robot1.Caption & "#0.ico" 'Generates the location of the robots icon, if it have any
If Dir(rIcon) = "" Then 'If the icon doesn't exist...
R1Icon = LoadPicture(App.path & "\miscdata\1#0.ico") '...then load a standard icon, we can't have invisible robots
Else
R1Icon = LoadPicture(rIcon) 'If the icon exists, load it
End If
If SelectedRobot > 6 or SelectedRobot < 1 Then 'Selects the recently opened robot, if there's no other robot selected
SelectedRobot = 1
Robot1.BackColor = vbBlack: Robot1.ForeColor = vbWhite: Robot2.BackColor = vbWhite: Robot2.ForeColor = vbBlack: Robot3.BackColor = vbWhite: Robot3.ForeColor = vbBlack: Robot4.BackColor = vbWhite: Robot4.ForeColor = vbBlack: Robot5.BackColor = vbWhite: Robot5.ForeColor = vbBlack: Robot6.BackColor = vbWhite: Robot6.ForeColor = vbBlack
End If
CommonDialog1.FileName = "" 'Resets the file name, so cancel will work
LoadRobot1 'A huge subroutine that loads which checks which weapons the robot have
ResetHistory_Click 'Another sub routine that erases the history of previous battles
End Sub
_______________________________________________ wine-users mailing list wine-users@xxxxxxxxxx http://www.winehq.org/mailman/listinfo/wine-users
