Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - E N T E R

Páginas: 1 2 [3] 4 5 6 7 8 ... 71
31
Visual Basic 6 / Re:Problema con el instalador con vb6 y crystal reports 8
« en: Septiembre 15, 2015, 11:17:59 am »
Hola la verdad nunca use el Crystal pero según el amigo ssccaann estos son las librerias que necesitas instalar en la pc cliente.

http://leandroascierto.com/foro/index.php?topic=454.msg2284#msg2284

32
Visual Basic 6 / Re:¿existen un control de usuario para cambiar estilo de los botones?
« en: Septiembre 13, 2015, 03:15:41 pm »
Podes usar el AeroSuite

Aca te dejo para que bajes y ver que tal son.

http://en.pudn.com/downloads135/doc/detail575236_en.html


33
General / Re:Este tipo de ComboBox
« en: Septiembre 09, 2015, 11:43:10 am »
Hola amigo, lo que pasa es que no tiene la punta redondeada y no se mucho de user control para la edicion

34
General / Este tipo de ComboBox
« en: Septiembre 01, 2015, 11:37:40 am »
Hola alguien sabe donde puedo encontrar esta forma de combo para el Vb6


35
Visual Basic 6 / Re:Posición de un formulario
« en: Agosto 28, 2015, 09:39:19 am »
Hola yo con este codigo hago para centrar cualquier form o un picture y darle la posicion donde tiene que quedar con el xTop

Código: (VB) [Seleccionar]
Private Sub Form_Load()
   
    Call CENTRAR_VENTANAS(Me, 10000, 5000, -1500)

End Sub
En un Modulo

Código: (VB) [Seleccionar]
Public Sub CENTRAR_VENTANAS(frm As Form, Width As Long, Heigth As Long, xTop As Long)
   
    frm.Width = Width
    frm.Height = Heigth
   
    isq = (MDIForm1.Width - frm.Width) / 2
    If isq < 0 Then isq = 0
        arr = (MDIForm1.Height - frm.Height) / 2
    If arr < 0 Then arr = 0
   
    frm.Left = isq - 150
    frm.Top = arr - xTop
   
End Sub

36
General / Re:New Visual Basic 6.0 installer
« en: Agosto 26, 2015, 12:36:56 pm »
Lo sospeche desde un principio  ;D

Gracias amigo.

37
General / New Visual Basic 6.0 installer
« en: Agosto 25, 2015, 07:17:59 pm »
Hola me tope con esto en PSC

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=74428&lngWId=1

Probe en 2 win, Win7 y Win10 pero los 2 me tira errores.

38
Visual Basic .NET / C# / Re:Ayuda generar txt con informacion de un Form
« en: Agosto 20, 2015, 02:48:13 pm »
Aca te prepare un pequeño ejemplo yo usaba este metodo para imprimir con la impresora ticketeadora.

El Proyecto para que veas como funciona: https://mega.nz/#!JQV3lIhS!h84xXKF6120FqjvNvocPcS3JuY3ZFrKfcc76eVzYX4E



Código: (VB) [Seleccionar]
Private Sub cmdImprimir_Click()
   
    Open ("c:\factura.txt") For Output As #1
   
    Print #1, Tab((100 - Len("REPORTE DE CIFRAS")) \ 2); "REPORTE DE CIFRAS"
    Print #1, Tab(1); String(100, "_")
    Print #1, Tab(1); "CONCEPTO"; Tab(30); "ART. LEY"; Tab(50); "%"; Tab(70); "MONTO"
    Print #1, Tab(1); String(100, "-")
   
    For i = 0 To 2
        Print #1, Tab(1); lblConcepto(i).Caption; Tab(30); lblLey(i).Caption; Tab(50); lblPorciento(i).Caption; Tab(70); txtMonto(i).Text
    Next i
   
    Print #1, Tab(1); String(100, "-")

    Close #1

End Sub
Saludos...

