|
Come posso creare un nuovo oggetto clonandolo da un altro?
|
Dichiari una variabile del tipo di oggetto che vuoi conare, per esempio una form.
dim newForm as form
crei il nuovo oggetto copiando il form1 (già esistente) in newForm
set newForm = new form1
visualizzi l' oggeto, in questo caso la finestra
newForm.show
|
|
Aprire una cartella di Windows.
|
Per aprire gestione risorse alla directory c:\windows:
Shell ("C:\WINDOWS\EXPLORER.EXE /n,/e,C:\windows") , 1
Per aprire solo una finestra:
Shell ("C:\WINDOWS\EXPLORER.EXE /n,C:\windows") , 1
|
|
Trovare la Dir dei files temporanei.
|
Usa la funzione GetTempPath.
Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
dim res as long
dim mydir as string
dim bl as long
dim bf as string
bl=50
bf=space$(bl)
res=GetTempPath(bl, bf)
mydir=rtrim(bf)
In mydir c'è la directory. Il concetto è che bisogna preparare la stringa che riceverà la tempdir settandola ad una
lunghezza sufficiente. Nell'esempio è 50 caratteri, ma puoi aumentare o diminuire.
|
|
Devo fare eseguire un file musicale in formato Wav. Come?
|
Private Declare Function SndPlaySound Lib "MMsystem" (ByVal File$, ByVal PlayType%) As Integer
Sub pLAYSOUND(SoundFile As String)
Dim PlayType As Integer
If SoundFile > "" Then
On Error Resume Next
PlayType = 1
PlayType = SndPlaySound(SoundFile, PlayType)
On Error GoTo 0
Else
Beep
End If
End Sub
|
