Visual Basic Foro

eso depende, si cargas una imagen PNG con transparencia, si, seria posible, pero en otros formatos lo dudo (JPG, BMP)

Los ISO son originales, el Win++ es alternativo y corre en todos los Windows...32 y 64 bit

EL ISO de VB6 Pro en INGLES, es la ultima Versión de VB6 Pro lanzada por M$ en 2001 para Licencias por Volumen, cuyo instalador es compatible con x64, por lo que funciona instalar directamente sin realizarle "trucos" al instalador.
Eso si, los componentes ADO/RDS incluidos en esta versión son los originales (desactualizados) por lo que hay que omitirlo de la instalación en entornos x64 (Win8/10) o daran error colgando el instalador en el proceso. En teoría debieran ser compatibles con Win7 x64 pero en las pruebas realizadas se colgó el instalador al hacer una instalación Full, por lo que recomiendo omitirlos de todas formas. tiene pequeñas diferencias en el IDE, sobre todo en el apartado Tools/Options, pero nada relevante. en todo lo demas es nuestro querido VB6 de siempre.

Estimados:
A raiz de una solicitud de un par de amigos del Grupo WhatsApp, me dí a la tarea (en mi escaso tiempo libre) de recopilar (más bien de ordenar) una serie de Aplicaciones y utilidades que uso para apoyarme en la creación de aplicaciones en VB6. incluido el mismo VB6 SP6 (versiones Pro y Empresarial), AddIns para VB6 y Suite de Controles... Todo está en la misma Carpeta MEGA, la cual voy a tratar (en la medida de lo posible) de ir actualizando y manteniendo en linea...

Visual Basic 6
https://mega.nz/folder/pD5DXApa#bovMMf2z4PhnamYURDckew


VB6 AddIns
https://mega.nz/folder/1W43lQhB#cgEzcoJkOfx1lhM96IztfA


CONTROLS SUITE
https://mega.nz/folder/QL4TyYCT#bs40pDLam-rnhEchv7qHYw


DB Utils
https://mega.nz/folder/4apVVapT#pGMpLGcdxe0tWO3jTVMf_g


Utils & Tools
https://mega.nz/folder/4XwzVQKC#f_49RiYiaxHMHJ1SzPLVpQ


XOJO (Alternativa multiplataforma a VB6)
https://mega.nz/folder/9GYhzaaS#b4sxQFbrKUY9UT1IToPaXw


VM
https://mega.nz/folder/hSghBKID#Jqqhy7vMroqjN1UJJrLwTQ


MonoSpace Fonts para Editores de Código (incluído VB6)
https://mega.nz/folder/xW4DTC7b#3AzFEWLlo4tRO8do0oEkiA


Nota:
01-12-2020: Agregada Instalación de MSDN98 (Ayuda de VisualStudio98, para instalar ejecutar ACMSETUP.EXE)
07-08-2020: Agregada ISO Original de la ultima Version de VB6 Pro publicada por M$, en idioma Inglés. (compatible x64)
27-05-2020: Agregada Carpeta para XOJO, un Lenguaje alternativo similar a VB6, orientado a objetos.
18-05-2020: Actualizadas algunas utilidades para DB (SQLite, MySQL, Firebird)
18-05-2020: Reordenada la Carpeta DB Utils por motor: Firebird, MySQL, SQLite, Access SQLServer

Cordialmente, un virtual abrazo a todos

Here is it...

https://foro.elhacker.net/programacion_visual_basic/uclistviewex_25_clsiconlist-t320562.0.html

Hola Estimados:
Tantas Lunas!... estaba retomando un proyecto antiguo y me topé con un detalle que en esa ocasión dejé pasar, y es que un Borde de un UC, creado con RoundRect no cambia de color en tiempo de ejecución, pero si puedo hacerlo en tiempo de diseño, les agradecería un monton si los más avezados en APIs me pudieran decir en que estoy fallando:

'--Seccion APIs--
Private Declare Function DeleteObject Lib "Gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "User32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "Gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function RoundRect Lib "Gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

'--Sub crea Bordes--
Private Sub DrawBorders()
Dim Rgn As Long
With UserControl
    Rgn = CreateRoundRectRgn(0, 0, .Width, .Height, 0, 0)
    SetWindowRgn .hwnd, Rgn, True
    DeleteObject Rgn
    .DrawWidth = 2
    .ForeColor = m_BorderColor
    RoundRect .hDC, 0, 0, .ScaleWidth, .ScaleHeight, 0, 0
End With
End Sub

'--Propiedades UC--
Public Property Get BorderColor() As OLE_COLOR
BorderColor = m_BorderColor
End Property

Public Property Let BorderColor(ByVal NewBorderColor As OLE_COLOR)
m_BorderColor = NewBorderColor
PropertyChanged "BorderColor"
DrawBorders
End Property

Como les decía, si cambio la Propiedad BorderColor en Diseño, si lo hace, pero al testearlo en Ejecución no pasa nada, mantiene el color asignado durante el diseño...

Agradecido de antemano, un abrazo a todos los emblemáticos del mejor Foro VB6!

Puedes probar con el xFrame UserControl v2

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

jajaja ese "yo quiero" me sonó a mi bebita cuando hace berrinche...

prueba con este Código en el Evento KEYPRESS

Private Sub txtbox_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
    sPalabra = Split(txtbox.Text, " ")
    txtbox.Text = ""
    KeyAscii = 0
    For i = LBound(sPalabra) To UBound(sPalabra)
        Palabra = UCase$(Left$(sPalabra(i), 1)) & LCase$(Mid$(sPalabra(i), 2, Len(sPalabra(i))))
        txtbox.Text = txtbox.Text & Palabra & " "
        txtbox.SelStart = Len(txtbox.Text)
    Next i
End If

End Sub


Hola nico_hitman:

Para que puedas abrir otras planillas mientras ejecutas el buscador solo cambia la forma en que se muestra el UserForm VBA:
- En las Propiedades del UserForm cambia ShowModal a FALSE




Saludos Cordiales