FatboyPat
03-04-2005, 10:09 PM
Hi all im a noob when it comes to vb, and im trying to figure out how to make a card game using the cards.dll file.
right now i have a module
Declare Function cdtInit Lib "Cards32.Dll" (dx As Long, dy As Long) As Long
Declare Function cdtDrawExt Lib "Cards32.Dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy As Long, ByVal ordCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtDraw Lib "Cards32.Dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtTerm Lib "Cards32.Dll" () As Long
and a main form_load that looks a little like this :
Private Sub Form_Load()
Dim DUMMIE As Integer
DUMMIE = CdtInit(100, 100)
End Sub
Well.. it tells me it cant find the file. now i know that theres a 16 bit file thats just "cards.dll" and ive tried that two, and i have tried to put "C:\Windows\System\Cards.dll" but that didnt work either... anyone know whats going on?
right now i have a module
Declare Function cdtInit Lib "Cards32.Dll" (dx As Long, dy As Long) As Long
Declare Function cdtDrawExt Lib "Cards32.Dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy As Long, ByVal ordCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtDraw Lib "Cards32.Dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long
Declare Function cdtTerm Lib "Cards32.Dll" () As Long
and a main form_load that looks a little like this :
Private Sub Form_Load()
Dim DUMMIE As Integer
DUMMIE = CdtInit(100, 100)
End Sub
Well.. it tells me it cant find the file. now i know that theres a 16 bit file thats just "cards.dll" and ive tried that two, and i have tried to put "C:\Windows\System\Cards.dll" but that didnt work either... anyone know whats going on?