Mensajes

- Con esto solo me quedaria que hacer en caso de no tildar ninguna opcion.   Porque si presiono el boton, abre el archivo, lo guarda asi como esta y lo cierra y el msj de los cambios efectuados me sale vacio. Ya probe con Do while, con desabilitarlo hasta, etc etc, pero no pego una sola. Alguna idea?

Código (vb) [Seleccionar] Expandir


If CorrejirRuta.Value = 0 and CambiarColor.Value = 0 and HacerOtraCosa.Value = 0 Then '<--- Y así hasta el fin del mundo.
    Exit sub
end if


O si utilizaras una matriz de controles para las "CheckBox":

Código (vb) [Seleccionar] Expandir


Dim Bandera as boolean
Dim i as integer

While Not Bandera and i < Opcion.Count 'Asumiendo que "Opcion" sea el nombre de las "Checkbox".
   Bandera = (Opcion(i).Checked = 1) 'Si hay alguna "CheckBox" marcada se vuelve "True"
   i=i+1
wend

if Not Bandera then exit sub

'Blablabla


Saludos.

¿Será esto? 

Código (vb) [Seleccionar] Expandir

Dim Excel As Object
Dim ArchivoExcel As Object
Dim Unidades As String
Dim C As Integer
Dim Cambios as String '<---------
C = 3

Unidades= "C:\Original\Unidades.slk"

Set Excel = CreateObject("Excel.Application")
Excel.Visible = False
Set ArchivoExcel = Excel.Workbooks.Open(Unidades)

if  CorrejirRuta.Value = 1 then 'CheckBox "corregir Ruta"
    ArchivoExcel.Worksheets("PestañaUnidades").Cells(475, C) = "units\Custom\blabla\payaso.mdx"
    Cambios=Cambios & "La ruta de las unidades blablabla" & vbcrlf '<--- Rejistra los cambios
end if

if  CambiarColor.Value = 1 then  'CheckBox "Cambiar color"
    ArchivoExcel.Worksheets("PestañaUnidades").Cells(250, AL) = "HOLA"
    Cambios=Cambios & "El color de las unidades blablabla" & vbcrlf
end if

if  HacerOtraCosa.Value = 1 then  'CheckBox "Hacer otra cosa"
    ArchivoExcel.OtraCosa("HACER OTRA COSA")
    Cambios=Cambios & "Se hizo otra cosa blablabla" & vbcrlf
end if

ArchivoExcel.SaveAs "C:\Patch\Unidades.slk"
ArchivoExcel.Close SaveChanges:=False
Set ArchivoExcel = Nothing
Excel.Quit
Set Excel = Nothing
' MsgBox "La ruta de las unidades han sido correjidas", vbOKOnly, "Listo!"  <------- NO!
Msgbox "Cambios efectuados: " & vbcrlf & Cambios '<---- Presenta los cambios de jalón



¡Saludos! (Al menos lo intenté)

Hola, pues con un problemón:

Resulta que quiero conectar mi teléfono (móvil, pues) a la PC, un Sony Xperia (android), pero Linux Mint 14 no me lo reconoce, no sucede nada, ni en el teléfono, ni en la PC.

He cambiado la configuración de "conectividad" a una o a otra y nada. También he listado los dispositivos USB conectados a la PC y no aparece el dichoso teléfono.

Créanme, he buscado un buen por la solución que no he encontrado aún: No quiero instalar una máquina virtual en mi sistema (no para esto), ni usar algún emulador, ni  hacerme una partición para Windows, ni la opción AirDroid (o similares), ni cambiar mi distribución de Linux, ni mucho menos comprarme otro teléfono.

Y, pues, me preguntaba si alguien más de por aquí tiene este mismo problema, o si ya pasó por esto y le dio solución, y pudiera compartirla, por favor.

Saludos y gracias.

Dicen que Kim Jong juega Xbox con el diablo en las tardes, una vez le gritó a su mamá y que además come occidentales cocidos ¡SIN SAL!

Código (vb) [Seleccionar] Expandir

Private Sub Command2_click()
  If text1.text="1111" then
    form2.show
  elseif text1.text="3312" then
    form3.show
  else
     msgbox "Error de clave"
  end if
End sub

¡Saludos!

Me pasa en Linux Mint 14, no sé si sea igual, pero mi pantalla se pone negra sólo con una "rayita" en la esquina superior izquierda, que parece un cursor pero no recibe teclado ni se mueve, lo curioso es que la música sigue sonando hasta que termina la canción. Me sucede en varias situaciones, pero siempre cuando abro Libreoffice.

Ojalá encuentres solución, y a ver si a mí también me sirve.

¡Saludos!

[Edito:]

Pues uso Mint 14 (se me pasó mencionarlo), que es ubuntu. Pero como dije: ya logro instalar paquetes, pero quiero dejar de instalar paquete por paquete... Pero bueno, a lo que entiendo, ¿quieres decir que tengo que instalar paquete por paquete según me salte error?

Edito: Bueno, cuando le doy "configure", ya no me jode diciendo que me falta "tal" paquete, creo que ya le dí todo lo que quería, ahora la cuestión es que ya dándole "make" me aparecen un chorral de errores de compilación... ¿Esos errores los tengo que corregir YO?, ¿si alguien no sabe programar se jode y se queda sin aplicación?, ¿por qué rayos?

Gracias por responder, saludos.

Hola, buenas:

Pues resulta que me descargué una aplicación (en realidad el código fuente), y es necesario compilar para poder usar la aplicación (en serio, ¿no sabían?). Para esto me puse a buscar información (por que han de saber que no llevo usando mucho tiempo Linux) de cómo compilar, y ya todo bien, pero a la hora de hacerlo me dice que me falta "tal" paquete, va, busco y luego lo instalo, vuelvo a retomar la compilada, y otra vez me dice que me falta otro paquete... Total, así ya van como 10 que doy "configure", ¡Zas!, "Error: no se encuentra el paquete porjoderte-dev". A lo que voy, es que ya más o menos sé como compilar, y también como instalar paquetes, pero uno por uno. Lo que quisiera saber es si hay alguna manera de instalar todos (varios, los más necesarios o comunes) de jalón, o sea: de una vez... ¿o me tengo que joder buscando e instalando paquete por paquete?

Muchas gracias, ¡saludos!

  Eso es lo que buscaba, @Chuidiang, pues vengo de vb6 y estaba acostumbrado a usar archivos  binarios. @NoBullshit, ya me había leido algo sobre eso, pero como dije, no me sirvió (o no entendí cómo me podría servir).

Gracias a ambos, ¡saludos!

Creo por los espacios en el nombre/ruta del fichero, prubea copiando el archivo "Wav" a "C:\" y hazlo sonar desde ahí, pero si es muy necesario hacerlo desde la ruta que tratas,  busca sobre "GetShortPathName"...

¡Saludos!