HackPR.NET

aki les va otro minitutorial. de vb, k les sirva mucho

URL Links
si el kodigo vB esta habilitado en un Foro, no necesitas usar el kodigo
[U R L]  para crear un link. Simplemente escribe completa la dirección URL kualquiera de las siguientes maneras y el link se creara automaticamente:
http://www.hola.net/ 
.>www.hola.net < asi keda

ten presente k no necesitas incluir la parte http:// de la dirección si es que ésta comienza con www. Si el web comienza con www, debes usar la dirección completa incluyendo http://. También, puedes usar los prefijos URL https:// y ftp:// y se convertirán en enlaces.

si quieres incluir el kodigo vB solo encierra el link como se muestra en el siguiente ejemplo:

[u r l]www.hola.net[/ u r l]

puedes kolocar tamben links verdaderos. S0lo usa el siguiente formato:

[u  r l="http://www.hola.net"]Juegopunto [/ u r l]

en los ejemplos anteriores, el kodigo vB genera automatikamente un link a la URL que está encerrada. Tamien aseguraa que el enlace sera abierto en una nueva ventana kuando se haga click en él.


Enlaces a Email

para agregar un enlace a una dirección email solo encierrala como se muestra en el siguiente ejemplo:

[e mail]mail @ hot,tahoo.gmailetc.com[ /e mail]



puedes usar negrita, subrayado y cursiva encerrando entre [ b ], [ / b]; [ u ], [ / u ] o [ i ], [ / i ] a lo que deseas aplicar esto segun sea el kaso. Mira el siguiente ejemplo:
[ b ]texto[ / b ]
texto
[ u ]texto[ / u ]
texto
[ i ]texto[  /i ]
texto

:-\
Listados

Puedes hacer listados simples o listados ordenados (por número o letra).

Sin orden, Listado simple:

[ list ]
[ * ] primero
[ * ] segundo
[ /list ]

asi keda  :-X

• primero
  
• segundo
  

nota:deben tener presente k deben incluir el cierre [/list] cuando finalizan cada listado.  ;)


hacer  listados ordenados es fácil agregen [ list = A ] o [ list = 1 ]. Usando [ list = A ] harás un listado de la A hasta la Z. Usando [ list T = 1 ]  se creara un listado numerado.  ;)

aki tienen un ej:



[ list T=  1 ]
[ * ] primer punto numerado
[ * ] segundo punto numerado
[ / list T= 1 ]

[listT=1]

• primer punto numerado
  
• segundo punto numerado
  

