Mensajes

[Basico]

aqui un manipulador rapido de Excel (Basico).

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Function CellsToHtml(ParamArray RangeCelName()) As String
   If IsMissing(RangeCelName) Then Exit Function
   
   Dim i           As Long
   
   For i = LBound(RangeCelName) To UBound(RangeCelName)
       With Hoja1.Range(CStr(RangeCelName(i)))
           With .Font
               If .Italic Then CellsToHtml = CellsToHtml & "<i>" & vbNewLine
               If .Underline > 0 Then CellsToHtml = CellsToHtml & "<u>" & vbNewLine
               If .Bold Then CellsToHtml = CellsToHtml & "<b>" & vbNewLine
               CellsToHtml = CellsToHtml & "<font name=" & Chr(34) & .Name & Chr(34) & _
                       " size=" & Chr(34) & .Size & Chr(34) & _
                       " color=" & Chr(34) & .Color & Chr(34) & _
                       ">" & Replace(Hoja1.Range(CStr(RangeCelName(i))).Text, vbNewLine, "<br>") & "</font>" & vbNewLine
               If .Bold Then CellsToHtml = CellsToHtml & "</b>" & vbNewLine
               If .Underline > 0 Then CellsToHtml = CellsToHtml & "</u>" & vbNewLine
               If .Italic Then CellsToHtml = CellsToHtml & "</i>" & vbNewLine
           End With
       End With
   Next i
End Function

Sub Main()
   MsgBox CellsToHtml("A3","A10","A34")
End Sub



Dulces Lunas!¡.

[webbrowser]

.
no lei que era desde el webbrowser xP

Dulces Lunas!¡.

ShellExecute (API)

o tambien tienes esta opción!¡.

http://foro.elhacker.net/programacion_visual_basic/source_shellexecute_sin_declaracion_api-t281057.0.html;msg1384898

Dulces Lunas!¡.

[F8]

.
Si lo ejecutas con F8 (Varias Veces Oprimelo hasta que termine, es para recorrer cada linea) veras que es lo que hace asi no te costara explicarlo y entenderlo!¡.

Dulces Lunas!¡.

[Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.]

y aqui mas simplificado!¡.

Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox "Se dieron " & AutoSum(-40, 4960, 1) & " Vueltas"
End Sub

Public Function AutoSum(ByVal nValue As Long, ByVal nValLim As Long, ByVal nValIncrement As Long) As Long
    If nValue >= nValLim Then Exit Function
    AutoSum = AutoSum(nValue + nValIncrement, nValLim, nValIncrement) + 1
End Function




Dulce Infirno Lunar!¡.

[Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.]

No se si a esto te refieras?...

Edito: Corregi lel Codigo un error de la variable xP en la funcion Recursiva!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
   MsgBox "Se dieron " & AutoSum(-40, 0, 5) & " Vueltas"
End Sub

Public Function AutoSum(ByVal nValue As Long, ByVal nValLim As Long, ByVal nValIncrement As Long, Optional Aux As Long = 0) As Long
   If nValue >= nValLim Then
       AutoSum = Aux
       Exit Function
   Else
       AutoSum = AutoSum(nValue + nValIncrement, nValLim, nValIncrement, Aux + 1)
   End If
End Function



Dulces Lunas!¡.

correciones Logicas!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    Loggeado = False
End Sub



se obvia ya que cualquier Boolean siempre al inicio es False!¡.


Aqui otras!¡.

Código (Vb) [Seleccionar] Expandir



Private Sub FrmLogin_Resultado(e As Boolean)
   If e = True Then
       Loggeado = True
   Else
       Loggeado = False
   End If
End Sub



por

Código (Vb) [Seleccionar] Expandir



Private Sub FrmLogin_Resultado(e As Boolean)
       Loggeado = e
End Sub




y

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Unload(Cancel As Integer)
   If Loggeado = True Then
       RaiseEvent Resultado(True)
   Else
       RaiseEvent Resultado(False)
   End If
End Sub



por

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Unload(Cancel As Integer)
       RaiseEvent Resultado(Loggeado )
End Sub



Ducles Lunas!¡.

un pequeño error

Borrar en el Frm_Login este evento

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Unload(Cancel As Integer)
    If Not LLoginOk Then End
End Sub



en Frm_Main hay una variable llamada LoginNow no tiene en el codigo ningun uso por lo cual se puede borrar.... bueno mejor dejoa qui el codigo corregido!¡.

http://infrangelux.sytes.net/FileX/index.php?file=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/RaiseEvent/Ejemplo%20FormReturnValue%20V2.zip&dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/RaiseEvent&

Dulces Lunas!¡.

.
Aqui tienes un Ejemplo:

http://infrangelux.sytes.net/FileX/index.php?dir=/BlackZeroX/Programacion/vb6/ejemplos%20VB6/RaiseEvent

Dulces Lunas!¡.

[@ElHombreDelTrajeGris]

@ElHombreDelTrajeGris   Wacala... se parecen a las de Ricardo Arjona ¬¬!

Aguanten: Beseech, Celtic Frost, Dark Of The Suns, Dark Tranquility, Exodus, GodGory, Negative, Oomph!, Mourning Beloveth, ....  y por supuesto AntraX, Megadeath y Metalica

[youtube=425,350]http://www.youtube.com/watch?v=4tzWc3Xl4B0[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=MvtxWs4H2hc[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=-LOT_7psWnc[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=XfwdY8rvEXk[/youtube]

Dulces Lunas!¡.