Visual Basic Foro

anyone can you help me
i have this code

Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32.dll" (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 CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Byte
Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Declare Function GetSysColorBrush Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function CreateDIBSection Lib "gdi32.dll" (ByVal hdc As Long, pBitmapInfo As BITMAPINFO, ByVal un As Long, ByRef lplpVoid As Any, ByVal handle As Long, ByVal dw As Long) As Long

Private Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type
 
Private Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors() As Long
End Type

Private m_hDC As Long
 
Private Sub Command1_Click()

    Dim hBitmap As Long
    Dim DC As Long
    Dim BI As BITMAPINFO
   
    DC = GetDC(0)
    m_hDC = CreateCompatibleDC(DC)
   
    With BI.bmiHeader
        .biSize = Len(BI.bmiHeader)
        .biBitCount = 32
        .biWidth = Picture1.ScaleWidth
        .biHeight = Picture1.ScaleHeight
        .biPlanes = 1
        .biSizeImage = .biWidth * .biHeight * (.biBitCount / 8)
    End With
   
    hBitmap = CreateDIBSection(m_hDC, BI, DIB_RGB_COLORS, ByVal 0, 0, 0)
    OldhBitmap = SelectObject(m_hDC, hBitmap)
    Call BitBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, m_hDC, 0, 0, vbSrcCopy)
   
End Sub


output on picturebox is black color
how do I want to output on picturebox cant set by color like VbRed

maybe ini this
      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0001_sunny.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Sunny]]></weatherDesc>

      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0002_sunny_intervals.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Partly Cloudy]]></weatherDesc>

      <weatherIconUrl><![CDATA[http://www.worldweatheronline.com/images/wsymbols01_png_64/wsymbol_0003_white_cloud.png]]></weatherIconUrl>
      <weatherDesc><![CDATA[Cloudy]]></weatherDesc>

when i remove it... is not problem

maybe you can use the IP Works commponent

thank you boss. turns out the problem was there ...  

i use UcListView http://www.leandroascierto.com.ar/categoria/Proyectos/articulo/Proyecto_2.php . How do I use for the event keypress to deliver value = F5, Delete

little improvement can not open COM31, COM32 ..
repair code:
strCom = "\\.\" & "COM" & CStr(c_lngComPort)

LeandroA gracias .. ahora mi problema puede ser solucionado