Mensajes

adecualo a tu codigo

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim pos As Long
   
    RichTextBox1.Text = "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola"
   
    pos = 1
   
    Do While InStr(pos, RichTextBox1.Text, ":") <> 0
        RichTextBox1.SelStart = InStr(pos, RichTextBox1.Text, ":") + 1
        RichTextBox1.SelLength = 4
        RichTextBox1.SelBold = True
        RichTextBox1.SelColor = vbBlue
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
       
        pos = InStr(pos, RichTextBox1.Text, ":") + 1
    Loop
End Sub

Con la propiedad container podes centrar el control en donde se encuentre, si esta en un form se centrara en el form, pero si esta en un picturebox se va a centrar en el picture box

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/140-centrar-control.htm

Busca sobre getcursorpos y setcursorpos

Buena idea . Creo que 79137913 había posteado algo parecido, solo que el lo habia hecho con un timer

Si los usuarios se conectan en distintas PC podes obtener el numero de serie del HD

Bueno como estoy aburrido hice el code, pero si no entiendes pregunta, es un code sencillo igual, sacate todas las dudas sino no sirve que posteen el code

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub

Private Sub Form_Load()
    Command1.Caption = "Play"
    Command2.Caption = "Pause"
   
    Slider1.Min = 0
    Slider1.Max = 50
   
    Timer1.Interval = 100
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    With Slider1
        If .Value = .Max Then
            Timer1.Enabled = False
        Else
            .Value = .Value + 1
        End If
    End With
End Sub

Creo que esto es lo que estas buscando

creo que esto te puede servir
http://www.recursosvisualbasic.com.ar/htm/listado-api/222-capturar-webcam-con-sendmessage-capCreateCaptureWindow.htm

[Limitantes]

Leete las reglas del foro antes de postear

http://foro.elhacker.net/programacion_general/reglas_subforo_de_programacion_general-t93852.0.html

Limitantes:
El subforo, para defender sus objetivos, no aceptara peticiones de programas o códigos. Entiéndase lo siguiente (AQUÍ NO SE HACE LA TAREA DE NADIE)

Creo que con la ayuda que te dieron todos ya practicamente esta hecho el programa, tendrias que pensar como terminarlo

Listo ya modifique mi funcion tenia un pequeño error, creo que ya no da resultados erroneos.

Bueno aca les dejo mi codigo. Me conformo con que funcione. Por lo menos pude realizarlo dentro de los pocos conocimientos que tengo

Código (vb) [Seleccionar] Expandir

Private Function RETO_InStr(Start As Long, String1 As String, String2 As String) As Long
   Dim sSplit() As String
   Dim Num As Long
   Dim i As Long
   
    Start = Start - 1

   If Start < 0 Then Start = 0
   
   sSplit = Split(String1, String2)
   
   Num = Len(sSplit(0))
   For i = LBound(sSplit) To UBound(sSplit)
       If Num >= Start Then
           If Num = Len(String1) Then
               RETO_InStr = 0
           Else
               RETO_InStr = Num + 1
           End If
           
           Exit For
       End If
       
       Num = Num + Len(sSplit(i + 1)) + Len(String2)
   Next i
End Function