• Viernes 1 de Marzo de 2024, 14:36

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.


Temas - Gerard

Páginas: [1] 2 3
1
Visual Basic 6.0 e inferiores / Scroll Wheel para FlexGrid y TextBox
« en: Martes 23 de Septiembre de 2003, 20:47 »
Hola, aquí tienen un ejemplo encontrado en http://www.pscode.com/vb
Hay el codigo para que cuando se mueva la "wheel" del mouse baje y sube la barra de un flexgrid y un textbox.

Espero que les guste :adios:;):)

2
Visual Basic / Planet Source Code
« en: Sábado 20 de Septiembre de 2003, 10:17 »
Planet Source Code
http://www.pscode.com/vb

Web dedicada a la recopilación de codigo fuente vb (entre otros lenguajes). Hay millones de lineas de codigo fuente. Muy interesante. Idioma: Inglés

3
Visual Basic 6.0 e inferiores / Re: Mi programa de facturación - OpenSource
« en: Viernes 12 de Septiembre de 2003, 16:17 »
Hola gente de solocodigo. Durante el tiempo que no pude estar en Solocodigo, con la yuda de un libro y algun codigo de esos ultimos dias, he estado desarrolando un programa de Facturación. Aún no está acabado, falta algun detalle y cosas importantes, como Reportes, Algun error....
Y pense de hacer mi programa OpenSource, asi lo podriamos terminar entre la gente de ese foro. He visto muchos posts en otros foros sobre la petición de un programa de facturación. Ya se que me ha ostado muchas horas en pantalla, pero que mas bonito que crear uno OpenSource :flower: :yes:

Ahora, lo tengo en Catalán (mi idioma), dentro de algun tiempo pondre el codigo en SC, para que se lo bajen y entre todos poderlo terminar, logicamente, lo traducire en español y pondre expliacion en el codigo.

Ahí van algunas imagenes:









Ya les digo, quizas será dentro de 1 mes;) Pero ya lo tendran, tranquilos.


Saludos a todos :adios::)

4
Visual Basic 6.0 e inferiores / Re: Punto del teclado numerico
« en: Martes 9 de Septiembre de 2003, 21:56 »
Hola, mi aplicación está trabajando con €uros, y para escribir los numeros utilizo el teclado numerico. El problema es el siguiente: En los €uros, el decimal se hace con "," y en el teclado numerico hay "." , queria saber si hay algun codigo para que cuando escribas el punto (solo teclado númerico) se escriba una ","

Espero que me ayuden. Muchas Gracias:) :adios:

5
Visual Basic 6.0 e inferiores / Re: Iconos de Windows XP
« en: Lunes 8 de Septiembre de 2003, 22:06 »
He subido 3 archivos ZIP con iconos de Windows XP(muy lindos:)). Pueden bajarlos desde las siguientes URL:

Archivo 1 de 3 (848KB):
http://www.iespana.es/solocodigo/IconosXP/WinXP_1.zip

Archivo 2 de 3 (680KB):
http://www.iespana.es/solocodigo/IconosXP/WinXP_2.zip

Archivo 3 de 3 (465KB):
http://www.iespana.es/solocodigo/IconosXP/WinXP_3.zip

Espero que os guste esa colección.

Saludos, Chao :adios:

6
Visual Basic 6.0 e inferiores / Re: OCX Muy interesante
« en: Lunes 8 de Septiembre de 2003, 08:46 »
Buscando en Google, he encontrado un OCX muy interesante para proteger tus aplicaciones, controlar licencias etc. Es un OCX Shareware, voy a ver si encuentro el crack, si lo encuentro os lo digo;) per por el momento pueden probar el ocx.

Nombre OCX: Safeserial OCX 2.3.7

Página de descarga:
http://www.maromax.net/paginadedownload/Programacion/SafeserialOCX.htm

Imagen:



Chao;) :adios:

7
Visual Basic 6.0 e inferiores / Botones XP
« en: Domingo 7 de Septiembre de 2003, 15:06 »
Aquí va un codigo muy util para que si tienes XP, no tengas que crear el archivo "nom_app.exe.manifest" para los buttons:

Option Explicit

' ********** API **********

Private Const GWL_WNDPROC = (-4)

Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

