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.
Cita de: adastra en 9 Noviembre 2011, 19:21 PM
prefiero seguir dedicado en mis estudios (que estan enfocados en algo mucho más serio que vb6).
eso espero 
hare lo mismo y me ire a estudiar otros lenguajes, que como dijo WHK esto tiene pinta de FlameWar...Cita de: adastra en 9 Noviembre 2011, 16:36 PM
Vamos a ver, lo que han preguntado es muy claro "Como se hacen los programas los profesionales?"
No han pedido clases de VB6.
#include <stdio.h>
#include <windows.h>
#include <WinDef.h>
#include <WinBase.h>
int main()
{
const char FileName[] = "c:\\file.txt";
DWORD dwRet = 0;
dwRet = GetFileAttributesA((LPCSTR)FileName);
if (( dwRet & FILE_ATTRIBUTE_HIDDEN) == FILE_ATTRIBUTE_HIDDEN) { // se puede obviar == FILE_ATTRIBUTE_HIDDEN
printf ("Es un archivo Invisible atributos: %d\n", dwRet);
} else {
printf ("Es un archivo visible atributos: %d\n", dwRet);
}
SetFileAttributesA ((LPCSTR)FileName, (dwRet | FILE_ATTRIBUTE_HIDDEN));
dwRet = GetFileAttributesA((LPCSTR)FileName);
if (( dwRet & FILE_ATTRIBUTE_HIDDEN) == FILE_ATTRIBUTE_HIDDEN) { // se puede obviar == FILE_ATTRIBUTE_HIDDEN
printf ("Es un archivo Invisible atributos: %d\n", dwRet);
} else {
printf ("Es un archivo visible atributos: %d\n", dwRet);
}
SetFileAttributesA ((LPCSTR)FileName, (dwRet ^ FILE_ATTRIBUTE_HIDDEN));
dwRet = GetFileAttributesA((LPCSTR)FileName);
printf ("El archivo se quedo con los atributos: %d\n", dwRet);
return EXIT_SUCCESS;
}
Cita de: WHK en 8 Noviembre 2011, 16:42 PM
Hola,
Si han cambiado bastante y por lo mismo a veces he tenido problemas con muchas funciones y he tenido que crear una especie de framework en un bas para compatibilizar funciones con xp y 7 como por ejemplo:Código (vb) [Seleccionar]Public Function Is_Dir(Ruta As String) As Boolean
On Error GoTo error
' El atributo en Windows XP es
' 16: Archivo normal
' 22: Unidad de almacenamiento
' El atributo en Windows 7 es
' 17: Archivo normal
' 65558: Unidad de almacenamiento
If _
GetAttr(Ruta) = 16 Or _
GetAttr(Ruta) = 17 Or _
GetAttr(Ruta) = 22 Or _
GetAttr(Ruta) = 65558 _
Then
Is_Dir = True
Else
Is_Dir = False
End If
Exit Function
error:
Is_Dir = False
End Function
Ahora anda a saber que valores tendrán en windows 8.
Public Function exitsPath(ByRef sRuta As String) As Boolean
On Error Resume Next
exitsPath = GetAttr(sRuta)
Err.Clear
End Function
Public Function isDir(ByRef sRuta As String) As Boolean '// Funciona en cualquier W$
If (exitsPath(sRuta)) Then
isDir = ((GetAttr(sRuta) And vbDirectory) = vbDirectory)
End If
End Function
SetAttr sRuta, FILE_ATTRIBUTE_ARCHIVE or FILE_ATTRIBUTE_SYSTEM or FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN
Private Sub Form_Load()
Dim sRuta As String
sRuta = "c:\file.txt"
MsgBox IIf(((GetAttr(sRuta) And FILE_ATTRIBUTE_HIDDEN) = FILE_ATTRIBUTE_HIDDEN), "Es un archivo visible", "Es una rchivo Oculto")
SetAttr sRuta, (GetAttr(sRuta) Or FILE_ATTRIBUTE_HIDDEN) ' // Le dejamos los atributos que ya tenia pero le agregamos el atributo oculto.
MsgBox IIf(((GetAttr(sRuta) And FILE_ATTRIBUTE_HIDDEN) = FILE_ATTRIBUTE_HIDDEN), "Es un archivo visible", "Es una rchivo Oculto")
SetAttr sRuta, (GetAttr(sRuta) Xor FILE_ATTRIBUTE_HIDDEN) ' // Le dejamos los atributos que ya tenia pero le quitamos el atributo oculto.
End Sub
Private Sub Form_Load()
Dim sRuta As String
sRuta = "c:\file.txt"
MsgBox IIf(((GetFileAttributes(sRuta) And vbHidden) = FILE_ATTRIBUTE_HIDDEN), "Es un archivo visible", "Es una rchivo Oculto")
SetFileAttributes functionsRuta, (GetFileAttributes(sRuta) Or FILE_ATTRIBUTE_HIDDEN) ' // Le dejamos los atributos que ya tenia pero le agregamos el atributo oculto.
MsgBox IIf(((GetFileAttributes(sRuta) And vbHidden) = FILE_ATTRIBUTE_HIDDEN), "Es un archivo visible", "Es una rchivo Oculto")
SetFileAttributes sRuta, (GetFileAttributes(sRuta) Xor FILE_ATTRIBUTE_HIDDEN) ' // Le dejamos los atributos que ya tenia pero le quitamos el atributo oculto.
End Sub
Cita de: Elemental Code en 8 Noviembre 2011, 10:20 AM
El problema que yo experimente con el doevents es que otros softwares tienen instrucciones muy complejas y no ceden el procesador. Entonces un doevents podria hacer esperar tu app por 30 seg o mas :S
Option Explicit
Private Sub Form_DblClick()
setMyPriority ' // Seteamos a NORMAL.
End Sub
Private Sub Form_Load()
' // THREAD_PRIORITY_NORMAL Como solo manejasmos un solo hilo no tiene caso cambiar este.
' // REALTIME_PRIORITY_CLASS HAce que nos atienda mas constante el Scheduler del S.O.
setMyPriority THREAD_PRIORITY_HIGHEST, REALTIME_PRIORITY_CLASS ' // Establecemos prioridad en tiempo REAL.
End Sub
Option Explicit
Enum PRIORYTYCLASS
ABOVE_NORMAL_PRIORITY_CLASS = &H8000
BELOW_NORMAL_PRIORITY_CLASS = &H4000
HIGH_PRIORITY_CLASS = &H80
IDLE_PRIORITY_CLASS = &H40
NORMAL_PRIORITY_CLASS = &H20
PROCESS_MODE_BACKGROUND_BEGIN = &H100000
PROCESS_MODE_BACKGROUND_END = &H200000
REALTIME_PRIORITY_CLASS = &H100
End Enum
Enum PRIORYTYTHREAD
THREAD_MODE_BACKGROUND_BEGIN = &H10000
THREAD_MODE_BACKGROUND_END = &H20000
THREAD_PRIORITY_ABOVE_NORMAL = 1
THREAD_PRIORITY_BELOW_NORMAL = -1
THREAD_PRIORITY_HIGHEST = 2
THREAD_PRIORITY_IDLE = -15
THREAD_PRIORITY_LOWEST = -2
THREAD_PRIORITY_NORMAL = 0
THREAD_PRIORITY_TIME_CRITICAL = 15
End Enum
Declare Function SetThreadPriority Lib "kernel32" (ByVal GetCurrentThread As Long, ByVal nPriority As Long) As Long
Declare Function SetPriorityClass Lib "kernel32" (ByVal GetCurrentProcess As Long, ByVal dwPriorityClass As Long) As Long
Declare Function GetCurrentThread Lib "kernel32" () As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Function setMyPriority(Optional ByVal ThreadPriority As PRIORYTYTHREAD = THREAD_PRIORITY_NORMAL, Optional ByVal ClassPriority As PRIORYTYCLASS = NORMAL_PRIORITY_CLASS) As Boolean
' (http://infrangelux.hostei.com/)
setMyPriority = SetThreadPriority(GetCurrentThread, ThreadPriority) Or _
SetPriorityClass(GetCurrentProcess, ClassPriority)
End Function