Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - cobein

#611
Si no la pifio, eso es porque la ventana tiene asignada una region pero el tipo de ventana sigue siendo normal (con caption) entonces windows no deja quitar el caption del area visible (escritorio) por cuestiones logicas.
#612
Programación Visual Basic / Re: bug en el vb6
25 Abril 2008, 21:32 PM
No te lo de ja usar no por lo que dice sino por que esta MAL escrito.
No es un bug sino una linea MAL escrita.


Private Sub form_load()
Dim variable As String
variable = "bad("coding")"
variable = "good(""""coding"""")"
End Sub
#613
Programación Visual Basic / Re: bug en el vb6
25 Abril 2008, 21:06 PM
xD nada para decir!
#614
Hola, aca les dejo un snippet que muestra como obtener carpetas del sistema, no es nada nuevo pero este codigo esta rediucido y bastante optimizado.


Código (vb) [Seleccionar]
Option Explicit

Private Const CSIDL_SYSTEM As Long = &H25

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" (ByVal pszPath As String) As Long

Private Function GetSpecialfolder(ByVal CSIDL As Long) As String
    Dim sPath   As String * 260
   
    If SHGetSpecialFolderLocation(0, CSIDL, CSIDL) = 0 Then
        If Not SHGetPathFromIDList(CSIDL, sPath) = 0 Then
            Call PathAddBackslash(sPath)
            GetSpecialfolder = Left$(sPath, lstrlen(sPath))
        End If
    End If
End Function

Private Sub Form_Load()
    Debug.Print GetSpecialfolder(CSIDL_SYSTEM)
End Sub

#615
La verdad no tengo idea de cual es el problema y tampoco como probarlo, pero porque no probas haciendo asi posiblemente lo resuelva.

dim sData as string
sData = StrConv("Tu_String", vbUnicode)


#616
for i = UBound(contactos) to LBound(Contactos)
#617
Mira podes usar el control que postie aca el ucImage que las rota.. u otra solucion simple es usar PlgBlt para rotarla.



Edit:

Aca te dejo los links

ucImage:
http://foro.elhacker.net/index.php/topic,204651.0.html

PlgBlt:
http://www.uploadsourcecode.com.ar/d/gjDklZ3bM4GmLqWRj5RVcoVE8qnliIAq
#618
@ seba123neo

Gracias, se meocurrio armar una mini pagina para poner todo ahi, por que la verdad vengo poniendo cosas por todos lados y despues la mitad de los links desaparecen asi que decidi poner todo junto ahi de ahora en mas.


@schumacher

Supongo que hablas de OCR.... en PSC hay varios ejemplos de eso.
#619
Holi holas

Varias veces preguntaron como crear splash screen con PNGs asi que aca dejo una clase muy simple de usar, una llamada y listo.

Espero que les guste.

Descarga

Abril 18: http://cobein27.googlepages.com/

#620
Programación General

Subforos: Ejercicios, Ingeniería Inversa, .NET, Scripting, Java


Hasta donde tengo entendido esto es para VB6 , pero bueno no hay que discutir mucho, si algun moderador cree que esta mal lo arreglara. Asi que no me prestes atencion.