Program VB6 care foloseste functia OLE

#1
Mircea_str8

Posted 20 October 2009 - 13:05

New Member

Grup: Members
Posts: 20
Înscris: 19.10.2009

Vreau sa scriu un program care sa recunoasca sai sa activeze pe rand functii OLE
el trebuie sa functioneze asfel "intr-un TextBox daca scriu o litera (sa zicem x) TextBox-ul sa imi activeze functia OLE
asta am reusit am scris asfel:
'If Text1.Text = "x" Then
'OLE2.Action = 7
Probema e ca daca in TextBox in fata lui x se afla (sa zice z) functia OLE nu m-ai raspunde :cursing:

Va rog

cine ma poate indruma in sensul ,ca atunci cand scriu z sa imi raspunda functia OLE1 si dupa Z dca scriuscriu x sa raspunda functia OLE2

Back to top

#2
Sorin Nedelcu

Posted 21 October 2009 - 17:39

Member

Grup: Members
Posts: 638
Înscris: 15.10.2006

Pai nu se incadreaza in conditie si de aceea nu executa ...e logic...

Presupun ca e vb6:

Creeaza o structura SELECT CASE

Dim var1 as string * 5

var1=trim(text1.text)

Select Case var1

   Case is= x
       OLE2.Action = 7
   Case is =zx
        OLE2.Action = 8
   case else
        OLE2.Action = 9
End select

REM ========= sau dc ai doar 2 variante poti merge pe IF

If Text1.Text = "x" Then
   OLE2.Action = 7
else  'aici else preia toate raspunsurile care nu sunt x
    ole2.action=9
end if


Succes

Back to top

#3
Mircea_str8

Posted 22 October 2009 - 11:14

New Member

Grup: Members
Posts: 20
Înscris: 19.10.2009

Mersi pentru ajutor!
o sa inncerc... si revin daca am nelamuriri...
dar acum am cateva nelamuriri.

nu stiu ce face functia OLE cand ii dau action 8;9 etc..
functia OLE sa deschida un sound recorder in sound recorder am pus un sunet ... cand scriu OLE1.action = 7
i se da play functiei OLE (sound record)
iar daca nu am fost destul de explicit
programul trebuie sa aiba un textbox in care daca scriu un caracter a,b,c,d,e,f,g,h,i,f...etc sa raspunda pe rand cate o functie OLE
OLE1=a
OLE2=b
etc
de vazut cam vazut eu ceva :w00t:

dar nu stiu cum sa implementez :cursing:

Back to top

#4
Sorin Nedelcu

Posted 22 October 2009 - 13:18

Member

Grup: Members
Posts: 638
Înscris: 15.10.2006

Tie iti place sa te complici inutil?
arunca un ochi la linkul de mai jos(asta daca am inteles eu bine ce vrei sa faci).
http://www.un4seen.com/bass.html

Back to top

#5
Mircea_str8

Posted 22 October 2009 - 23:29

New Member

Grup: Members
Posts: 20
Înscris: 19.10.2009

am incercat cu "case"... nu functioneaza decat
...............
..............
Case Else
OLE3.Action =7
daca ii dau o alta actiune lu' OLE 'ex'8;9;10... face cu totul aceva sterge editeaza ma rog...
mie imi trebuie ca OLE 'asta' sa faca actiunea 7 asta e clar(ca si cand dau play) dar ! play asta sa nu plece asa de capu lui ci numai daca se apasa o tasta(si apare un caracter se apasa tasta "a" apare caracterul "a" cand a aparut caracterul "a" in textbox...se actioneaza si asupara functiei OLE care da play lu' soundrecorder in care am pus eu un sunst ca sa fiu si-mai clar
trebuie sa se intampla asfel" apas tasta A sau B sau C etc... play OLE in care OLe e un sunet (vocea cuva care zice A;B;C....)
apas tasta A porneste sunetul A apas tasta B porneste sunetul B (o voce ragusita zice aaaaaaaaaaaaa;bbbbbbbbbbbbbbbbbbb...) :lol:

Asta e ! am spus tot secretul! :death:

Back to top

#6
Mircea_str8

Posted 23 October 2009 - 21:46

New Member

Grup: Members
Posts: 20
Înscris: 19.10.2009

asa daca am un text de 500 de caractere trebuie sa fac 500de "case"ma apuca primavara...

Edited by Mircea_str8, 23 October 2009 - 21:48.

Back to top

#7
Mircea_str8

Posted 24 October 2009 - 00:19

New Member

Grup: Members
Posts: 20
Înscris: 19.10.2009

am incercat cu listbox e ok functioneaza insa nu respecta a doua cerita, nu pot dau copy paste unui text

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

Program VB6 care foloseste functia OLE

#1 Mircea_str8 Posted 20 October 2009 - 13:05

#2 Sorin Nedelcu Posted 21 October 2009 - 17:39

#3 Mircea_str8 Posted 22 October 2009 - 11:14

#4 Sorin Nedelcu Posted 22 October 2009 - 13:18

#5 Mircea_str8 Posted 22 October 2009 - 23:29

#6 Mircea_str8 Posted 23 October 2009 - 21:46

#7 Mircea_str8 Posted 24 October 2009 - 00:19

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Mircea_str8

Posted 20 October 2009 - 13:05

#2
Sorin Nedelcu

Posted 21 October 2009 - 17:39

#3
Mircea_str8

Posted 22 October 2009 - 11:14

#4
Sorin Nedelcu

Posted 22 October 2009 - 13:18

#5
Mircea_str8

Posted 22 October 2009 - 23:29

#6
Mircea_str8

Posted 23 October 2009 - 21:46

#7
Mircea_str8

Posted 24 October 2009 - 00:19