Private Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Private Declare Function CallWindowProc Lib "user32" _
    Alias "CallWindowProcA" ( _
    ByVal lpPrevWndFunc As Long, _
    ByVal hwnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long

Private Declare Function GetProp Lib "user32" _
    Alias "GetPropA" ( _
    ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function SetProp Lib "user32" _
    Alias "SetPropA" ( _
    ByVal hwnd As Long, ByVal lpString As String, _
    ByVal hData As Long) As Long
Private Declare Function RemoveProp Lib "user32" _
    Alias "RemovePropA" ( _
    ByVal hwnd As Long, ByVal lpString As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" ( _
    Destination As Any, Source As Any, ByVal Length As Long)

Private Const WM_PAINT = &HF
Private Const WM_DESTROY = &H2
Private Const WM_NCPAINT = &H85
Private Const WM_MOUSEHOVER = &H2A1
Private Const WM_MOUSELEAVE = &H2A3
Private Const WM_MOUSEMOVE = &H200
Private Const WM_SETFOCUS = &H7
Private Const WM_KILLFOCUS = &H8
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_ENABLE = &HA
Private Const WM_MOUSEACTIVATE = &H21
Private Const BM_GETSTATE = &HF2

Private Const BST_PUSHED = &H4
Private Const BST_FOCUS = &H8

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Type PAINTSTRUCT
   hdc As Long
   fErase As Long
   rcPaint As RECT
   fRestore As Long
   fIncUpdate As Long
   rgbReserved(32) As Byte
End Type

Private Declare Function BeginPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long
Private Declare Function EndPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function InvalidateRect Lib "user32" ( _
    ByVal hwnd As Long, _
    lpRect As Any, _
    ByVal bErase As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function FillRect Lib "user32" ( _
    ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" ( _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal nPlanes As Long, _
    ByVal nBitCount As Long, _
    lpBits As Any) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc 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 InflateRect Lib "user32" ( _
    lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" ( _
    ByVal hDestDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal hSrcDC As Long, _
    ByVal xSrc As Long, _
    ByVal ySrc As Long, _
    ByVal dwRop As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

Private Const COLOR_BTNTEXT = 18
Private Const COLOR_GRAYTEXT = 17

Private Const DT_CALCRECT = &H400
Private Const DT_CENTER = &H1
Private Const DT_WORDBREAK = &H10

Private Declare Function DrawText Lib "user32" Alias "DrawTextA" ( _
    ByVal hdc As Long, _
    ByVal lpStr As String, _
    ByVal nCount As Long, _
    lpRect As RECT, _
    ByVal wFormat As Long) As Long

Type TrackMouseEvent
   cbSize As Long
   dwFlags As Long
   hwndTrack As Long
   dwHoverTime As Long
End Type

Private Const TME_HOVER = 1
Private Const TME_LEAVE = 2

Private Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TrackMouseEvent) As Long

Const TRANSPARENT = 1

Private Declare Function TransparentBlt Lib "msimg32" ( _
  ByVal hDCDest As Long, _
  ByVal nXOriginDest As Long, _
  ByVal nYOriginDest As Long, _
  ByVal nWidthDest As Long, _
  ByVal hHeightDest As Long, _
  ByVal hDCSrc As Long, _
  ByVal nXOriginSrc As Long, _
  ByVal nYOriginSrc As Long, _
  ByVal nWidthSrc As Long, _
  ByVal nHeightSrc As Long, _
  ByVal crTransparent As Long) As Long

Const SM_CXFOCUSBORDER = 83
Const SM_CYFOCUSBORDER = 84

' ********** Theme API **********

Const STAP_ALLOW_CONTROLS = 2

Private Declare Function GetThemeAppProperties Lib "uxtheme" () As Long
Private Declare Function IsThemeActive Lib "uxtheme" () As Long

Private Declare Function DrawThemeBackground Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal hdc As Long, _
   ByVal iPartID As Long, _
   ByVal iStateID As Long, _
   pRect As RECT, _
   pClipRect As RECT) As Long

Private Declare Function DrawThemeText Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal hdc As Long, _
   ByVal iPartID As Long, _
   ByVal iStateID As Long, _
   ByVal pszText As Long, _
   ByVal iCharCount As Long, _
   ByVal dwTextFlags As Long, _
   ByVal dwTextFlags2 As Long, _
   pRect As RECT) As Long

Private Declare Function DrawThemeEdge Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal hdc As Long, _
   ByVal iPartID As Long, _
   ByVal iStateID As Long, _
   pDestRect As RECT, _
   ByVal uEdge As Long, _
   ByVal uFlags As Long, _
   pContentRect As Any) As Long

