Eseguire
una ricerca veloce nell' archivio delle risorse di Visual Basic
Italia®:
|
Preso
dall'archivio...
Premere il pulsante sotto per accedere direttamente ad un articolo
o ad un esempio preso in modo casuale dall'archivio.
|
Ultimo
e-book pubblicato:
 "INTRODUZIONE
AI CSS"
Lo scopo del CSS language è quello di controllare lo
stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile
esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno
di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli
di stile.
Prezzo: € 0.0.
|
Contatti.
Utilizzare l'email generica per domande relative al sito:
oppure scrivere
ad un responsabile di area.
Responsabile
del sito: >Andrea
Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini
|
|
|
|
|
| restituzione di una stringa da una dll |
Stefano |
15/06/2003 |
Difficoltà:
Principiante
|
|
Dunque
ho
un
piccolo
problema,
stavo
sviluppando
una
dll
in
C
(con
vc++)
per
poi
richiamarla
ovviamente
da
visual
basic,
solo
che
non
so
come
far
ritornare
al
visual
basic
la
stringa
modificata
nella
funzione
in
C
,
io
ho
provato
a
svilupparla
la
funzione
in
C
solo
che
quando
la
vado
a
richiamare
da
vb
il
vb
si
chiude
e
mi
da
un
messaggio
di
errore,
posto
qui
i
sorgenti
sia
della
dll
che
del
codice
in
vb
con
la
speranza
che
qualcuno
mi
dia
un
suggerimento..
grazie.
//
prova.cpp
:
Defines
the
entry
point
For
the
DLL
application.
//
#include
"stdafx.h"
BOOL
APIENTRY
DllMain(
HANDLE
hModule,
DWORD
ul_reason_for_call,
LPVOID
lpReserved
)
{
return
TRUE;
}
extern
"C"
__declspec
(dllexport)
int
__stdcall
prova(char
*password,int
sizepass){
int
idex=0;
while
(idex<sizepass){
*password=
'a';
password++;
idex++;
}
return
1;
}
ed
ora
il
codice
di
vb
Public
Declare
Function
prova
Lib
"prova.dll"
Alias
"_prova@8"
(ByRef
testo
As
String,
Byval
lunghezza
As
Integer)
As
Integer
Private
Sub
Command1_Click()
Dim
a
As
String
Dim
b
As
String
a
=
Text1.Text
Dim
c
As
Integer
c
=
prova(a,
Len(a))
MsgBox
a
End
Sub
|
|
