Kategoriler |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Gerekenler:Project menüsünden components(ctrl + t) tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin
*************************
Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
Private Sub Command1_Click()
merlin.Speak "MONİTÖRÜN CAMINA TIKLIYORUM"
merlin.Play "GetAttention" 'MONİTÖRÜN CAMINA TIKLAR GetAttentionContinued
End Sub
Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
Set merlin = Agent1.Characters("merlin.acs")
merlin.LanguageID = &H409
merlin.Show 'MERLİNİ GÖSTERİR
End Sub
*************************
|
|
|
|
|
|
|
Bugün 40 ziyaretçi (44 klik) kişi burdaydı! |
|
|
|
|
|
|
|