Mensajes

Aqui un enlaze de un curso online, curso escrito x el Guille.

http://www.desarrollaconmsdn.com/msdn/VB6/cursovb/index.html

disfrutalo.

Salu2

MaLkAvIaN_NeT

Es mas recomendable usar el componente ADODC, hay que tener en claro la diferencia entre el componente ADODC y el control ADODC.
  Trabajar con el componentes es obtener un sistema con una buena performance y una programación más potente y no tan limitada.  Bueno aunque se dice que la bueno programación no depende del lenguaje que se use o de las cosas que permite el lenguaje si no las sabes usar, en conclusion depende del programador.

Esto sólo es una sugerencia.

salu2 

OKKKKKK

Public Sub CambiaEstado(ByRef ObjTree As TreeView, Optional Ocupado As Boolean)
On Error Resume Next
Dim TmpNodo As Node

Set TmpNodo = ObjTree.SelectedItem

If Ocupado = True Then
ObjTree.Nodes.Add "O", tvwChild, "O" + Str(NRO_O), TmpNodo.Text
NRO_O = NRO_O + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
NRO_L = NRO_L - 1
ElseIf Ocupado = False Then
ObjTree.Nodes.Add "L", tvwChild, "L" + Str(NRO_L), TmpNodo.Text
NRO_L = NRO_L + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
End If

End Sub

...Bien suponiendo que tienes una ventana con el formulario form1 con el caption 'ventana 1' y quieres generar otra, primero te creas una variable contadora enumerar tus ventanas por ejemplo:

public cont as integer

private sub command1_click()
    dim objFrm as new  form1
    objfrm.caption = "ventana "+str(cont)
    objfrm.show
cont=cont+1
end sub

salu2

..Bien no se si es lo que este buscando pero éste codigo lo emplee al controlar un reloj.

Private Hora As String
Private Minuto As String
Private Segundo As String
Private mvarTiempo As String
Public Event TiempoAgotado()

Public Property Let Tiempo(ByVal vData As String)
    mvarTiempo = vData
End Property
Public Property Get Tiempo() As String
    Tiempo = mvarTiempo
End Property

Public Sub DesglosaTiempo(Horex As String)
Hora = ""
Minuto = ""
Segundo = ""
For I = 1 To Len(Horex)

    If Mid$(Horex, I, 1) = ":" Then
        For j = I + 1 To Len(Horex)
           
             If Mid$(Horex, j, 1) = ":" Then
                    For h = j + 1 To Len(Horex)
                        Segundo = Segundo + Mid$(Horex, h, 1)
                        If h = Len(Horex) Then Exit Sub
                    Next
           
                Else
                Minuto = Minuto + Mid$(Horex, j, 1)
             End If
        Next
    Else
    Hora = Hora + Mid$(Horex, I, 1)
    End If
Next
'(Format(Me.DTPicker2, "hh:mm:ss AMPM"))
'Me.CommonDialog1.ShowColor
End Sub

Public Function StarTiempo(Aumento As Boolean) As String
Call DesglosaTiempo(Tiempo)
If Aumento = True Then ' es decir si va en aumento

ElseIf Aumento = False Then 'aca para empezar el reloj del cliente

If Val(Segundo) = 0 Then
Segundo = 59
    If Minuto = 0 Then
        Minuto = 59
            If Hora >= 0 Then
                Hora = Val(Hora) - 1
            End If
    Else
        Minuto = Val(Minuto) - 1
    End If
Else
Segundo = Val(Segundo) - 1
End If
   
    If Val(Hora) = 0 And Val(Minuto) = 0 And Val(Segundo) = 0 Then
        RaiseEvent TiempoAgotado
    End If
If Len(Hora) = 1 Then Hora = "0" + Trim$(Hora)
If Len(Minuto) = 1 Then Minuto = "0" + Trim$(Minuto)
If Len(Segundo) = 1 Then Segundo = "0" + Trim$(Segundo)
        StarTiempo = Trim$(Hora) + ":" + Trim(Minuto) + ":" + Trim(Segundo)
End If
End Function

Public Function ObtieneFinTiempo(Inicio As String, t_Tiempo As String) As String
Dim HInicio As String, HTiempo As String, HFin As String, Minicio As String, Mtiempo As String, Mfin As String
Call Me.DesglosaTiempo(Inicio)
HInicio = Hora
Minicio = Minuto
Call Me.DesglosaTiempo(t_Tiempo)
HTiempo = Hora
Mtiempo = Minuto

HFin = Str(Val(HInicio) + Val(HTiempo))
Mfin = Str(Val(Minicio) + Val(Mtiempo))

While Val(Mfin) > 59
    If Val(Mfin) > 59 Then
        Mfin = Str(Val(Mfin) - 59)
        HFin = Str(Val(HFin) + 1)
    End If
Wend

ObtieneFinTiempo = Trim(HFin) + ":" + Trim(Mfin) + ":00"
End Function

Hola gente ,
   Sólo quería preguntar si alguien sabe como crear un formaulario ovalado o transparente, sé que se puede hacer, pero alguien tiene INfo

salu2

..bueno es sencillo te haces un for hasta el len del binario
y le sacas uno a uno los números a los cuales le vas elevando a la i

Bueno como dijeron anteriormente VB es un lenguaje de alto nivel,, pero la gran ventaja es que nos da acceso a la api de windows,, en realidad yo conozco muy buenos programas creados en VB

...Y sobre los examenes de Microsoft,, es una táctica para ganar adeptos y copar a la gente de .NET, con éste comentario no quiero hacer pensar que la tecnología .NET es mala, no al contrario,, y sobre las estrellas de MIcrosfot como dije son tácticas de publicidad, aunque sirven también para obtener más conocimientos,, con los cursos online, manuales y los famosos 'Webcast',

salu2

www.foroschl.tk

...Bien cuando tu le haces un ramdom x ejemplo asi:
i=rnd*100
,, tambien te considera el cero,, y el índice mínimo del imagelist es 1

salu2

cin >>www.forochl.tk