LiberarObjetosDX

Estado
Cerrado para nuevas respuestas.

Lonthar

Oráculo Lvl 4
Hola a todos!, espero que esten bien chicos.
Sinceramente nosé como solucionarlo. Nunca me pasó y no veo el error.

En el sub:
Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
        frmCargando.Show
        frmCargando.Refresh
        AddtoRichTextBox frmCargando.status, "Cerrando Argentum Online.", 0, 0, 0, 1, 0, 1
        
        Call SaveGameini
        frmConnect.MousePointer = 1
        frmMain.MousePointer = 1
        prgRun = False
        
        AddtoRichTextBox frmCargando.status, "Liberando recursos..."
        frmCargando.Refresh
        LiberarObjetosDX
        AddtoRichTextBox frmCargando.status, "Hecho", 0, 0, 0, 1, 0, 1
        AddtoRichTextBox frmCargando.status, "¡¡Gracias por jugar Argentum Online!!", 0, 0, 0, 1, 0, 1
        frmCargando.Refresh
        Call UnloadAllForms
End If
End Sub
Me marca:
Código:
LiberarObjetosDX
Sub Or Function not defined.
Muchisimas gracias a todos.
 

Franeg95

CARP
Ex-Staff
Agrega esto:

Código:
Public Sub LiberarObjetosDX()
Err.Clear
On Error GoTo fin:
Dim loopc As Integer
 
Set PrimarySurface = Nothing
Set PrimaryClipper = Nothing
Set BackBufferSurface = Nothing
 
Set DirectDraw = Nothing
 
Set DirectX = Nothing
Exit Sub
fin: LogError "Error producido en Public Sub LiberarObjetosDX()"
End Sub
 
Estado
Cerrado para nuevas respuestas.
Arriba