mag 17

[VB6] funzione Sleep

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
mag 17

Riprodurre suoni midi, wave, mp3, avi, mpeg

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
mag 17

[VB6] Titolo scorrevole

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
mag 17

[VB6] Split leggere le righe

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
mag 17

[VB6] Textbox numerica

Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
  KeyAscii = 0
   Beep
End If

End Sub
mag 17

Personalizzare i temi di firefox 3

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 ;)

mag 17

Prossima apertura sezione Visual Basic

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 :P

Sezione visual-basic-6

Per qualche motivo i caratteri < & > non vengono visualizzati .-. vedrò di risolvere

mag 08

I migliori temi per FireFox 3

Mi sono deciso a riunire qualche tema, davvero fatto bene per il mitico firefox 3.

Tutto pink Comincio con un tema ‘crazy:P

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 »

mag 04

Windows 7 e i suoi requisiti

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 »

apr 24

La prima pagina html 'satanica'

<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.. :P

apr 13

The Sims 3

Questo gioco piuttosto atteso dai fan della serie era previsto per il 20 febbraio ma pultroppo sarà disponibile in una generica data, cioè a meta anno del 2009..

Come certamente si sà, è un gioco basato su simulare la vita reale. E’ in sviluppo da Maxis e Eletronic Arts creatori del giocoSpore.. le novità che si possono notare fino ad ora sono le personalità più complesse e personalizzabili dei sim in più una maggiore arbitrarietà con possibilità di spostarsi dai quartieri alle città, i sim possono essere arroganti, sbadati, odiosi, intelligenti e di tutti i colori ma è interessante sopratutto creare storie, famiglie puoi dividirle riunirle puoi addiritura combinare matrimoni tra i sim o scatenare incendi e con tutto questo puoi controllare le loro vite… Read the rest of this entry »
apr 12

Nuove smile

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 »

apr 12

Come scarico un file .torrent?

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 »

apr 12

Dove trovare i file torrent

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 »

apr 12

Azzerare il countdown di MegaUpload

Di tanto in tanto vi capita di scaricare file da MegaUpload? A me si.
Come sapete prima di ogni download il sito ci fà aspettare 25 secondi (utente free), se non volete attendere questo tempo, cè un semplice modo per azzerare instantaneamente questo countdown!

Read the rest of this entry »