Declare Function GetThemeTextExtent Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal hdc As Long, _
   ByVal iPartID As Long, _
   ByVal iStateID As Long, _
   ByVal pszText As Long, _
   ByVal iCharCount As Long, _
   ByVal dwTextFlags As Long, _
   pBoundingRect As Any, _
   pExtentRect As RECT) As Long

Private Declare Function IsAppThemed Lib "uxtheme" () As Long

Private Declare Function OpenThemeData Lib "uxtheme" ( _
   ByVal hwnd As Long, _
   ByVal pszClassList As Long) As Long

Private Declare Function CloseThemeData Lib "uxtheme" ( _
   ByVal hTheme As Long) As Long

Private Declare Function GetThemeSysColor Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal iColorId As Long) As Long

Private Declare Function GetThemeSysSize Lib "uxtheme" ( _
   ByVal hTheme As Long, _
   ByVal iSizeId As Long) As Long
'
' MakeXPButton
'
' Converts a "Graphical" button to XP style
'
Sub MakeXPButton(ByVal Button As Object)
Dim hwnd As Long

   On Error GoTo NoXP

   If IsThemeActive() = 0 Then Exit Sub
   If IsAppThemed() = 0 Then Exit Sub

   ' Check the object class
   If TypeOf Button Is CommandButton Or _
      TypeOf Button Is OptionButton Or _
      TypeOf Button Is CheckBox Then

      ' Only subclass if the style is Graphical
      If Button.Style = vbButtonGraphical Then

         ' Store the button object in the
         ' window and subclass it
         hwnd = Button.hwnd
         SetProp hwnd, "Button", ObjPtr(Button)
         SetProp hwnd, "WinProc", SetWindowLong(Button.hwnd, GWL_WNDPROC, AddressOf WinProc_Button)

      End If

   End If

NoXP:

End Sub

