Hola,busca en Planet Source Code(lo pongo entero porque si pongo PSC despues ni saben que es..)ahi hay codigos he visto para colorear palabras que vos definis desde codigo que deben tener color que quieras...
saludos.
saludos.
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úCita de: Ultra-XandreDios, no me hables de API que me pone de mal humor.
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_Load()
Call Descargar("http://www.txt.net/orsq.jpg")
End Sub
Sub Descargar(Url As String)
Me.MousePointer = vbHourglass
Call URLDownloadToFile(0, Url, "c:\orsq.jpg", 0, 0)
Me.MousePointer = vbDefault
If Len(Dir("c:\orsq.jpg")) <> 0 Then
MsgBox "existe"
Kill "c:\orsq.jpg"
Else
MsgBox "no existe"
End If
End Sub
Private Sub Form_Load()
If Dir$("C:\window", vbDirectory) = vbNullString Then
MsgBox "no existe"
Else
MsgBox "existe"
End If
End Sub
Option Explicit
Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Private Sub Form_Load()
MsgBox CBool(PathIsDirectory("c:\windows"))
End Sub