Mensajes

pues para el fin en que lo necesito los 2 estan bien, si existen diferencias a la hora de la ejecucion, el primero el que me paso krackwar te selecciona desde el momento en que pasa el puntero, y el tuyo (Chefito) hasta que le des click, yo los necesito para almacenarlos en una BD y despues mandarlos a imprimir, solo que me faltaba borrar el contenido de uno u otro si es que seleccionaba "SI" (para evitar que se imprimiera la palabra "NO") pero los 2 estan resueltos de la siguiente forma... gracias por su ayuda

el de krackwar:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Combo1.AddItem "Si"
Combo1.AddItem "No"
Combo1.AddItem " "

Combo2.AddItem "Si"
Combo2.AddItem "No"
Combo2.AddItem " "

Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Combo1.Text = "Si" Then Combo2.Enabled = False: C2 = " "
If Combo1.Text = "No" Then Combo2.Enabled = True
If Combo1.Text = "" Then Combo2.Enabled = True

If Combo2.Text = "Si" Then Combo1.Enabled = False: C1 = " "
If Combo2.Text = "No" Then Combo1.Enabled = True
If Combo2.Text = "" Then Combo1.Enabled = True
End Sub

el de Chefito:

Código [Seleccionar] Expandir

Private Sub Combo1_Change()
    If Combo1.Text = "si" Then Combo2.Enabled = False: Combo2.Text = " " Else Combo2.Enabled = True
End Sub

Private Sub Combo1_Click()
    If Combo1.Text = "si" Then Combo2.Enabled = False: Combo2.Text = " " Else Combo2.Enabled = True
End Sub

Private Sub Combo2_Change()
    If Combo2.Text = "si" Then Combo1.Enabled = False: Combo1.Text = " " Else Combo1.Enabled = True
End Sub

Private Sub Combo2_Click()
    If Combo2.Text = "si" Then Combo1.Enabled = False: Combo1.Text = " " Else Combo1.Enabled = True
End Sub

Private Sub Form_Load()
    Combo1.AddItem "si"
    Combo1.AddItem "no"
    Combo1.AddItem " " :xD :xD
   
    Combo2.AddItem "si"
    Combo2.AddItem "no"
    Combo2.AddItem " "
End Sub


en mi caso particular los 2 me sirvieron de maravilla... y ninguno se me hizo mas complicado que el otro.. gracias

el de chefito esta hecho mas "profesionalmente" por asi decirlo yo lo iba a escribir asi pero se me olvido cual era el evento correcto que era el evento Change
i me dio pereza abrir el vb6 
pd:si estas empesando a ocupar vb6 te recomiendo el code de chefito  por que con el mio se hace mas complicado el code i hace que cueste mas leer el code el de chefito es mas ordenado

pone este code :
agregar un timer i dos combobox
-------------------------

Código [Seleccionar] Expandir

Private Sub Form_Load()
Combo1.AddItem "si"
Combo2.AddItem "no"
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Combo1.Text = "si" Then
Combo2.Enabled = False
Else
Combo2.Enabled = True
End If
End Sub---------------------------------------

Vale, vale! ya no se enrrollen, si solo piensan postear para agredirse unos a otros mejor escribanse por el messenger. XD;

Y respondiendo a la pregunta original:
Para que no te quede un "Frame" dentro de otro, asegurate que estas creando el segundo Frame sobre el Form directamente y no sobre el Frame, bueno y el código:

Código [Seleccionar] Expandir


Dim Cont as Integer

Private Sub Command1_Click()
Cont = Cont +1
If Cont Mod 2 = 0 Then
  Frame2.Visible = False
  Frame1.Visible = True
Else
  Frame1.Visible = False
  Frame2.Visible = True
End If
End Sub


[/quote]
ya se como hacerlo[/quote] gracias pero ya lo solucione

es Y no i.
No es por agredir ni ofender, pero es tan lindo leer cuando el texto esta bien escrito, y tan engorroso encontrar errores como los tuyos, que encima son a proposito.

no fue a proposito me equivoque creo que me estoi a acustumbrando mucho a ablar por el msn

lol... Considero esto spam... Sinceramente perguntas tontas como esta, k pueden ser respondidas con los conocimientos mas basicos possibles, no hacen sentido...

Ponete a leer un manual de vb y no llenes el foro de basura...

ya se como hacerlo pero no sabia como hacerlo por que me quedaba un frame dentro del otro , i si no vas a responder la pregunta no postees

alguien sabe como puedo hacer para que si tengo dos frame en un mismo lugar que al apretar un boton me muestre un frame i al apretar otro me esconda el primer frame i mustre el segundo i si aprieto otro boton que me oculte el segundo frame i me muestre el primero

gracias de antemano

saludoz

Este codigo esta mal escrito
Private Sub Payload()
If Day(Now) = 4 Then MsgBox "Hola"
End Sub


Es

Private sub payload()
if day(now) = 4  then
msgbox "hoy  es el dia"
else
msgbox "hoy no es el dia ",vbcritial
end if
end sub

no el code esta bien escrito las cosas pueden ser

Código [Seleccionar] Expandir

if day(now) = 4 then msgbox "hoy es el dia"
tu code lo que hace es que si es el dia mostrar el msg hoy es el dia i si no mostrar el msg hoy no es el dia el ultimo msg lo mostraria todos los dias que no fueran el dia i el solo quiere que se muestre el msg si es el dia osea el no quiere que todos los dias exepto el 4 muestre un msg que diga hoy no es el dia


pd:una recomendacion lee un manual de vb6

Hola

Quisiera saber como hago para añadir con codigo puro de VB un registro DWORD al Registro de Windows.

Si alguien sabe avisenme por favor

busca , para la proxima

Código [Seleccionar] Expandir

Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim lol As Object
Set lol = CreateObject("wscript.shell"
lol.RegWrite Folder, Value, "REG_DWORD"
Set lol = Nothing
Exit Sub
End Sub
este code agrega un dword que se llama DisableTaskmgr con valor "1"
p.d:el code que te di se usa para blokiar el ctrl + alt+ supr

Pero probastes las lineas modificadas que te dejé?

si

Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente . Puede que el error esté en estas lineas?

Código [Seleccionar] Expandir

   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf

no me muestra error solo se cierra