Hola Foro... Que Tal... Hoy instale el DW CS5 y al ejecutarlo me sale un Mensaje que Dice que Hay un Error de Configuración (Error: 16) que intente reinstalando el Programa...

ya lo reinstale pero no puedo hacerlo andar. alguien tiene idea como puedo arreglarlo

desde ahora Muchas Gracias...

Hola Chicos Como andan tanto Tiempo??

Hace unas semanas que no abro el Visual y un Amigo Me pide que le pase un programa compilado entonces abro el Visual voy a compilar y Chan! Me encuentro con que el botón Compilar xxx.exe esta "Disable" ¿Que Podra Ser?¿Alguien Tiene idea como lo puedo Solucionar? Muchas Gracias. Dejo Adjunta una imagen para que vean de que es lo que hablo



P.D: Es La version Full Instalada.. (El Ejemplo es con un Proyecto EXE en Blaco)  

Que les parece Mi Sugerencia ? Lo Posteo Acá para que Ustedes también lo vean.

Que Tal Foro! Estoy Viendo Que Cada Vez hay mas Gente que Publica en el Subforo "Programación Visual Basic" Cosas de VisualBasic.NET (Que tendrían que ir en ".NET") Supongo que el numero de gente que postea erróneamente se reduciría si cambiamos el nombre del subforo por "Programación Visual Basic 6.0" (O hago que haga referencia a que es de VisualBasic Versión 6.0)

Bueno Solo eso...

Saludos...

Hola Foooro!!

Tengo una Pequeñisima Duda  

Quiero Cambiar El "Contenido" de una Variable del Tipo String desde una Funcion... Hasta ahi parece Facil... Pero el Problema esta en que quiero pasarle a la Funcion el Nombre de la Variable...

Habia pensado en esto

Private Sub ChgVar(ByVal vVar As Object, NewStr As String)
'On Error Resume Next
    vVar = NewStr
End Sub

Pero me devuelve:

"No Coinciden Los Tipos."

La Pregunta es Como que tengo que delcarar la variable vVar Para que Coincidan los Tipos

o Como Puedo Hacer una Funcion Que Realize eso...

Gracias!!

Hola... Foro! No se que pasa si es que recien me despierto o que el IDE empezo a flipar  

Pongo este Codigo, Que Creo que esta bien, a simple vista no se que puede estar mal...

Option Explicit
 
Dim aArray() As String
 
Private Sub Form_Load()
    aArray(0) = "Hola"
    aArray(1) = "foro"
    aArray(2) = "elhacker"
    Dim I As Integer
    For I = 0 To UBound(aArray)
        MsgBox aArray(I)
    Next I
End Sub
 

y el IDE me selecciona "aArray(0) = "Hola"" y dice "Error 9: El Subindice esta Fuera del Intervalo"...

Me estoy volviendo Loco... Pienso que esta bien pero no se en que me estoy equivocando....

Hola Gente... Estaba Aburrido y Me pregunte cuales son los errores de Vb e hice una aplicacion... Que Genero esta Listita...

