Mensajes

Gracias por la respuesta amigo, dejo el código con el que logré hacerlo por si a alguien más le funciona

Código (vb) [Seleccionar] Expandir

For i = 75 To 79
If TECH.Text = Val(i) Then
TECH.BackColor = RGB(183, 255, 0)
End If
Next

Saludos

Código (vb) [Seleccionar] Expandir

Private Sub CommandButton1_Click()
    If CInt(Me.Label1.Caption) >= 50 And CInt(Me.Label1.Caption) <= 60 Then
        Me.Label1.BackColor = RGB(255, 255, 0)
    End If
End Sub

estimado, muchas gracias por tu código, pero me da el error de "No coinciden los tipos"

Estimados, acudo a ustedes una ves más, el tema es el siguiente tengo un label que tendrá valores del 50 al 99 y quiero cambiar el color del fondo segun el rango en el que se encuentre ese valor.

Algo así

If label1.caption = 10 al 20 then
Label1.backcolor = &FFFFFF
end if

If label1.caption = 21 al 30 then
Label1.backcolor = &000000
end if

Pero no logro dar con el codigo para comprobar por rangos.

Espero su ayuda amigos
Muchas gracias


Enviado desde mi LG-D805 mediante Tapatalk

Estimados, tengo un extraño problema que me tiene de cabeza, tengo una aplicación que me muestra el path de un archivo al arrastrarlo al textbox funciona perfecto, pero al abrir el programa con permisos de administrador, al arrastrar el archivo simplemente no muestra nada, el textbox queda en blanco.

¿Alguien sabe algo de este error, o me pasa solo ami?

Adjunto la apps para ver si a alguien le funciona.

Archivo ---> https://dl.dropboxusercontent.com/content_link/QEvt5dfqi8OeafLH9GjkPVN8p2i0sTTMb0Gi1tNZn9eOEQogUyOSnSOUgywNxjOi/file?dl=1

Saludos amigos

Estimados, tengo un problema, les cuento, necesito comprobar un checkbox con 51 checkboxes, como no tengo un conocimiento avanzado en programación, lo hice en base a la condicional IF, es decir:

Código (vb) [Seleccionar] Expandir


If Check52.Caption = Check1.Caption Or Check52.Caption = Check2.Caption Or Check52.Caption = Check3.Caption Or Check52.Caption = Check4.Caption Or Check52.Caption = Check5.Caption Or Check52.Caption = Check6.Caption Or Check52.Caption = Check7.Caption Or Check52.Caption = Check8.Caption Or Check52.Caption = Check9.Caption Or Check52.Caption = Check10.Caption Or Check52.Caption = Check11.Caption Or Check52.Caption = Check12.Caption Or Check52.Caption = Check13.Caption Or Check52.Caption = Check14.Caption Or Check52.Caption = Check15.Caption Or Check52.Caption = Check16.Caption Or Check52.Caption = Check17.Caption Or Check52.Caption = Check18.Caption Or Check52.Caption = Check19.Caption Or Check52.Caption = Check20.Caption Or Check52.Caption = Check21.Caption Or Check52.Caption = Check22.Caption Or Check52.Caption = Check23.Caption Or Check52.Caption = Check24.Caption Or Check52.Caption = Check25.Caption Or Check52.Caption = Check26.Caption Or Check52.Caption = Check27.Caption Then
msgbox "1"
Else
msgbox "2"
End If


El problema es que solo lo puede hacer hasta el checkbox 27 ya que desde el 28 el programa hace un salto de linea y me corta el código, supongo que hay un limite por linea.

Se que no es la forma mas optima de hacerlo, pero es lo que tenía a la mano.
Habrá alguna forma de hacerlo ya sea con este código o con otro.

Muchas gracias amigos

[MOD EDIT: No hagas doble post.]

Estimado no encuentro solución para esto despues de finalizar mi programa al compilar el vb6 se cuelga y no termina nunca de compilar. Ya he esperado como 2 horas y nada.

Alguna forma de hacerlo o espero nomas
Saludos amigos.

Enviado desde mi LG-D805 mediante Tapatalk



Después de 6 horas lo compilo :/

Enviado desde mi LG-D805 mediante Tapatalk

MOD EDIT: No hagas doble post.

Gracias amigos vamos a intentarlo 

Estimados, tengo un checkbox y necesito compararlo con 51 otros checkbox para saber si en alguno de ellos se repite el valor y en caso de que se repita, marcar el checkbox, tengo el siguiente código:

Código (vb) [Seleccionar] Expandir


If Check1.Caption = Check52.Caption Or Check1.Caption = Check53.Caption Or Check1.Caption = Checkxx.Caption.......  Then
Check1.Value = 1
End If


El tema es que es algo tedioso hacerlo uno por uno, existe alguna forma de optimizar el código para revisar todos los checkbox si necesidad de señalarlos uno por uno.

algo así como señalar el rango
If Check1.Caption = Check52.Caption al Check102.Caption Then
Check1.Value = 1
End If

gracias amigos  

Estimados, hace mucho que no programa en batch y he olvidado algunas cosas.

Quiero borrar un directorio, pero poder escoger la ruta después de ejecutar el archivo bat. El siguiente código elimina un directorio

@echo off
echo
rmdir /s/q "C:\prueba"
pause
exit

el tema es como poder yo escoger la ruta, después de ejecutar el bat. cosa de no tener que hacer 10 archivos batch con 10 rutas diferentes, solo 1 donde yo escoja que directorios borrar

gracias amigos

Lo mas probable es que tu código no tenga nada que ver. ¿Qué sistema operativo estás usando? estás usando las políticas del UAC de Windows? tienes permisos de administración?, recuerda que un usuario que no es administrador no puede intervenir en ese directorio.

Has intentado con la ruta c:\\... con doble slash?

Debe ser algo del sistema operativo, tengo windows 10, estoy en la cuenta de administrador y ejecuto el programa con permisos de administrador, agregue con el doble slash pero no pasa nada.