últimos mensajes de: UKWN

Mostrar Mensajes
Páginas: [1]

1	Programación / Programación Visual Basic / Re: para que sirven estas funciones?	en: 11 Marzo 2008, 05:33 am
Utiliza a tu nuevo mejor amigo MSDN!! El Space(): http://msdn2.microsoft.com/es-es/library/k6ethaxs(VS.80).aspx Cuando dice: Código: Archivo = Space(LOF(1)) Esta llenando la declaracion Archivo con espacios basado en la longitud del archivo. Seek(): http://msdn2.microsoft.com/es-es/library/7af2feyt(VS.80).aspx Código: Seek (1), LOF(1) + 1 Es para ponerse al final del archivo. el LOF() significa Length of File :]. http://msdn2.microsoft.com/en-us/library/dtz29k5z(VS.71).aspx Nota: Hace mucho que no programo en visual basic.

2	Programación / .NET (C#, VB.NET, ASP) / Re: [Propuesta] Curso online C#	en: 11 Marzo 2008, 03:17 am
jaja buena suerte explicando los delegados y eventos jajajaja en el momento me confundieron demasiado!! Pero la idea es buena, para enfocar mas personas en C# y que ya dejen Visual Basic ><

3	Programación / .NET (C#, VB.NET, ASP) / Re: VB.NET sockets cliente-servidor	en: 11 Marzo 2008, 03:12 am
mmm si tienes modem no se supone que debes de redireccionar el puerto? porque si en localhost (127.0.0.1) te funciona perfectamente entonces debe de ser por tu modem. Dato Curioso : El puerto 6112 es utilizado actualmente por battle.net, los servidores que son host de Starcraft, Warcraft, Diablo II, etc .

Programación / Programación Visual Basic / Re: Rich Text Box Autoeditable en VB 6.0

en: 11 Marzo 2008, 00:11 am

Este es un codigo cree para un chat bot, se utiliza:

AddChat Form.RitchTextBox, vbGreen, "Hola!! ", vbBlue, "Como estas!!?"

esto te daria de resultado:

Hola!! Como estas!!?

Código:

Public Sub AddChat(rtbChat As Control, ParamArray saElements() As Variant)
    Dim i as integer

    For i = LBound(saElements) To UBound(saElements) Step 2
        With rtbChat
            .SelStart = Len(.Text)
            .SelLength = 0
            .SelColor = saElements(i)
            .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
            .SelStart = Len(.Text)
            Data = Data & saElements(i + 1)
        End With
    Next i
End Sub

5	Programación / Programación Visual Basic / Re: Ayuda con creacion de programa	en: 11 Marzo 2008, 00:01 am
Puedes usar For o While, y despues dentro de estos tienes que checar que el numero no tiene decimales. Puedes declarar el resultado como variable y usar la funcion Instr() para encontrar el punto decimal.

Páginas: [1]