'
' DrawButton
'
' Draws a graphical button using the current
' XP visual style
'
Sub DrawButton(ByVal hwnd As Long)
Dim hdc As Long
Dim tPS As PAINTSTRUCT
Dim hTheme As Long, hBR As Long
Dim lState As Long
Dim bChecked As Boolean, bHot As Boolean, bFocused As Boolean
Dim bPushed As Boolean, bNoPicture As Boolean
Dim Button As Object, lFontOld As Long
Dim oPict As IPicture, oFont As IFont
Dim tCR As RECT, tCRText As RECT

   On Error Resume Next

   ' Get the button object
   CopyMemory Button, GetProp(hwnd, "Button"), 4&

   ' Get the button state
   lState = SendMessage(hwnd, BM_GETSTATE, 0&, ByVal 0&)
   bChecked = Button.Value
   bHot = GetProp(hwnd, "Hot")
   bPushed = lState And BST_PUSHED
   bFocused = lState And BST_FOCUS

   ' Get the client rectangle
   GetClientRect hwnd, tCR

   ' Open the theme
   hTheme = OpenThemeData(hwnd, StrPtr("Button"))

   ' Get the button DC
   hdc = BeginPaint(hwnd, tPS)

   ' Fill the background using the
   ' parent window background because
   ' the button can have transparent parts
   hBR = CreateSolidBrush(TranslateColor(Button.Container.BackColor))
   FillRect hdc, tCR, hBR
   DeleteObject hBR

   ' Set the state and picture
   If Button.Enabled = False Then

      lState = 4
      Set oPict = Button.DisabledPicture

      If oPict Is Nothing Then
         Set oPict = Button.Picture
      ElseIf oPict.Handle = 0 Then
         Set oPict = Button.Picture
      End If

   ElseIf bHot And Not bPushed Then

      lState = 2

      If bChecked Then
         Set oPict = Button.DownPicture

         If oPict Is Nothing Then
            Set oPict = Button.Picture
         ElseIf oPict.Handle = 0 Then
            Set oPict = Button.Picture
         End If
      Else
         Set oPict = Button.Picture
      End If

   ElseIf bChecked Or bPushed Then

      lState = 3

      Set oPict = Button.DownPicture

      If oPict Is Nothing Then
         Set oPict = Button.Picture
      ElseIf oPict.Handle = 0 Then
         Set oPict = Button.Picture
      End If

   ElseIf GetProp(hwnd, "Hot") = 1 Then

      lState = 2
      Set oPict = Button.Picture

   ElseIf bFocused Then

      lState = 5
      Set oPict = Button.Picture

   Else

      lState = 1
      Set oPict = Button.Picture

   End If

   If oPict Is Nothing Then
      bNoPicture = True
   ElseIf oPict.Handle = 0 Then
      bNoPicture = True
   End If

   ' Draw the button background
   DrawThemeBackground hTheme, hdc, 1, lState, tCR, tCR

   If bFocused Then

      ' Draw the focus rectangle
      tCRText = tCR
      InflateRect tCRText, -3, -3

      DrawFocusRect hdc, tCRText

   End If

   If Len(Button.Caption) Then

      ' Select the button font
      Set oFont = Button.Font
      lFontOld = SelectObject(hdc, oFont.hFont)

      ' Calculate the text size
      tCRText = tCR
      DrawText hdc, Button.Caption, -1, tCRText, DT_CALCRECT Or DT_CENTER Or DT_WORDBREAK

      tCRText.Left = tCR.Left
      tCRText.Right = tCR.Right

      If bNoPicture Then
         tCRText.Top = (tCR.Bottom - tCRText.Bottom) / 2
         tCRText.Bottom = tCRText.Top + tCRText.Bottom
      Else
         tCRText.Top = tCR.Bottom - tCRText.Bottom - 5
         tCRText.Bottom = tCR.Bottom
      End If

      ' Set the text background
      SetBkMode hdc, TRANSPARENT

      ' Set the color
      If Button.Enabled Then
         SetTextColor hdc, GetThemeSysColor(hTheme, COLOR_BTNTEXT)
      Else
         SetTextColor hdc, GetThemeSysColor(hTheme, COLOR_GRAYTEXT)
      End If

      ' Draw the text
      DrawText hdc, Button.Caption, -1, tCRText, DT_CENTER Or DT_WORDBREAK

      ' Restore the original font
      SelectObject hdc, lFontOld

      tCR.Bottom = tCRText.Top

   End If

   If Not bNoPicture Then

      Dim lW As Long, lH As Long

      ' Convert from HIMETRIC to Pixels
      lW = oPict.Width / 2540 * (1440 / Screen.TwipsPerPixelX)
      lH = oPict.Height / 2540 * (1440 / Screen.TwipsPerPixelY)

      If Button.Enabled Then

         If Button.UseMaskColor Then
            ' Draw the image using the mask color
            DrawTransparentPicture oPict, hdc, (tCR.Right - lW) / 2, (tCR.Bottom - lH) / 2,_
                                   lW, lH, Button.MaskColor
         Else
            ' Draw the image without using the mask color
            oPict.Render hdc, (tCR.Right - lW) / 2, (tCR.Bottom - lH) / 2 + lH, lW, -lH, _
                         0, 0, oPict.Width, oPict.Height, ByVal 0&
         End If

      Else

         ' Draw the image in disabled mode
         DrawDisabledPicture oPict, hdc, (tCR.Right - lW) / 2, (tCR.Bottom - lH) / 2, _
                             lW, lH, Button.MaskColor

      End If

   End If

   ' Release button object
   CopyMemory Button, 0&, 4&

   ' Release the DC
   EndPaint hwnd, tPS

   ' Close the theme
   CloseThemeData hTheme

End Sub

'
' DrawTransparentPicture
'
' Draws a transparent picture
'
Private Sub DrawTransparentPicture( _
   ByVal picSource As Picture, _
   ByVal hDCDest As Long, _
   ByVal xDest As Long, _
   ByVal yDest As Long, _
   ByVal cxDest As Long, _
   ByVal cyDest As Long, _
   ByVal clrMask As Long, _
   Optional ByVal xSrc As Long, _
   Optional ByVal ySrc As Long, _
   Optional ByVal cxSrc As Long, _
   Optional ByVal cySrc As Long)

Dim hDCSrc As Long, hDCScreen As Long
Dim hbmOld As Long

   If picSource Is Nothing Then Exit Sub
   If picSource.Type <> vbPicTypeBitmap Then Exit Sub

   If cxSrc = 0 Then cxSrc = cxDest
   If cySrc = 0 Then cySrc = cyDest

   hDCScreen = GetDC(0&)

   ' Select passed picture into an HDC
   hDCSrc = CreateCompatibleDC(hDCScreen)
   hbmOld = SelectObject(hDCSrc, picSource.Handle)

   ' Draw the bitmap in the destination DC
   TransparentBlt hDCDest, xDest, yDest, cxDest, cyDest, hDCSrc, xSrc, ySrc, cxSrc, cySrc, clrMask

   ' Restore the original bitmap
   SelectObject hDCSrc, hbmOld

   ' Release the DCs
   DeleteDC hDCSrc
   ReleaseDC 0&, hDCScreen

