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 - rapbyone

#51
Estimados, desde hace rato que no publicaba, he aprendido mucho gracias a ustedes y he loggrado muchas cosas de manera autodidacta, pero ahora me encuentro con un problema:

Tengo el componente FlexGrid y a traves de este codigo, agregue algunos valores a diferentes celdas:

Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim lCount As Long
   
   
    grid.Rows = 2
    grid.Cols = 2
    grid.FixedCols = 0
    grid.FixedRows = 0
   
   grid.ColWidth(0) = 400
   grid.ColWidth(1) = 400
   grid.Height = 100000
   
lCount = 1
grid.TextMatrix(lCount, 1) = "12"
   
lCount = 0
grid.TextMatrix(lCount, 0) = "11"

lCount = 1
grid.TextMatrix(lCount, 0) = "10"
   
lCount = 0
grid.TextMatrix(lCount, 1) = "09"
   
   
End Sub


Pero me gustaría saber como poder por medio de un IF comprobar un volar, por ejemplo:

If (celda fila1, columna 2) = 12 then
msgbox "es 12"
end if

Espero su ayuda amigos
muchas gracias
#52
Programación Visual Basic / Re:
3 Abril 2015, 23:15 PM
Ups

Enviado desde mi LG-D805 mediante Tapatalk
#53
Estimados, necesito descomprimir archivos zip o rar, pero la idea es poder hacerlo respetando las carpetas.

Estaba utilizando la dll Unzip32, descomprime todos lo archivos, pero no las carpetas, solo junta todo.

Habrá alguna funcion, OCX o algo que me permite descomprimir archivos respetando los directorios.

Muchas gracias amigos  :laugh:
#54
¿Estimados y para aproximar un decimal, por ejemplo si tengo "76,5" me muestre 77?
#55
Programación Visual Basic / Re:
11 Febrero 2015, 17:49 PM
Se pasaron muchas gracias

Enviado desde mi LG-D805 mediante Tapatalk
#56
Estimados, tengo el siguiente código:

Código (vb) [Seleccionar]

Text2.Text = Val(Text1.Text) / 2
Text4.Text = Val(Text3.Text) - Val(Text2.Text)


así se ve el formulario:



Donde primero divido el "valor 2"  por 2 y el resultado lo resto al "valor 1"

El problema es que el resultado en el text4.text, debería ser 84,5, pero automáticamente redondea el valor a 85.

¿Como evito que el valor se redondeé?
Muchas Gracias
#57
Cita de: Shell Root en  2 Febrero 2015, 13:19 PM
Por ejemplo,
Código (vb) [Seleccionar]
Public Sub TextLine()
   Dim vLine() As String
   If Me.TextBox1.MultiLine = True Then
       vLine = Split(TextBox1.Text, vbNewLine)
       MsgBox vLine(UBound(vLine))
   End If
End Sub


Gracias estimado, funciona bien, pero solo muestra la ultima linea, hay alguna forma de poder escoger mostrar una linea determinada.
#58
Que tal amigos, espero esten bien, les cuento estoy desarrollando un proyecto de manera autodidacta y me encuentro con el siguiente desafio.

Tengo un texbox multilinea con una 10 lineas de texto, lo que quiero lograr es dividir cada linea del textbox en textboxs independientes.

Es decir la primera linea del textbox multilinea en un textbox la segunda línea en otro texbox y asi sucesivamente.

Espero su ayuda amigos
muchas gracias

Enviado desde mi LG-D805 mediante Tapatalk
#59
Cita de: Shell Root en  6 Enero 2015, 13:58 PM
No entendi, dices que funciona perfectamente cuando se pulsa en el check, es decir, se marca el mensaje de "marcado" o "no marcado", pero al inicio?

Lo explico de otra manera:
Al iniciar la aplicación, esta hace una comprobación para determinar si existe o no existe un archivo, si archivo existe, se marca el checkbox, si no, se desmarca. El problema es que al iniciar la aplicación, aparece el mensaje de "marcado" y la idea es que no aparezca ese mensaje al inicio, si no que aparezca cuando yo lo presiones manualmente.
#60
Amigos, Primero que todo desearles un feliz 2015.
Tengo un pequeño problema, tengo un checkbox el cual muestra un mensaje al estar marcado y otro mensaje al estar desmarcado. Funciona perfecto.

El problema se genera al iniciar la aplicación, ya que el programa marca o desmarca el checkbox cuando está o no está un archivo. y si existe el archivo, se marca el checkbox pero al mismo tiempo lanza el mensaje al iniciar la aplicación.

Este es el código para que se entienda mas:

Código (vb) [Seleccionar]

Private Sub Form_Load()
If Len(Dir("C:\lm.dll")) = 0 Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
msgbox "marcado"
Else
msgbox "no marcado"
End If
End Sub


En resumen, el problema es que al marcar el checkbox al iniciar la aplicación al estar el archivo, se lanza el mensaje, y la idea es que el mensaje solo se lance cuando se marque el checkbox manualmente.

Espero se entienda, gracias amigos