Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Danyfirex

#251
Programación Visual Basic / Re: ayuda vb6
20 Febrero 2013, 22:33 PM
bueno vamos a darte una manito  :rolleyes:

podrías hacerlo así.

Código (vb) [Seleccionar]
Dim i As Long
'MsgBox (flex.Rows) numero de filas
'MsgBox flex.TextMatrix(1, 2) tipo matriz
For i = 1 To flex.Rows - 1
Debug.Print flex.TextMatrix(i, 2) 'leo siempre en la columna 2 y respectivamente con I
If flex.TextMatrix(i, 2) = "SOS" Then ' si quieres pintar toda la fila solo haces el inverso.
flex.Col = 2
flex.Row = i
flex.CellBackColor = vbRed
End If
Next i


saludos
#252
No hagas 2 temas para la misma pregunta.  ;D
#253
Prueba con esta a ver que tal. y me dejas el reporte.

le das a delete o borrar o suprimir.

http://www.infospyware.com/antispyware/adwcleaner/

saludos

#254
http://msdn.microsoft.com/es-ve/library/cc437602(v=vs.71).aspx

hay muchas formas.
podrías leer de linea a linea.
podrías delimitar los nuevas lineas.
#255
Programación Visual Basic / Re: ayuda vb6
19 Febrero 2013, 21:38 PM
El titulo debería ser mas descriptivo.  :¬¬
Hay mucho material en google sobre el tema.
#258
este codigo es para vb6.
estudialo.

Código (vb) [Seleccionar]
'Screen Capture Demo by Tanner Helland (published 2008, updated 2012)
' http://www.tannerhelland.com

'If you like VB game and graphics code, be sure to subscribe to my RSS feed at
' http://www.tannerhelland.com/feed/

'The required API calls are:

'This call gives us the hWnd (window handle) of the screen
Private Declare Function GetDesktopWindow Lib "user32" () As Long

'This call assigns an hDC (handle of device context) from an hWnd
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

'BitBlt lets us draw an image from a hDC to another hDC (in our case, from an hDC of the screen capture
' to the hDC of a VB picture box)
Private Declare Function BitBlt Lib "gdi32" (ByVal hDC 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 opCode As Long) As Long

'ReleaseDC will be used to release the screen's hDC once the screen capture is complete.
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

'This sample project copies the screen when the form loads; you could also place this code in
' a command button (or any other input)
Private Sub Form_Load()

    'First, minimize this window
    Me.WindowState = vbMinimized
   
    'Get the hWnd of the screen
    Dim scrHwnd As Long
    scrHwnd = GetDesktopWindow
   
    'Now, assign an hDC to the hWnd we generated
    Dim shDC As Long
    shDC = GetDC(scrHwnd)
   
    'Determine the size of the screen
    Dim screenWidth As Long, screenHeight As Long
    screenWidth = Screen.Width \ Screen.TwipsPerPixelX
    screenHeight = Screen.Height \ Screen.TwipsPerPixelY
   
    'Copy the data from the screen hDC to this VB form
    BitBlt FormScreenCapture.hDC, 0, 0, screenWidth, screenHeight, shDC, 0, 0, vbSrcCopy

    'Release our hold on the screen's hDC
    ReleaseDC scrHwnd, shDC
   
    'Set the picture of the form to equal its image
    FormScreenCapture.Picture = FormScreenCapture.Image
   
    'Restore the window
    Me.WindowState = vbNormal

End Sub



ya deja de usar vb 5 es algo viejo  :rolleyes: lo es el 6.
#259
No me refiero a que uses OPEN. me refiero a que podrías escribir un código de vb6 "solo vb6" que haga lo que quieres sin necesidad de usar archivos externos.
#260
todo de todo.