Visual Basic Foro

Buenas tardes con todos, como puedo hacer para abrir una calculadora de windows y que esta siempre este  al costado de mi formulario ya se moviendo o este quieto mi formulario. muchas gracias

Buenas noches con todos.

estuve probando el ucListView y al parecer solo puedo editar la primera primera columna cuando hago mas de dos veces click

cuando hago mas de dos veces click recien reacciona para poder editar(no se si ese sera un problema)

pero estoy buscando la forma de poder editar cualquier item de diferete columna del uclistview, es posible hacerlo?

muchas gracias de antemano.

Buenas noches con todos, como puedo cambiar la posicion del scrollbar que actualmente se encuentra a la derecha
yo quisiera que estuviese en el lado izquierdo o seria mejor una propiedad donde se pueda elegir la posición del scrollbar del control de leandro(ScrollControl) Izquierda o Derecha.

y muy aparte tambien el poder modificar el ancho del scrollbar

Muchas Gracias.

HOLA ESTE METODO ME AYUDA A BUSCAR EN UN COMBOBOX CON LA PROPIEDAD DE SOLO LECTURA,

SI EN EL COMBOBOX TENGO ESTOS ITEM.

"1 - NUMERO UNO"
"2 - NUMERO DOS"
"3 - NUMERO TRES"
"4 - NUMERO CUATRO"

ESTE METODO ME AYUDA A BUSCAR EL INDICE EN EL QUE SE ENCUENTRE LA PALABRA QUE YO ESTOY BUSCANDO POR EJEMPLO

Call buscarComboBox(ControlCombobox, "1")
esto hace que el combo se posicione en el indice que se ubica la letra "1"

Sub buscarComboBox(ByRef ctControlCombo As ComboBox, ByVal texto As String)
    Dim ret As Long: ret = SendMessage(ctControlCombo.hwnd, CB_FINDSTRING, -1, ByVal texto)
    If ret <> -1 Then
        ctControlCombo.ListIndex = ret
    End If
End Sub

el problema que tengo es que yo no quiero que lea de izquierda a derecha sino de derecha a izquierda
algo asi como esto
Call buscarComboBox(ControlCombobox, "TRES")
ENTONCES QUE EL COMBOBOX SE POSICIONE EN EL INDICE 2

Buenas tardes quisiera poder dibujar con api varios duadrados y dentro de esos cuadrados texto
estoy intenando primero dibujar los cuadrados pero no me sale

Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 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
Private Declare Function CreatePen Lib "gdi32.dll" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long

Private Sub Form_Load()

    Me.ScaleMode = vbPixels
    Dim i As Integer
    For i = 0 To 2
        drawArea Me.hdc, i
    Next i
   
End Sub

Private Sub drawArea(ByRef DEShdc As Long, ByVal i As Integer)
    Dim hPen        As Long
    Dim hBrush      As Long
    Dim OldBrush    As Long
    Dim OldPen      As Long

   
    hPen = CreatePen(0, 1, &H3C5AD7)
    hBrush = CreateSolidBrush(&H86E5&)
   
    OldBrush = SelectObject(DEShdc, hBrush)
    OldPen = SelectObject(DEShdc, hPen)
   
    RoundRect hdc, 1, 100 * i, 20, 50, 8, 8
   
    Call SelectObject(DEShdc, OldPen)
    Call SelectObject(DEShdc, OldBrush)
   
    DeleteObject hPen
    DeleteObject hBrush
   
End Sub

ESTE CODIGO LO QUE HACE ES DIBUJAR DOS CUADRADOS PERO NO PUEDO SEPARARLOS
QUISIERA QUE ESTE SEPARADO Y ENCIMA DE CADA CUADRADO DIBUJAR UN TEXTO, ESTA ES LA IDEA PRIMORDIAL QUE TENGO

MUCHAS GRACIAS

Buenas noches con todos, tengo una duda tengo en mente crear un sistema multiempresarial
pero la duda que tengo es si crear BASE DE DATOS POR EMPRESA o crear campo a mis tablas que diga empresaID(en cada tabla)
y asi identificar que registro pertenece a que empresa

que me pueden recomendar, lo idea es que sea optimo

muchas gracias

hola leandro que tal, mira estuve jugando con el listboxex y hay un error
en este enlace estan los pasos que hice para que pasara ese error
http://leandroascierto.com/blog/listboxex/