End Sub

'
' DrawDisabledPicture
'
' Draws a picture in B&W
'
Private Sub DrawDisabledPicture( _
   ByVal picSource As Picture, _
   ByVal hDCDest As Long, _
   ByVal xDest As Long, _
   ByVal yDest As Long, _
   ByVal cxDest As Long, _
   ByVal cyDest As Long, _
   ByVal MaskColor As Long)
Dim hDCSrc As Long, hDCScreen As Long, hDCBW As Long
Dim lBMPBW As Long, lBMPOld As Long

   If picSource Is Nothing Then Exit Sub
   If picSource.Type <> vbPicTypeBitmap Then Exit Sub

   hDCScreen = GetDC(0&)

   ' Select passed picture into an HDC
   hDCSrc = CreateCompatibleDC(hDCScreen)
   lBMPOld = SelectObject(hDCSrc, picSource.Handle)

   ' Create a B&W picture
   hDCBW = CreateCompatibleDC(hDCScreen)
   lBMPBW = CreateBitmap(cxDest, cyDest, 1, 1, ByVal 0&)
   DeleteObject SelectObject(hDCBW, lBMPBW)

   ' Set the source background to white
   ' When you use BitBlt to copy from a
   ' color to a B&W bitmap, windows
   ' will convert all pixels matching
   ' the source background color to white
   ' and everything else to black
   SetBkColor hDCSrc, MaskColor

   BitBlt hDCBW, 0, 0, cxDest, cyDest, hDCSrc, 0, 0, vbSrcCopy

   ' Draw the image using white
   ' as the transparent color
   TransparentBlt hDCDest, xDest, yDest, cxDest, cyDest, hDCBW, 0, 0, cxDest, cyDest, vbWhite

   SelectObject hDCSrc, lBMPOld

   DeleteDC hDCBW
   DeleteDC hDCSrc
   ReleaseDC 0&, hDCScreen

End Sub


'
' TranslateColor
'
' Converts an OLE_COLOR to RGB
'
Function TranslateColor(ByVal Clr As OLE_COLOR)

   If (Clr And &H80000000) = &H80000000 Then
      TranslateColor = GetSysColor(Clr And &HFF)
   Else
      TranslateColor = Clr
   End If

End Function

'
' WinProc_Button
'
' Button window procedure
'
Private Function WinProc_Button( _
    ByVal hwnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
Dim tTME As TrackMouseEvent
Dim lProc As Long

   ' Get the previous window procedure
   lProc = GetProp(hwnd, "WinProc")

   Select Case Msg

      Case WM_NCPAINT
         ' Do nothing
         Exit Function

      Case WM_PAINT

         ' Draw the button
         DrawButton hwnd
         Exit Function

      Case WM_DESTROY

         ' Unsubclass the window
         SetWindowLong hwnd, GWL_WNDPROC, lProc
         RemoveProp hwnd, "WinProc"
         RemoveProp hwnd, "Button"

   End Select

   ' Call the previous window procedure
   WinProc_Button = CallWindowProc(lProc, hwnd, Msg, wParam, lParam)

   Select Case Msg

      Case WM_MOUSEHOVER

         ' Mouse is over the button

         SetProp hwnd, "Hot", 1

         ' Redraw the button
         DrawButton hwnd

      Case WM_MOUSELEAVE

         ' Mouse has left the button

         RemoveProp hwnd, "Hot"
         DrawButton hwnd

      Case WM_MOUSEMOVE

         If GetProp(hwnd, "Hot") = 0 Then

            tTME.cbSize = LenB(tTME)
            tTME.hwndTrack = hwnd
            tTME.dwFlags = TME_HOVER Or TME_LEAVE
            tTME.dwHoverTime = 1

            TrackMouseEvent tTME

         End If

      Case WM_SETFOCUS, WM_KILLFOCUS, _
           WM_LBUTTONDOWN, WM_LBUTTONUP, _
           WM_KEYDOWN, WM_KEYUP, _
           WM_ENABLE, WM_MOUSEACTIVATE

         ' Draw the button
         DrawButton hwnd

   End Select


End Function


Espero q les guste;)

