Mensajes

Por aca hay algo

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/56.htm

Código [Seleccionar] Expandir



Option Explicit
' Crea la región
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

'Establece la región
Private Declare Function SetWindowRgn Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hRgn As Long, _
    ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
  Call Redondear_objetivo(Picture1, 15)
  Picture1.BackColor = vbRed
End Sub

Private Sub Redondear_objetivo(objetivo As PictureBox, Radio As Long)

Dim Region As Long
Dim ret As Long
Dim Ancho As Long
Dim Alto As Long

'Obtenemos el ancho y alto de la region del Form
Ancho = objetivo.Width / Screen.TwipsPerPixelX
Alto = objetivo.Height / Screen.TwipsPerPixelY

'Le pasamos el ancho alto del formualrio y el valor de _
redondeo es decir el radio
Region = CreateRoundRectRgn(0, 0, Ancho, Alto, Radio, Radio)

' Aplica la región al formulario
ret = SetWindowRgn(objetivo.hwnd, Region, True)

End Sub





S2

Te dejo un Link.

http://winapi.conclase.net/curso/index.php?tab=Funciones

S2

[msdn]

uhmmmm y que diferencia hay entre el signo (+) mas y el & (ampersand)

Para dos strings declaradas podes usar el "+" muy tranquilo, tu practica es el mejor msdn .
Prefiero ser yo el que decida cuando usar el "+" o cuando  la "&" y no que el "Estandar de progamación" decida por mí.
 

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()

Text1 = 1
Text2 = 2
MsgBox Text1 + Text2

Text1 = "1"
Text2 = "2"
MsgBox Text1 + Text2

Text1 = "1"
Text2 = "2"
MsgBox Val(Text1) + Val(Text2)

Text1 = "x"
Text2 = "2"
MsgBox Val(Text1) + Val(Text2)

End
End Sub




S2 jack06

Tené en cuenta en guardar siempre con la miasma estructura

TxtCapRam + " " + CbCapacidadMe.Text

El ünico espacio en la cadena debe ser el intermedio.


S2

Hola, probá así

Código [Seleccionar] Expandir



Dim cadena As String: Dim cadena2() As String

cadena = ListPlanilla.SelectedItem.ListSubItems(10).Text
cadena2 = Split(cadena, " ")

MsgBox cadena2(0) ' al Text
MsgBox cadena2(1) ' al combo




Código [Seleccionar] Expandir



Private Sub Form_Load()

Dim cadena As String: Dim cadena2() As String

cadena = "1234 MHZ"

cadena2 = Split(cadena, " ")
MsgBox cadena2(0)
MsgBox cadena2(1)

cadena = "38 GB"

cadena2 = Split(cadena, " ")
MsgBox cadena2(0)
MsgBox cadena2(1)

End

End Sub



S2

Hola jack06, si todavía no lo solucionaste probá con esto:
http://www.microsoft.com/downloads/details.aspx?FamilyID=4348502a-61be-4072-abe2-e3fc3aa0eee6&DisplayLang=es

En XP SP3 parece funcionar bien (recién lo instalé)

S2

EDIT: No funciona en W7

Tenes IE7 o IE8 ?

S2

Si los clicks son sobre un Button podrias usar SendMessage con BM_GETSTATE para interceptar los clicks y para medir los intervalos podes usar Gettickcount (en milisegundos) y almacenarlos en una variable

http://foro.elhacker.net/programacion_vb/interceptar_click_ajenos_con_sendmessage_ejemplo-t242264.0.html

S2

OT: yo siempre quise dibujar un circulo con una taza pero lo unico que consegui fue una Q

Rompele la manija Cobein 

 Call PostMessage(Form2.Command3.hwnd, &HF5, 0&, 0&)