[VB6] funzione Sleep
Posted by TheTrigger on maggio 17th, 20091 2 3 4 5 6 7 | Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Sleep 1000 MsgBox ":D" End Sub |
1 2 3 4 5 6 7 | Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Sleep 1000 MsgBox ":D" End Sub |
Componenti > Controlli > Microsoft Multimedia Controll
'Mpeg e MP3:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False ' se non si vuole far visualizzare il controllo
.DeviceType = "MPEGvideo"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.Mpeg" ' o Test.Mp3
.Command = "seek"
.Command = "Open" 'apri
.Command = "Play" 'auto start
End With
End Sub
'File Wave:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "WaveAudio"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.wav"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub
'Midi:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "Sequencer"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.mid"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub
'File AVIVideo:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "AVIVideo"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.avi"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub
Ecco come far scorrere il titolo del form, può essere usato anche per texbox e label…
Richiamato con:
1 | Call TitleScroll(Form1) |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | Sub TitleScroll(frm As Form) Dim X As Integer Dim current As Variant Dim Y As String Y = frm.Caption frm.Caption = "" frm.Show For X = 0 To Len(Y) If X = 0 Then frm.Caption = "" current = Timer Do While Timer - current < 0.1 DoEvents Loop GoTo done Else: End If frm.Caption = Left(Y, X) current = Timer Do While Timer - current < 0.05 DoEvents Loop done: Next X End Sub |
In questo modo il contenuto presente su ‘txt_MultiLine’ viene splittato su altri textbox.
Dim SettagiLetti as string
Dim Settaggi() as string
Private Sub Command1_Click()
SettaggiLetti = txt_MultiLine.text 'cambo testo multilinee con una frase/parola per riga
Settaggi() = Split(SettaggiLetti, vbCrLf)
text1.text = Settaggi(0)
text2.text = Settaggi(1)
text3.text = Settaggi(2)
text4.text = Settaggi(3)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
Beep
End If
End Sub
Firefox è il browser più personalizzabile in circolazione, come sappiamo, sono disponibili TANTISSIMI addon e temi. Ma se cambiare tema al vostro browser non vi basta, potete sempre personalizzarveli con una bella estensione di nome AnyColor! Da provare
Tra poco tempo aprirò una sezione dedicata al vecchio visual basic.. Lascio un pò di memorie, tips, utility e poi penso che smetterò di usarlo.. per passare a qualcosa di più powa, come il C
Per qualche motivo i caratteri < & > non vengono visualizzati .-. vedrò di risolvere
Mi sono deciso a riunire qualche tema, davvero fatto bene per il mitico firefox 3.
Tutto pink Comincio con un tema ‘crazy‘

Baltimore Ravens, basato sul viola
Safari, bellissimo tema in stile mac!
Noia2 extreme, tema davvero ricco di icone ma non invasivo, da provare!
Halloween theme un tema verde, nero e arancio con Jack Skellington
Red Cat, simpatico tema disponibile in due colori Read the rest of this entry »
Microsoft rilascia i requisiti per Windows 7 (Inizialmente chiamato Vienna), come forse vi aspettavate i requisiti di sistema sarebbero stati bassi.. Mi sembrano un pò strani…
Requisiti Vista:
Processore: 800 MHz
Ram: 512 MB
Hardisk: 20 GB (liberi 15GB) Read the rest of this entry »
<lɯʇɥ/>
<ʎpoq/>
<ʎpoq>
<pɐǝɥ/>
<ǝlʇıʇ/>oloʇıʇ ɐzuǝs oʇuǝɯnɔop<ǝlʇıʇ>
</ “8-ɟʇn=ʇǝsɹɐɥɔ ؛lɯʇɥ/ʇxǝʇ”=ʇuǝʇuoɔ “ǝdʎʇ-ʇuǝʇuoɔ”=ʌınbǝ-dʇʇɥ ɐʇǝɯ>
<pɐǝɥ>
<”lɯʇɥx/9991/ƃɹo˙3ʍ˙ʍʍʍ//:dʇʇɥ”=sulɯx lɯʇɥ>
<”pʇp˙lɐuoıʇısuɐɹʇ-1lɯʇɥx/pʇp/1lɯʇɥx/ɹʇ/ƃɹo˙3ʍ˙ʍʍʍ//:dʇʇɥ” “uǝ//lɐuoıʇısuɐɹʇ 0˙1 lɯʇɥx pʇp//ɔ3ʍ//-” ɔılqnd lɯʇɥ ǝdʎʇɔop¡>
Non sò cosa fare? si, è probabile..
Ho aggiornato la dispensa di smile della nonna
1 | :<strong>asd</strong>: |
:asd:
1 | :<strong>beta</strong>: |
:beta:
1 | :<strong>dmetal</strong>: |
:dmetal: Read the rest of this entry »
Molti miei amici e conoscenti mi chiedono: come faccio a scaricare i file torrent?
La risposta è sempre la stessa: µTorrent (si pronuncia microTorrent), sono disponibili tutte le lingue, anche in italiano, basta fare una piccola ricerca.
Il simbolo µ è il Micro (10-6) sta ad indicare la leggerezza del programma! E’ un peso piuma con i suoi soli 250Kb!
uTorrent permette di scaricare mooolto velocemente ogni file, senza attese di coda o quant’altro..
Dove trovo i file per uTorrent? Read the rest of this entry »
Mi è capitato moltissime volte, cercando file .torrent di finire su siti che mi davano link e link senza arrivare a una fine, e questo …mi faceva incazzare!
Read the rest of this entry »
Recent Comments