8
Visual Basic 6.0 e inferiores / Re: Se acaba el plazo para Microsoft
« en: Jueves 4 de Septiembre de 2003, 22:46 »
Se acaba el plazo para Microsoft

La primera seman de septiembre se cumple el plazo que Comisión Europea le dió al gigante del software. Con el fin del verano a las puertas, Microsoft debe contestar a las alegaciones de Bruselas o enfrentarse a una sanción que podría equivaler a un 10% de su cifra mundial de negocios.
Tras tres años de investigaciones sobre las supuestas prácticas abusivas de la empresa de Bill Gates en el mercado informático la Comisión Europea mandó el 6 de agosto un pliego definitivo de cargos a Microsoft. Según palabras de Mario Monti (en la imagen), comisario europeo de la Competencia, "tenemos ya las pruebas que confirman que Microsoft está utilizando su aplastante posición dominante en el mercado de los sistemas operativos para ordenadores personales como palanca para imponerse y extender su posición en el mercado". Como consecuencia, se está "debilitando la competencia", "se ahoga la innovación" y se "reducen las opciones de consumidores".
Bruselas centra su ataque en dos frentes. De un lado, cuestiona la integración que hace Microsoft en el sistema Windows 2000 de su reproductor Windows Media Player, ya que limita la posibilidad por parte de los usuarios de Windows de utilizar otro reproductor. Por otro lado, cuestiona los programas para servidores de gama baja que reproduce la compañía. Estan concebidos de tal modo que impiden la comunicación y el trabajo entre los ordenadores que utilizan el sistema Windows con los servidores que emplean software de otras compañías.
A parte de esas acusaciones, Bruselas ha planteado a Microsoft una serie de medidas para paliar este supuesto confilcto monopolístico. Asi, propone que Microsoft desvincule Media Player de Windows, y que haga pública a sus competidores la información sobre sus programas para que sea posible la comunicación entre ordenadores.
Microsoft tiene la palabra. Deberá responder ante estas acusaciones y proponer soluciones prácticas que acaben con su supuesto monopolio.

Bill Gates:


Mario Monti


Noticia extraida de la revista informática: "Personal Computer & Internet"

Gerard Marull - 04/09/2003

9


:ahora:

Ya esta disponible la nueva sección de noticias "El noticiario de Solocodigo". Esta sección, está dedicada a la información para los usuarios sobre las novedades de OCX, codigo fuente, Nuevos OS, Nuevo hardware, etc. Cualquier tema relacionado en VB o en informática lo pueden poner en esta sección.

Aquí les pongo la normativa para la utilización de "El noticiario de Solocodigo" :

  • - Esta sección está dedicada a información, no a publicidad ni a otro tipo de cosas.
  • - Cualquier tipo de mensaje publicitario o inutil, será eliminado
  • - Cuando el número de noticias sea superior a 5 por página, se moveran en otra página, dejando la nueva vacía para poner nuevos mensajes
  • - La persona que lleve más de 10 mensajes, se pondrá como "Noticiario Muy Activo" en la página de noticias.
[/b]


[align=right]Noticiarios muy activos:
- Actualmente no hay noticiarios Muy activos[/align]

Para cualquier duda o información: U2U a Gerard.

Espero que esta sección tenga éxito!:)

A ver si se publican noticias en los próximos días.

Saludos a todos. Chao:adios:

10
Visual Basic 6.0 e inferiores / Re: La sección de noticias
« en: Martes 2 de Septiembre de 2003, 15:23 »
:hola: Ahí va mi propuesta:

Seria interesante crear una sección donde hubiesen noticias relacionadas con nuevos ocx, webs de vb, nuevos OS, en fin cosas que pueden ser de interés a personas. Lo que haría:

Crear un mensaje con el título "Noticias - Comunidad VB" y dentro de el, poner noticias, que gente del foro podria aportar. Para que ese mensaje no quede lleno de noticias, mi idea era dejar ese tema (cerrarlo) cuando haya mas de 5 noticias y abrir otro con el mismo titulo y con un enlace a las ultimas 5 o 10 noticias, asi no se borran:) , pues a veces una notícia puede ser muy larga y si se ponen las de varios meses...

