Mensajes

Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera

Código (vb) [Seleccionar] Expandir


dim jumps as integer
for jumps = 1 to 6 
image1.visble=true
image2.visble=true
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true

next jump

End Sub


Gracias por contestar

llevo casi 45 min en esto y todavia no se que estoy haciendo

Dim Date1 as interger
dim date 2 as interger

Modificando Un Poco Mas: DateDiff("d", #1/1/2015#, #1/12/2015#)

Actualizando Mas: Dias = DateDiff(dateinterval.Day, DTPicker1.Value, DTPicker2.Value, Now.Date) & "dias"

Tengo una duda

Yo Tengo Un Combo Box Con Lo Siguiente

Código (vb) [Seleccionar] Expandir

If Combo1.Text = "Sencilla" Then
precio = 5500

ElseIf Combo1.Text = "Doble" Then
precio = 4200

ElseIf Combo1.Text = "Triple" Then
precio = 3300

 Y Un Label Que dice reservaciones  con dos DTPickers   ahora yo quiero saber como hago lo de reservaciones  ejemplo si yo me registro el 6/8/15 y pienso quedarme  hasta  11/8/15  yo quiero que  suma los dias que yo me eh quedado  segun el tipo de habitacion lo cual son(Sencilla,Doble,Triple)

creo que es dtpicker1.value=


ejemplo si yo elijo Sencilla ($5,500) y pienso quedarme dos dias  quiero que suma los dias   primerdia: $5,500  segundoDia:$5,500    =        $11,000 * habitantes

Estoy Haciendo un Programa Con base de datos  tengo 3 (Campo Calculados) en access


Queria saber si se puede vincular Access 2010 con vb6   he visto videos por ahi que dicen que cambia el formato  pero cuando lo cambio a format(2000)   cuando lo cambio  le doy a calculated fields pero no me hacer nada

Gracias Mi Hermano Bendiciones

Gracias Mi Hermano Me Ayudaste Mucho    Pero tengo otra Duda Como Yo le Asigno los Precios por Año 

cuando le doy al modelo   en el textbox precio me tiene que salir el precio de cada año me funciona con el accord pero no el Civic

Private Sub Combo2_Click()
If Combo2.Text = "Accord" Then
Combo3.Clear
Combo3.AddItem "2013"
Combo3.AddItem "2014"
Combo3.AddItem "2015"
Combo3.AddItem "2016"
ElseIf Combo2.Text = "Civic" Then
Combo3.Clear
Combo3.AddItem "2013"
Combo3.AddItem "2014"
Combo3.AddItem "2015"
Combo3.AddItem "2016"
End If
End Sub

Private Sub Combo3_Click()
If Combo3.Text = "2013" Then
lblUS = "28,900"
ElseIf Combo3.Text = "2014" Then
lblUS = "32,000"

ElseIf Combo3.Text = "2015" Then
lblUS = "52,000"

ElseIf Combo3.Text = "2016" Then
lblUS = "64,000"

Tengo Una Duda


Tengo Dos Combo Box Con Labels El Primer Label Dice (Marca) con el combo box 1
y el segundo label dice (Modelos ) con el combo box 2

ahora mi pregunta es  cuando yo elijio una marca ejemplo ( Audi ) yo quiere que salga en el combo box 2  los modelos del Audi

Código (vb) [Seleccionar] Expandir

MI Codigo en el Comb1_click() es
if combo1.text="Audi" then
comb2.text="Q7"
comb2.text="R8"
Asi Sucesivamente

Estoy Usando VB6

gracia me hermano me salvaste

como yo hago para que se cierre form 2  cada vez que le doy entrar me aparece form1 y despues vuelve form2

Private Sub lblentrar_Click()
If lblentrar = True Then
Form2.Hide
Form3.Show
End If
End Sub

tengo 3 forms   en primer form  cuando se termina la barra de progreso

form2.show

ahora cuando le doy entrar en el form2   me tiene que salir el form3

pero cuando le doy enter  me sale form3 y aparece el form2 (como un pop up) como lo quito

Como Usa El Format Currency en visual basic 6.0