39
Visual Basic 6 / Re:Obtener partes de la Web
« en: Agosto 20, 2015, 12:35:27 pm »
Gracias amigo Albertomi me sirvio tu ayuda.

40
Visual Basic 6 / Obtener partes de la Web
« en: Agosto 19, 2015, 06:46:18 pm »
Hola pregunto esto al obtener con el control inet seria el codigo fuente de la web como hago para sacar solo lo que necesito de el.

Ejemplo esta imagen tengo de la web
http://snag.gy/ilLEW.jpg

y solo quiero sacar el IP.

41
Visual Basic 6 / Re:Geolocalizar con VB6
« en: Agosto 19, 2015, 06:30:29 pm »
Option Explicit
' Add Microsoft Internet Transfer Control

Dim pubIPA As String, pos1 As Long, pos2 As Long, str As String
     
Private Sub Form_Load()
    str = Inet1.OpenURL("http://api.hostip.info/get_html.php?ip=", icString)
   
    'pos1 = InStr(str, "var ip =")
    'pos1 = InStr(pos1 + 1, str, "'", vbTextCompare) + 1
    'pos2 = InStr(pos1 + 1, str, "'", vbTextCompare)
    'pubIPA = Mid$(str, pos1, pos2 - pos1)
    'MsgBox pubIPA, vbInformation
    MsgBox str
    Unload Me
   
End Sub

Este funciona mejor creo me devuelve mi ip real de internet pero no se por que no me reconoces el nombre de mi pais

42
Visual Basic 6 / Re:Geolocalizar con VB6
« en: Agosto 19, 2015, 05:49:43 pm »
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country
Const LOCALE_SENGLANGUAGE = &H1001  ' English name of language
Const LOCALE_SNATIVELANGNAME = &H4  ' native name of language
Const LOCALE_SNATIVECTRYNAME = &H8  ' native name of country
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    MsgBox "You live in " & GetInfo(LOCALE_SENGCOUNTRY) & " (" & GetInfo(LOCALE_SNATIVECTRYNAME) & ")," & vbCrLf & "and you speak " & GetInfo(LOCALE_SENGLANGUAGE) & " (" & GetInfo(LOCALE_SNATIVELANGNAME) & ").", vbInformation
End Sub
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer As String, Ret As String
    Buffer = String$(256, 0)
    Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer))
    If Ret > 0 Then
        GetInfo = Left$(Buffer, Ret - 1)
    Else
        GetInfo = ""
    End If
End Function

43
Visual Basic 6 / Detectar click sobre icono cargado en el Form
« en: Agosto 08, 2015, 01:45:00 pm »
Hola, tengo esta pequeña función en donde cargo una imagen dentro del form

Código: (VB) [Seleccionar]
Private Sub Command1_Click()
    Call PintarIcono(500, 500, Me)
End Sub
Código: (VB) [Seleccionar]
Public Sub PintarIcono(ByVal xPos As Integer, ByVal yPos As Integer, xForm As Form)

    Dim pic1 As StdPicture
    Set pic1 = LoadPicture("e:\icono.ico")
    xForm.PaintPicture pic1, xPos, yPos
   
End Sub
Hasta ahi todo bien puedo mostrar sin problema el icono, lo que necesito es saber si se puede hacer click sobre el icono que cargue en el form y que haga una accion pero solo donde esta situado el icono que se cargo.

44
Visual Basic 6 / Re:Ctrl+z en LisView
« en: Agosto 08, 2015, 01:41:39 pm »
Yo creo que tenes que poner en otro Listview o dentro de una variable temporal por asi decirlo la ruta y el nombre del archivo y cuando pulzas dentro de tu programa la combinacion de control z que vuelva el archivo en su lugar original.

45
Visual Basic 6 / Re:SFTP en VB6 alguien sabe como?
« en: Julio 20, 2015, 08:39:21 pm »
Hola, Por si sirva para algo
http://www.example-code.com/vb/sftp.asp

Páginas: 1 2 [3] 4 5 6 7 8 ... 71