3 - Return sin GoSub
5 - Llamada a procedimiento o argumento no válidos
6 - Desbordamiento
7 - Memoria insuficiente
9 - El subíndice está fuera del intervalo
10 - La matriz está fija o temporalmente bloqueada
11 - División por cero
13 - No coinciden los tipos
14 - Espacio para cadenas insuficiente
16 - Expresión demasiado compleja 
17 - No se puede realizar la operación solicitada
18 - Interrupción por parte del usuario
20 - Resume sin error
28 - Espacio de pila insuficiente
35 - Procedimiento Sub o Function no definido
47 - Hay demasiados clientes de la aplicación DLL
48 - Error al cargar la biblioteca DLL
49 - La convención de llamadas a DLL es incorrecta
51 - Error interno
52 - Nombre o número de archivo incorrecto
53 - No se ha encontrado el archivo
54 - Modo de archivo incorrecto
55 - El archivo ya está abierto
57 - Error de E/S de dispositivo
58 - El archivo ya existe
59 - Longitud de registro incorrecta
61 - Disco lleno
62 - La entrada de datos ha sobrepasado el final del archivo
63 - Número de registro incorrecto
67 - Hay demasiados archivos
68 - El dispositivo no está disponible
70 - Permiso denegado
71 - Disco no preparado
74 - No se puede cambiar el nombre con una unidad de disco diferente
75 - Error de acceso a ruta o archivo
76 - No se ha encontrado la ruta de acceso
91 - Variable de tipo Object o la variable de bloque With no está establecida
92 - El bucle For no está inicializado
93 - La cadena modelo no es válida
94 - Uso no válido de Null
96 - No se pueden desactivar eventos de objeto porque el objeto ya desencadena el número máximo de eventos que admite
97 - No se puede llamar a una función friend de un objeto que no sea una instancia de una clase
98 - Una llamada a una propiedad o un método no puede incluir una referencia a un objeto privado como un argumento o un valor de retorno
321 - Formato de archivo no válido
322 - No se puede crear un archivo temporal necesario
325 - Formato no válido en el archivo de recursos 
380 - El valor de la propiedad no es válido
381 - El índice de la matriz de propiedades no es válido
382 - No se admite Set en tiempo de ejecución
383 - No se admite Set (propiedad de sólo lectura)
385 - Se necesita un índice de matriz de propiedades
387 - Set no está permitido
393 - No se admite Get en tiempo de ejecución
394 - No se admite Get (propiedad de sólo escritura)
422 - No se encontró la propiedad
423 - No se ha encontrado la propiedad o el método
424 - Se requiere un objeto
429 - El componente ActiveX no puede crear el objeto
430 - Esta clase no admite Automatización o no admite la interfaz esperada
432 - No se encontró el nombre del archivo o de la clase durante la operación de Automatización
438 - El objeto no admite esta propiedad o método
440 - Error de Automatización
442 - Se ha perdido la conexión con la biblioteca de tipos o con la biblioteca de objetos para proceso remoto. Haga clic en Aceptar para quitar la referencia.
443 - El objeto de Automatización no tiene un valor predeterminado
445 - El objeto no admite esta acción
446 - El objeto no admite argumentos con nombre
447 - El objeto no admite la configuración regional actual
448 - No se ha encontrado el argumento con nombre
449 - El argumento no es opcional
450 - Número de argumentos erróneo o asignación de propiedad no válida
451 - El procedimiento Let de la propiedad no está definido y el procedimiento Get no ha devuelto un objeto
452 - Número ordinal no válido
453 - No se encuentra la función de biblioteca DLL especificada
454 - No se encuentra el recurso de código
455 - Error en el bloqueo de los recursos de código
457 - Esta clave ya está asociada a un elemento de esta colección
458 - La variable usa un tipo de Automatización no admitido en Visual Basic
459 - El objeto o la clase no admite el conjunto de eventos
460 - El formato del Portapapeles no es válido
461 - No se encontró el método o el miembro de datos
462 - El equipo servidor remoto no existe o no está disponible
463 - La clase no está registrada en el equipo local
481 - La imagen no es válida

De Mas esta decir que el Error "0" (Cero) No Existe es el numero designado a ERROR_SUCCESS. [Gracias xkiz]

Y Los Numeros que no Figuran en la lista devolvieron: "Error definido por la aplicación o el objeto"
Que Son:

1,2,4,8,12,15,19
21 a 27
29 a 34
36 a 46
50,56
60
64 a 66
69
72,73
77 a 90
95
99 a 320
323,324
326 a 379
385,386
388 a 392
395 a 421
425 a 428
431
433 a 437
439,441,444,456
464 a 480
482 a 65535
 

Hola Foro Como ahora estoy empezando a Hacer módulos y demás proyectos que voy a compartir dije ... "Tengo que ponerle mi marca, Como hacen Los chicos del foro..." así que para facilitarme la creación de estos me hice un programa que los Auto completa.... y lo comparto con Ustedes, por supuesto también el Source.

Se que el Código se puede reducir... pero Lo hice rapidito y sin pensarlo mucho, lo que mas me importaba era el resultado final, igual por supuesto siempre estoy abierto a criticas constructivas... sin mas Bla, Bla, Bla:



                                                                                                                                                           
Solo mMakeHeader.bas:

'////////////////////////////////////////////////////////////////////////////////////////////////////////'
'///                                                                                                  ///'
'///  º Tite:          mMakeHeader.bas                                                                ///'
'///  º Author:        agus0                                                                          ///'
'///  º Mail:          agus0@vbfree.com.ar                                                            ///'
'///  º Date:          17/12/10                                                                       ///'
'///  º Contributors:  -                                                                              ///'
'///  º Web:           www.agus0.com.ar & www.vbfree.com.ar                                           ///'
'///                                                                                                  ///'
'////////////////////////////////////////////////////////////////////////////////////////////////////////'
 
Option Explicit
 
Private Const cLine1 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cLine2 = "'///                                                                                                   ///'"
Private Const cLineT = "'///  º Tite:          TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  ///'"
Private Const cLineA = "'///  º Author:        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  ///'"
Private Const cLineM = "'///  º Mail:          MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  ///'"
Private Const cLineD = "'///  º Date:          DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ///'"
Private Const cLineC = "'///  º Contributors:  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  ///'"
Private Const cLineW = "'///  º Web:           WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW  ///'"
Private Const cLine3 = "'///                                                                                                   ///'"
Private Const cLine4 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cCadenaT = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Private Const cCadenaA = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Private Const cCadenaM = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Private Const cCadenaD = "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Private Const cCadenaC = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Private Const cCadenaW = "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
 
Public Function MakeHeader(Titulo As String, Autor As String, Mail As String, Fecha As String, Ayuda As String, Web As String, Optional Style As String = "///", Optional Vig As String = "º") As Variant
    Dim Linea1, Linea2, LineaT, LineaA, LineaM, LineaD, LineaC, LineaW, Linea3, Linea4 As String
    Dim B As Integer
    Dim Space As String
    'Estilos:
    Linea1 = Replace(cLine1, "///", Style)
    Linea2 = Replace(cLine2, "///", Style)
    Linea3 = Replace(cLine3, "///", Style)
    Linea4 = Replace(cLine4, "///", Style)
    LineaT = Replace(cLineT, "º", Vig)
    LineaT = Replace(LineaT, "///", Style)
    LineaA = Replace(cLineA, "º", Vig)
    LineaA = Replace(LineaA, "///", Style)
    LineaM = Replace(cLineM, "º", Vig)
    LineaM = Replace(LineaM, "///", Style)
    LineaD = Replace(cLineD, "º", Vig)
    LineaD = Replace(LineaD, "///", Style)
    LineaC = Replace(cLineC, "º", Vig)
    LineaC = Replace(LineaC, "///", Style)
    LineaW = Replace(cLineW, "º", Vig)
    LineaW = Replace(LineaW, "///", Style)
    'Pasaje de Variables (Max Len 77)
    Titulo = Left(Titulo, 77)
    Autor = Left(Autor, 77)
    Mail = Left(Mail, 77)
    Fecha = Left(Fecha, 77)
    Ayuda = Left(Ayuda, 77)
    Web = Left(Web, 76)
    Space = ""
    For B = Len(Titulo) To 77
        Space = Space & " "
    Next B
    LineaT = Replace(LineaT, cCadenaT, Titulo & Space)
    Space = ""
    For B = Len(Autor) To 77
        Space = Space & " "
    Next B
    LineaA = Replace(LineaA, cCadenaA, Autor & Space)
    Space = ""
    For B = Len(Mail) To 77
        Space = Space & " "
    Next B
    LineaM = Replace(LineaM, cCadenaM, Mail & Space)
    Space = ""
    For B = Len(Fecha) To 77
        Space = Space & " "
    Next B
    LineaD = Replace(LineaD, cCadenaD, Fecha & Space)
    Space = ""
    For B = Len(Ayuda) To 77
        Space = Space & " "
    Next B
    LineaC = Replace(LineaC, cCadenaC, Ayuda & Space)
    Space = ""
    For B = Len(Web) To 77
        Space = Space & " "
    Next B
    LineaW = Replace(LineaW, cCadenaW, Web & Space)
    'Juntar
    MakeHeader = Linea1 & vbCrLf & Linea2 & vbCrLf & LineaT & vbCrLf & LineaA & vbCrLf & LineaM & vbCrLf & LineaD & vbCrLf & LineaC & vbCrLf & LineaW & vbCrLf & Linea3 & vbCrLf & Linea4 & vbCrLf
End Function