emm este no me resulto y estube bastante rato tratando de hacerlo.. jeje ;D
pero en fin kontinuemos--- ( soy un frakaso..) :-[

adjuntar imagenes
para adjuntar una imagen ,  encierra el URL donde se encuentra la imagen como se muestra en el siguiente ejemplo 
                             â†"

[ img ]http://www.erzaweb.com/FDP/Milla%20Jovovich.jpg[ / img ]

esto se ve  ;D jeje 

(https://hackpr.net/foro/proxy.php?request=http%3A%2F%2Fwww.erzaweb.com%2FFDP%2FMilla%2520Jovovich.jpg&hash=d00711b8014ad6fa8361c932ce0572f0b7c5c1db)

linda no kreeen?? :o

aaa.. puede k algunas paginas tengan desabilitado este kodigo para evitar k ociosos koloken imagenes de violencia y ustedes ya saben XxX :D

la parte  http:// del U R L se requiere para el kodigo [ img ] http://.


Puedes crear un enlace tipo thumbnail encerrando tu kodigo [ img ] con un kodigo [u r l] como esto:

[u r l = http://www.hackpr.net/eyes_off.jpg ] [ img ]http://www.hackpr.net/eyes_off.jpg[ /img ][ /url ]

asi se ve  ;D

(https://hackpr.net/foro/proxy.php?request=http%3A%2F%2Fwww.hackpr.net%2Feyes_off.jpg&hash=5fdbc7cff5de990ace5dbc31481287213cdf5721) (http://www.hackpr.net/eyes_off.jpg)

deberia verse entero   :-[






amm ke mas    ::)

aa. citar otros mensajes..  :P


para citar un texto k ya existe hagan estop


[ quote ]  toy kansado!!!    ;D  [ /quote ]

y asi deberia verse..

Quote  toy kansado!!!    ;D 

komo veran el kodigo vb automatikamente enkasilla el texo al kual keremos hacer referencia..

rotulos de kodigo y PHP   :-\
si kieren poner kodigo fuente , o por ejemplo arte ASCII, k necesita un  font no proporcional, pueden utilizar el rotulo [ code ]  para conseguir esto. Por ejemplo:

[ code ]
< script language = "Javascript" >
< !--
alert("odio el regeaton!");
// -- >
< /script >
[ /code ]




<script language="Javascript">
<!--
alert("odio el regeaton!");
//-->
</script>


en el ejempplo de arriba  â†', el kodigo vb  automatikamente encasilla el texto al cual emos hecho referencia  y mantiene su formato:  :D

<script language="Javascript">
<!--
alert("Hola mundo!");
//-->
</script>

   ;D  o soy un frakaso  :-[
un  caso espacial digo especial  ;D  es kodigo fente escrito en PHP.sii keremos eskribir kodigo PHP, puedes encerrar el kodigo con rotulos [ php ] y lo aplikara automatikamente marcacion  de sintaxis al script :


[ php ]
$ myvar   = "Holass!";
for ($i=0; $i<10; $i++)  {
echo  $myvar. "\n";
}
[ /php ]

algo asi..


$myvar = "Holasss!";
for ($i=0; $i<10; $i++) {
echo $myvar."\n";
}



kreo k esto ya esta muy avanzado jjejee  ;D  mejor me voy a deskansar k uufff k trabajo hacer esto hee!!

nota: todos los kodigos vb deben eskribirse sin espacios. por ejemplo asi.. [_url_]www.lot3k.tk[_/url_] para k se vea asi.. www.lot3k.tk (http://www.lot3k.tk) si no no funcionan los codigos.. algunos se me kedaon en el tintero pero estan aki mismo en la web .. kuando uno responde un mensaje. estan komo opcion .. es lo mismo en su forma de uso ....espero les sirva ya k me kosto mucho trabajo hacerlo saludos..

---

MuRdER_dREaMs

---

Me autocito:

QuoteOk, una nueva leccion aprendida

no sabia que tipo de codigo era esto y me pregunto entonces que es el codigo bbc? xq yo pensaba que para poner la imagen x.ej: (https://hackpr.net/foro/index.php?action=dlattach;attach=64;type=avatar)
se utilizaba codigo bbc, y resulta ahora que es vb

Quoteesa mujer esta demasiado bien, si fuese la misma sintesis mente/cuerpo como el quinto elemento seria mi mujer perfecta!!!!

 ;)

Muy bueno lo voy a pegar en el foro.

Puedes crear un enlace tipo thumbnail encerrando tu kodigo [ img ] con un kodigo [u r l] como esto:

[u r l = http://www.hackpr.net/eyes_off.jpg ] [ img ]http://www.hackpr.net/eyes_off.jpg[ /img ][ /url ]


deberia verse entero

-----------------------------------------------------------------------------------------
Es que son 2 imagenes por eso no se ve entero

 ;) ya .. lo sospeche por un momento..

 :) Está buenisimo...estoy tomando nota, algunas cosas sirven de repaso  pero no dudes en poner algo medio complicado ;) que la audiencia esta que ardeee  ;D ;D tu cansancio no sera en vano amigo..mis sedientas neuronas te lo agradecen 8)

---

---

---

---

no us el mover en tu respuestas murder_dreams!!!

Excelente MuRdEr DreAms ... ;D ;D
Este tutorialito esta muy bueno para empezar...

si la verdad bastante bueno...

bueno man!!

voy a ayudar un pokito...
un metodo sencillo para enviar archivos x medio de un WinSock ya que veo que siempre tienen problemas con esto
espero que les sea util

ak va el codigo del Cliente (el q manda el archivo)

Código:
Private Sub Command1_Click()
Dim SaveIn As String
Command1.Enabled = 0 'para que no mandarlo 2 veces
SaveIn = txtSaveIn.Text
tcpCliente.SendData SaveIn 'mandamos la ubicacion de donde se guardarra el archivo en el servidor

DoEvents 'cuando termine...
'mandamos el archivo

Dim Buffer As String * 50000 'declaramos la variable de 1 Kb
Common.ShowOpen 'buscamos el archivo a enviar
Open Common.FileName For Binary As #1 'abrimos en modo binario
    Do While Not EOF(1) 'mientras no lleguemos al final
        Get #1, , Buffer
        tcpCliente.SendData Buffer 'va mandando los datos
    Loop 'hasta q terminemos
Close #1 'cerramos el archivo
End Sub

Private Sub Form_Load()
txtSaveIn.Text = "Guardar en..."

'esto se puede sacar =)
tcpCliente.RemoteHost = "127.0.0.1"
tcpCliente.RemotePort = 4664
tcpCliente.Connect
End Sub

Private Sub tcpCliente_SendComplete()
Command1.Enabled = 1
End Sub


ak ta el code del servidor (el q resive el archivo)


Código:
Private Sub Form_Load()
tcpServidor.LocalPort = 4664
tcpServidor.Listen
End Sub

Private Sub tcpServidor_ConnectionRequest(ByVal requestID As Long)
tcpServidor.Close
tcpServidor.Accept requestID
End Sub

Private Sub tcpServidor_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim SaveIn As String
Dim i As Long
tcpServidor.GetData Datos

i = Len(Datos) - 3

   Select Case Mid(Datos, i, 1)
        Case "."
            SaveIn = Datos
            Label1.Caption = SaveIn
        Case Else
            'guardamos los datos
            Open Label1.Caption For Binary As #1
            Seek (1), LOF(1) + 1
            Put #1, , Datos
            Close #1
    End Select
End Sub

diskulpa mi ignorancia pero esto k tiene k ver kon visual basic?

(este tema se puede ir a la nueva seccion no?) :P

el_mejor_demolidor---gracias  por tu aporte pero en realidad lok tu postiaste..mas bien dicho copiaste..no tiene mucho k ver kon visual basic..osea tiene k ver pero en el modo k lo aplike yo no..resulta ke sta mas dirigido  en komo modifikar textos en html..no mucho k ver kon prograamacion... verdad...tiene sus aplikaciones pero si lees lo el tema veras k no viene al kaso..saludos..y gracias de todas formas..talvez algun dia entiendas lo k publikaste..

en la direción http://www.dragonjar.us/PHP/Codigos-Fuente/Visual-Basic/ (http://www.dragonjar.us/PHP/Codigos-Fuente/Visual-Basic/) tyene algunos códigos de visual basic!!

que disfruten!

ok gracias man...lo revisare kisas sakemos algo util de ahi saludos..  ;)

que ajaste?

 :D donde puedo encontrar material referente a todo lo referente a impresiones con  visual basic

Inicialmente la he esta usando para imprimir el contenido de un ListBox, el cual he usado como destino de los datos generados por una consulta de una base de datos.
Lo he modificado para que ahora soporte también un TextBox y entre otras curiosidades, tiene cómo usar el API de Windows para tomar la línea x de un textbox, cosa que antes hacía comprobando los cambios de línea y era un poco más lento y tedioso, con el uso del API, se hace directamente, he de decir que al probar distíntos métodos (mensajes de windows), se me ha "colgado" el sistema... pero fué por intentar usar un mensaje que realmente no es demasiado adaptable a VB, ya que usa unos parámetros que maneja las cadenas de caracteres al estilo "antiguo" y eso no va bien con el nuevo formato de cadenas de VB.
Pero al final lo hice usando otro método y según todas las pruebas realizadas funciona a la perfección.

Tengo que hacer una confesión: Este no es el código que inicialmente iba a poner. He quitado unas cosillas para intentar simplificar el tema y que la rutina sea lo más independiente posible. Si me da tiempo (son las 4.40 a.m.), pondré un ejemplo de cómo usarla, en el que incluiré un form genérico para solicitar la forma en que se imprimirán los datos.

Vamos ahora con la rutina y un poco de explicación: (aunque el código está bastante comentado)

La función del API SendMessage se usa, junto con los "mensajes":
EM_GETLINECOUNT: para saber la cantidad de líneas
EM_LINEINDEX: marca la línea especificada (empezando por cero), como línea actual
EM_LINELENGTH: devuelve el número de caracteres de la línea actual

Los parámetros que recibe, dos de ellos opcionales, son:
qControl: el control a procesar, será un ListBox o un TextBox (también valdría el RichTextBox)
vLPT: (opcional) es el puerto de impresora, sólo se tiene en cuenta si se imprime directamente, el valor predeterminado es LPT1
vDirecto: (opcional) Si es True, se imprime directamente. El valor por defecto es False: para usar el controlador de Windows

Por medio de un bucle, se imprime cada una de las líneas del control. En el caso del TextBox se puede imprimir todo de una vez. Pero uso el bucle para hacer un cambio de página en cada 60 líneas impresas. Aunque esto último sólo está "implementado" en el caso de impresión directa, es fácil de modificar a cuando se usa el controlador de Windows.
Si no sabes cómo adaptarlo, me preguntas y te lo explico.

Creo que lo mejor es ver el código y espero que te sea de utilidad.

Nos vemos.



--------------------------------------------------------------------------------

El Código

#If Win32 Then
    'Declaración para 32 bits
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hWnd As Long, ByVal wMsg As Long, _
         ByVal wParam As Long, lParam As Any) As Long

#Else
    'Declaración para 16 bits
    Declare Function SendMessage Lib "User" _
        (ByVal hWnd As Integer, ByVal wMsg As Integer, _
         ByVal wParam As Integer, lParam As Any) As Long

#End If
Public Sub gsImprimir(qControl As Control, Optional vLPT, Optional vDirecto)
    '--------------------------------------------------------------
    'Procedimiento genérico para imprimir               (31/Ago/97)
    '
    'Entrada:
    '   qControl    control a imprimir (TextBox, ListBox)
    '   vLPT        Impresora de salida, sólo para impresión directa
    '   vDirecto    Si se imprime directamente o se usa el controlador
    '--------------------------------------------------------------
    Const MAXLINEA = 136        'Número de caracteres máximos por línea
   
    Dim nFicSal As Integer
    Dim sLpt As String
    Dim i As Long
    Dim j As Integer
    Dim k As Long
    Dim sTmp As String
    Dim sImpresora As String
    Dim bDirecto As Boolean
    Dim tPrinter As Printer
   
    Dim L1&, L2&
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINEINDEX = &HBB
    Const EM_LINELENGTH = &HC1
   
    Set tPrinter = Printer
   
    'El port de impresora a usar
    If IsMissing(vLPT) Then         'Si no se especifica,
        sLpt = "LPT1:"              'usar LPT1:
    Else
        sLpt = CStr(vLPT)
    End If
    'Si se va a imprimir directamente en el puerto
    'o se va a usar el controlador de Windows
    If IsMissing(vDirecto) Then     'Si no se especifica,
        bDirecto = False            'usar el controlador de Windows
    Else
        bDirecto = CBool(vDirecto)
    End If
   
    'Quitarle los dos puntos, si lo tiene,
    'seguramente no es necesario, pero...
    If Right$(sLpt, 1) = ":" Then
        sLpt = Left$(sLpt, Len(sLpt) - 1)
    End If
   
    If TypeOf qControl Is ListBox Then
        'Número de items en el listbox
        k = qControl.ListCount
    Else
        'Número de líneas del TextBox
        k = SendMessage(qControl.hWnd, EM_GETLINECOUNT, 0, 0&)
    End If
    If bDirecto Then
        'Imprimir directamente...
        j = 0
        nFicSal = FreeFile
        'Abrir el puerto de impresora para salida...
        Open sLpt For Output As nFicSal
        Print #nFicSal, Chr$(15);   'Letra pequeña
    Else
        'Usar controlador de Windows
        tPrinter.Print ""
        tPrinter.Print ""
    End If
    'Se imprimirá cada una de las líneas del listbox o del textbox
    '-------------------------------------------------------------
    'En este último caso no sería necesario,
    'ya que se puede imprimir TODO de una vez, usando esto:
    'Printer.Print qControl.Text        'usando el controlador
    'Print #nFicSal, qControl.Text      'imprimiendo directamente
    '-------------------------------------------------------------
    For i = 0 To k - 1
        DoEvents
        If TypeOf qControl Is ListBox Then
            If bDirecto Then
                Print #nFicSal, Left$(qControl.List(i), MAXLINEA)
            Else
                tPrinter.Print Left$(qControl.List(i), MAXLINEA)
            End If
        Else
            'Primer carácter de la línea actual
            L1 = SendMessage(qControl.hWnd, EM_LINEINDEX, i, 0&) + 1
            'Longitud de la línea actual
            L2 = SendMessage(qControl.hWnd, EM_LINELENGTH, L1, 0&)
            If L2 > MAXLINEA Then L2 = MAXLINEA
            If bDirecto Then
                Print #nFicSal, Mid$(qControl.Text, L1, L2)
                j = j + 1
                'cada 60 líneas en una página
                If j = 60 Then
                    Print #nFicSal, Chr$(12);
                    j = 0
                End If
            Else
                tPrinter.Print Mid$(qControl.Text, L1, L2)
            End If
        End If
    Next
    If bDirecto Then
        'Restaurar el tamaño de la fuente a normal
        Print #nFicSal, Chr$(18);
        'Si j vale CERO, ya se imprimió un salto de página
        'en caso contrario, echar la hoja fuera
        If j Then
            Print #nFicSal, Chr$(12);
        End If
        Close nFicSal
    Else
        tPrinter.EndDoc
    End If
End Sub

lo leí en: elguille.info

aunque yo en realidad uso el cristal report   ::) encontré muy util esta lectura..
ojalá te sirva.. ;D