Este metodo del mensaje sería interesante, no deberemos molestar a solocodigo para que nos cree un subforo ni nada, solo crearemos un mensaje y dentro almacenaremos las noticias, que cada "5" Noticias se movera.

Actualmente soy moderador de VB, yo mismo haria lo de cerrar mensajes y crear el nuevo:)

Espero que les guste mi propuesta:) :adios:

11
Visual Basic 6.0 e inferiores / Re: Utilizar los Informes de Acces
« en: Lunes 1 de Septiembre de 2003, 21:42 »
Hola amigos, hace unos dias estoy buscando un buen manual para utilizar los reportes de acces, pero no encontrado ninguno que sea interesante. ¿ Alguien tiene un buen manual para crear informes en acces ?, también he buscado sobre crystal, pero prefiero acces.


Gracias! :beer::adios:

12
Visual Basic 6.0 e inferiores / Re: Hola de nuevo! :-)
« en: Viernes 29 de Agosto de 2003, 07:58 »
Hola de nuevo gente de solocodigo.

Seguro que gente como Hurrycrack, J.M. Movilla.... Ya me recuerdan. He estado todo estos meses sin PC, pues se me quemo el mio por una sobrecarga de electricidad, y hasta antes de empezar el cole no me he comprado otro. Se me borraron todos mis datos, contraseñas, proyectos.... Pues suerte q mi hermana tiene un PC y le instalé VB, gracias a ello he ido realizando alguna cosa, pero sin internet es muy limitado.

También he recibido noticias de José_D, nuestro miembro que también desapareció, pues aún está vivo, se le quemó la fuente de su PC, me dijo q no sabia cuando volveria a tener PC.

Espero q de hoy en adelante ya pueda venir al foro, ya les hechaba de menos tantos meses :beer:

Salu2 a quien me conocian, porque creo que tambien habra nueva gente!

Chao

13
Visual Basic 6.0 e inferiores / Re: StatusBar estilo XP
« en: Lunes 19 de Mayo de 2003, 11:19 »
Les mando ese ocx, es una statusbar, al estilo de xp. Espero que les guste;)

Salu2 :adios:

14
Visual Basic 6.0 e inferiores / Re: Ayuda Urgente!
« en: Martes 6 de Mayo de 2003, 07:31 »
Hola amigos, mi problema es el siguiente:
Tengo un bd en que se compone de la manera siguiente:

 
Y en un formulario tengo 4 pestañas, Lista de clientes, Datos del cliente, Artículos y Cobros. En la primera hay una listbosx que la lleno con Nombrepadre y nombremadre de la primera tabla de la bd (Clientes), el segundo, hay sus datos pero detallados (  Tambien són de la 1 tabla de la bd), en la tercera hay otra listbox con los articulos de ese cliente (de la segunda tabla) ¿Como debo hacer para que me salgan en la listbox (Descripción, precio, cantidad...) de la segunda tabla??? * Cada cliente tiene los suuyos! Y que después se puedan agregar en esa listbox de nuevos. En la 4 pestaña hay Cobros otra listbox con los datos de la 3 tabla ¿Como lo hago?  no se como tengo que hacer que me salgan los cobros. Y tambien poder agregar de nuevos!

Espero que me ayuden!!  Si puede ser con un ejemplo!!!Es super Urgente!!!:) :adios:






15
Visual Basic 6.0 e inferiores / Re: Duda: Tengo un problema con adodc...
« en: Jueves 24 de Abril de 2003, 20:05 »
Hola amigos! Mi problema es el siguiente:
Tengo una base de datos hecha en acces, con tres tablas (Clientes, Articulos, Cobros). En clientes hay una "Hoja secundaria de datos, que es artículos. Y dentro de esa secundaria artículos hay otra, que es cobros. En fin que quedan todas unidas.
Cuando conecto la BD con el ADODC, selecciono a su propiedad 'RecordSource' la tabla clientes.
Todos los datos que se encuentran en esa bd los tengo que mostrar, incluido los secundarios que se encuentran en clientes (los datos se muestran en textbox) y cuando voy a la propiedad DataField, solo me salen los campos de la tabla clientes.
Como debo hacer para que me salgan todos incluidos los de las hojas secundarias?
Es muy urgente, si no no podre terminar mi programa!
Agradezco cualquier ayuda!

Un saludo :adios:

