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 - CeLaYa

#411
puedes usar el getattr, este es para checar los atributos de un archivo pero da igual


mira pones

on local error resume next
dim i as long
i = getattr("c:\tu_archivo.mdb")
if err then   
' No encontro el archivo
else
' si existe
end if
on local error goto 0
   
#412
no cabe duda que todos los dias se aprende algo nuevo, puse el autoredraw = True y LISTO!!!!!


Gracias xDie!!!
#413
mira lo puedes hacer asi



Private sub Form_Resize()

  '567 twip = 1 cm

   on local error resume next
   text1.left = 567*2 ' Margen izquierdo
   text1.with = me.scalewith - 567*4 'Margen derecho
   text1.top = 567*2 ' Margen superior
   text1.Height = me.scaleHeight - 567*4 'Margen inferior
   on local error goto 0

end sub
#414
hola estoy trabajando con un picture box al que le mando imprimir texto, el problema es que si paso alguna ventana por encima del picture, el contenido del picture se borra, alguien sabe como hacerle para que el contenido se quede alli?
de antemano gracias
#415
Despues de haberme partido la cabeza con eso del RichTextBox se me prendio el "foco" y que crees eso que quieres hacer se puede hacer con un PictureBox, ahora solo hay que agregarle sus scrolBars


Private Sub Form_Load()
    Dim i As Integer
    Show
    For i = 1 To 10
        If Picture1.ForeColor = vbRed Then
            Picture1.ForeColor = vbBlue
            Picture1.Font = "Courier New"
            Picture1.FontBold = True
            Picture1.FontSize = i + 8
        Else
            Picture1.ForeColor = vbRed
            Picture1.Font = "Arial Black"
            Picture1.FontBold = False
            Picture1.FontSize = i + 8
        End If
        Picture1.Print "hola"
       
    Next i

End Sub
#416
pues ya me ropi cabeza y no encuentro forma de hacerlo, creo que la unica solución es la que comentabas

CitarNo se que hacer ya... lo maximo que he conseguido es que una vez escrito el texto del report en la RTB, pasar un filto buscando las palabras a colorear...pero el efecto es un poco cutre...

porque otra forma no se me ocurre, solo que le pongas Visible = False luego coloreas y otra vez Visible = True
#417
Soru13 lo que debes hacer es usar el "ejecutar del windows" solo pones c:\1.exe archivo.txt  y eso es todo
#418
hice la prueba de meter texto con un for algo similar a lo que haces y me pasa lo mismo, la verdad no se porque .

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
#419
tambien puedes borrarlo enviandolo a la papelera de reciclaje

'Crea un módulo BAS e inserta estas declaraciones:

Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer ' As Long para que funcione en Windows XP con VB6
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type


Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
   (lpFileOp As SHFILEOPSTRUCT) As Long


Public Function ShellDelete(ParamArray vntFileName() As Variant) As Long

    Dim I As Integer
    Dim sFileNames As String
    Dim SHFileOp As SHFILEOPSTRUCT

    For I = LBound(vntFileName) To UBound(vntFileName)
   sFileNames = sFileNames & vntFileName(I) & vbNullChar
    Next
    sFileNames = sFileNames & vbNullChar

    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = sFileNames
        .fFlags = FOF_ALLOWUNDO
    End With

    ShellDelete = SHFileOperation(SHFileOp)

End Function


'En un formulario, inserta un botón Command y escribe esto:

Private Sub Command1_Click()
    Dim FileToKill As String

    'Escribe aquí el archivo a borrar
    FileToKill = "c:\test*.txt"
    ShellDelete FileToKill
    MsgBox "File(s) deleted"
End Sub
#420
Programación Visual Basic / Re: Shell en Ms VB
26 Octubre 2006, 14:14 PM
pues podrias usar el SendKey o si lo que quieres es mandar mails dale en el boton de buscar de este foro, a ver si te sirve este link

http://foro.elhacker.net/index.php/topic,143257.0.html