| |
|
391
|
Programación / Programación Visual Basic / Re: Como saber si una carpeta esta vacia
|
en: 7 Abril 2009, 21:14 pm
|
|
Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Long
Private Sub Form_Load()
MsgBox PathIsDirectoryEmpty("C:\Documents and Settings\Administrador\Escritorio\Nueva carpeta")
End Sub
yo opto por esta ya que te va a poner si hay un archivo oculto o una carpeta vasia.
Saludos
|
|
|
|
|
394
|
Programación / PHP / Xml o Expreción Regular?
|
en: 24 Marzo 2009, 22:13 pm
|
Hola disculpen si esta pregunta no corresponde a esta parte del foro, pero no se bien que si es de xml o no. tengo que interpretar los siguiente para poder separar en items la siguentes lineas bien mi duda es esto es XML o es exprecion regular? caso 1 ["casa",["Casa","CASA","Casa (desambiguacion)","Casa (desambiguaci\u00f3n)","Casa (linaje)","CASA 101","CASA 2.111","CASA 207 Azor","CASA 2111","CASA 212"]]
caso 2 window.google.ac.h(["casa",[["casa del libro","2.280.000 resultados","0"],["casas","107.000.000 resultados","1"],["casas rurales","8.810.000 resultados","2"],["casas prefabricadas","831.000 resultados","3"],
["casa blanca","20.500.000 resultados","4"],["casas de madera","1.300.000 resultados","5"],["casas en venta","5.470.000 resultados","6"],["casa royal","3.330.000 resultados","7"],["casas ara","12.800.000 resultados","8"],["casa rural","6.080.000 resultados","9"]]])
caso 3 ["casa",["casablanca","casanova","casa impian","casa grande","casa del mar","casa loma","casa de campo","casa bonita","casa 106.7","casa manana"],[],[]]
Saludos |
|
|
|
|
396
|
Programación / Programación Visual Basic / [Source] Video Escritorio
|
en: 24 Marzo 2009, 01:46 am
|
Hola bueno, ya anteriormente se había puesto este código con algunas modificaciones de ░▒▓BlackZeroҖ▓▒░ usando MCI pero bien, a mi tampoco me estaba funcionando bien, ya que no se ocultaba la ventana del video, así que decidí hacerlo sobre un formulario creo que debería andar bien, además le puse un ícono junto al reloj para poder Cargar una pelicula, Play, Stop, Silencio y Salir, y bien al salir restablece el fondo de pantalla. Está lindo para cargar algún video de un acuario o paisaje para animar el escritorio, no pongo capturas porque no se puede. Descargar CodigoSaludos |
|
|
|
|
397
|
Programación / Programación Visual Basic / Re: Listar Menus
|
en: 24 Marzo 2009, 00:59 am
|
Hola fijate asi Option Explicit
Private Sub Form_Load()
ListarMenu Me, List1
End Sub
Private Sub ListarMenu(Frm As Form, List As ListBox)
Dim ctrl As Control
For Each ctrl In Frm.Controls
If TypeName(ctrl) = "Menu" Then
List.AddItem ctrl.Name
End If
Next
End Sub
saludos |
|
|
|
|
400
|
Programación / Programación Visual Basic / Re: obtener el hDC que contiene la imagen del fondo de escritorio
|
en: 10 Marzo 2009, 02:59 am
|
hola fijate esto es mucho mejor agrega un WindowsMediaPlayer1 (el de la ultima versión) y un timer1 Option Explicit
'By Leandro Ascierto
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetSysColors Lib "user32.dll" (ByVal nChanges As Long, ByRef lpSysColor As Long, ByRef lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const COLOR_BACKGROUND As Long = 1
Private Const SPIF_UPDATEINIFILE As Long = &H1
Private Const SPIF_SENDWININICHANGE As Long = &H2
Private Const SPI_GETDESKWALLPAPER As Long = 115
Private Const SPI_SETDESKWALLPAPER As Long = 20
Dim lOldColor As Long
Dim sOldWallPaper As String
Private Sub Form_Load()
Me.Visible = False
Me.Move 0, 0, Screen.Width, Screen.Height
sOldWallPaper = Space(255)
SystemParametersInfo SPI_GETDESKWALLPAPER, 255, sOldWallPaper, 0
lOldColor = GetSysColor(COLOR_BACKGROUND)
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, " ", 0)
Call SetSysColors(1, COLOR_BACKGROUND, RGB(16, 0, 16))
WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
WindowsMediaPlayer1.URL = "http://tn.com.ar/vivo/metafile.asx"
WindowsMediaPlayer1.stretchToFit = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Static x As Long
x = x + 1
If x = 100 Then
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sOldWallPaper, 0)
Call SetSysColors(1, COLOR_BACKGROUND, lOldColor)
Unload Me
End If
End Sub Saludos |
|
|
|
|
|
| |
|
Mostrar Mensajes