16
Visual Basic 6.0 e inferiores / Más OCX de Windows XP!
« en: Jueves 24 de Abril de 2003, 18:33 »
Ya saben, como rey del xp les debo ir dando ocx y cosas de Windows XP, acá hay un textbox, un skin  y un boton stilo xp. Ese skin si es de una ventana normal, no como el otro que era de toolwindow.

Imagen:



Descarga:
http://www.iespana.es/solocodigo/XP.zip

Saludos, :adios:

17
Visual Basic 6.0 e inferiores / Re: Sobre DataReport
« en: Viernes 11 de Abril de 2003, 21:43 »
Hola amigos, necesito saber lo siguiente:
Tengo un datareport, y en ese pongo los  RptTextBox, pero si en la bd hay 50 registros, ese se repite 50. Yo solo queria que me imprimiera una sola vez, o sea que en un formulario estoy con el cliente 24, pulso Imprimir y me sale el datareport, pero solo con todos los datoa de ese cliente. Mejor un ejemplo, gracias
Gracias por su ayuda! :adios:

18
MS Access / Re: Insertar Hoja secundaria de datos
« en: Domingo 6 de Abril de 2003, 19:26 »
Como puedo hacer en acces una hoja secundaria de datos? Si me lo pueden decir paso a paso mejor. Lo necesito urgentemente. Gracias :adios:

19
Bueno, les queria decir algo:
Tengo una listbox, en ella una seria de nombres. Hay 2 option button.
Si selecciono el primero se me deben ordenar los nombres alfabeticamente, y si hay el segundo seleccionado se me ordenen por la fecha de apertura.

Bueno, agradezco cualquier ayuda. :adios:

20
Bueno, después de trabajar unas cuantas horitas en ese messenger, he terminado la versión MSC (MessengerSoloCodigo). Espero que les haya gustado mi idea, lo pueden usar tanto para solocodigo, como para hablar con los amigos.
Segiramente falta alguna cosa de traducción o algo no funciona 100% bien. Si pasa eso me lo notifican, e intentare arreglarlo.
Bueno, un saludo!!






Archivos adjuntos:
http://www.iespana.es/solocodigo/MSC.zip     (481 Kb)

P.D. Se necesita el OCX del Boton XP que publiqué hace algun dia, les pongo el link para si no lo tienen aún!
http://www.indomito.net/~solocodi/foros ... p?tid=2985

21
Visual Basic 6.0 e inferiores / Re: " El Messenger de SoloCodigo "
« en: Sábado 5 de Abril de 2003, 20:19 »
:excl: Hola! Como veran, estoy preparando un messenger para la comunidad de solocodigo, es muy bueno! He cogido el codigo fuente del que envié el otro día y lo he traducido he modificado un poco. Aún no está terminado, falta poco ya, supongo que el lunes o el martes ya lo tendré listo.
El objetivo de ese MessengerSoloCodigo es registrarnos los de la comunidad y poder hablar, bueno espero que les haya gustado mi idea!

22
Visual Basic 6.0 e inferiores / Re: MSN Messenger hecho en Visual Basic
« en: Viernes 4 de Abril de 2003, 09:30 »
B) Hola a todos, les envio ese messenger hecho en visual basic, esta con todo su codigo fuente, es muy complerto, aparecen popups, puedes usar emoticones... En fin muy bueno. Espero que les guste!
:adios:
P.D. En la foto se vee plateado, pero puede tener varios skins, azul, gris o plateado.


Archivos adjuntos:
http://www.iespana.es/solocodigo/msn_messenger.zip

23
Visual Basic 6.0 e inferiores / Re: Explorador de temas XP
« en: Jueves 3 de Abril de 2003, 10:48 »
Aquí tienen uj explorador de temas XP, lleva todo su codigo fuente tambien.
Bueno, :adios:

24
Visual Basic 6.0 e inferiores / Re: ComboBox estilo XP
« en: Miércoles 2 de Abril de 2003, 19:03 »
Les envio ese codigo, no es ocx. Se trata de una combobox al estilo XP. En ese foro nos modernizamos un poco jejejeje:D
Bueno, salu2 :adios:

25
Visual Basic 6.0 e inferiores / Re: TabStrip estilo XP
« en: Miércoles 2 de Abril de 2003, 18:58 »
Les envio otro ocx, es de una tabstrib estilo XP, va con un ejemplo!
Bueno, espero que les guste.


:adios:

Páginas: [1] 2 3