mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampante Anarchica

Devo stampare dei fogli, ma solo il primo foglio in assoluto
(all'accensione della stampante) viene stampato correttamente
(Font, Bold e Tab da me impostati).
Le altre successive pagine (anche la 1°), appaiono senza
Bold ne i Tab ...
Ho ribadito tali impostazioni per ogni pagina, ma il problema
rimane.
Come Fare?
Grazie Max.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Come Fare?
Se è una HP laser aggiorna il driver.

 Se è una HP laser aggiorna il driver.
Ah, è per questo?
Ho passato mezza giornata a debuggare una serie di procedure di stampa :(
ciao
-- 
Math Parser : 
http://www.neodatatype.net
FlowChart   : 
http://www.neodatatype.net/dump/flowchart/dir.asp
Sito Comune : 
http://www.it-lang-vb.net

 ha
scritto:

Ho una Epson Stylus PHOTO 830, di cui cercherò comunque i
driver aggiornati.
Lo stesso programma attiva una stampante laser HP, la quale
funziona perfettamente.
La soluzione risiede nel driver, o c'è qualche comando ...
che magari ho omesso, o serve ?



Io ne ho passate olte di più per scoprire il problema... si verificava in
genere con win 98 più vecchie laser HP (tipo la 4mplus)

 che magari ho omesso, o serve ?
A inizio pagina stampa prima una stringa vuota, poi cambia il font...
rimetti il cursore dove serve a te e stampa la riga reale... prova a vedere
se ti risolve il problema! ;-)


 La soluzione risiede nel driver, o c'è qualche comando ...
Se due stampanti diverse si comportano in modo diverso direi che sono
sicuramente i driver.
Ciao


 ha

Adesso Provo ...
Comunque ho appena aggiornato i Driver, senza risultato :-(


 ha

Funziona, ho messo una riga vuota, et voila il gioco è fatto.
Vi ringrazio tutti ...
... ma vorrei capire il perchè di questo escamotage ?!


 ... ma vorrei capire il perchè di questo escamotage ?!
Anch'io vorrei avere tra le mani il colpevole della cosa... l'ho scoperta
tanti anni fa e da allora lo do per scontato! :(

 ha
scritto:

OK :-) Grazie mille ... alla prossima Ciao


 ... ma vorrei capire il perchč di questo escamotage ?!
Ricordo di aver perso almeno 2 gg. dietro a questo problema e ricordo di
aver risolto cambiando il modo con cui settavo il font da utilizzare.
Ti riporto le righe di codice di quel progetto. Se hai voglia, verifica se
cosi' funziona.
   Dim ArialFont As New StdFont
   Dim OldFont As New StdFont
   Set OldFont = Printer.Font
   Set ArialFont = Printer.Font
   ArialFont.Name = "Arial"
   ArialFont.Size = 8
   ArialFont.Bold = True
   Set Printer.Font = ArialFont
printer.print ....
printer.print ....
printer.print ....
   Set Printer.Font = OldFont
   Set OldFont = Nothing
   Set ArialFont = Nothing
   Printer.EndDoc
--
Starman
Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6 leggere righe da txt

Salve, premetto che non sono ferratissimo in Vb6.. :-(
Vorrei leggere in un file di testo solo determinate righe come 
stringhe, per poi confrontarle con delle stringhe campione o 
solamente vedere se sono presenti dei caratteri. Tutto questo 
per poter rilevare la risposta di un comando dos dato tramite 
shell.
Qualcuno può suggerirmi il codice o comunque darmi un'aiuto?
La parte che crea il file di testo sono riuscito a farlo, mi 
servo solo quella che legge le righe del file txt.
Grazie :-)
--  
Postato da Virgilio Newsgroup: scopri i nuovi gruppi 
Eros, foto e video a 
http://newsgroup.eros.virgilio.it

 Grazie :-)
F1
instr
-- 
Gulp
....forse mi sono perso qualcosa !

Newsgroup: it.comp.lang.visual-basic
Titolo: Form Load..anzi no!

salve
ho necessità di richiamare una form child da un MDI
e dentro la form child, dentro la sub Form_Load decido
tramite lettura di un recordset, se fare entrare l'utente
o meno.
Ma se c'è il divieto non risco a uscire dalla form
1) se uso Exit Sub, la carica lo stesso
2) se uso Form UnLoad, si genera un errore nel MDI
3) se uso Form Hide la carica lo stesso
consigli ???
NB. non posso spostare il controllo permessi sul MDI
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Usa Me.Unload dentro alla Form_Activate, invece che nella Form_Load.
Happy Coding =)
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt

 2) se uso Form UnLoad, si genera un errore nel MDI
[SNIP]
Questo perche' probilmente usi direttamente
frmChild.Show
separando invece il load dallo show, puoi verificare se e' il caso o meno di
proseguire prima ancora che la finestra venga visualizzata. Un approccio
potrebbe essere quello di definire una property standard in tutte le
finestre, diciamo ReturnCode, da valorizzare durante le operazioni di load
per segnalare all'esterno come regolarsi... in questo caso puoi anche
evitare l'uso di unload all'interno delle stesse, e delegare tutto alle
funzioni chiamanti.
Esempio:
Load frmChild
Select Case frmChild.ReturnCode
    Case RC_OK
        frmChild.Show
    Case RC_ACCESSDENIED
        MsgBox "Accesso negato"
        Unload frmChild
    Case RC_CRITICAL
        MsgBox "Un fungo atomico e sterminatore si e' abbattuto sul
programma"
        Unload frmChild
End Select
dove RC_xxx sono costanti o un enum definite con valori definiti a
piacimento, nel Form_Load di frmChild non fai altro che impostare ReturnCode
e invocare Exit Sub dove appropriato
Personalmente lo trovo un sistema estremamente comodo e riutilizzabile
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 wrote in message
news:zTYN8.17$
Bf....@nreader1.kpnqwest.net



 o meno.
I controlli si fanno _fuori_ dalla load/show.
E' contorto fare una show e solo dopo decidere che non era vero.
Ciao


Me.Controls("pollo").Visible = False
Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Errore con Response.Redirect

Salve a tutti, mi capita uno strano errore quando utilizzo un
Response.Redirect
Precisamente l'errore è:
Oggetto risposta errore "ASP 0156 : 80004005" 
Errore dell'intestazione 
/Prova/response.asp, riga 19 
Le intestazioni HTTP sono già state inviate al browser client. Se
necessario, modificare le intestazioni HTTP prima di scrivere il
contenuto della pagina.
Sapete perchè e come risolverlo?
ciao e grazie
Giacomo


CUT
a parte il solito
<% Response.buffer= true %>
oramai d'obbligo come 2 riga di una pagina ASP
(la prima č <% @LANGUAGE = "VBScript" %> )
leggi:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q229657
che ti chiarisce un po!!!
bye man!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Routine per confronto numeri

Qualcuno ha già sviluppata una routine che mi permetta di confronatre N
numeri stabilendo quale sia il maggiore e quale il minore???
--
Kickaha, Master of MY Universe
E-MAIL: 
IO.Ki...@mclink.it
--------------------------
Moltissima gente confonde le opinioni con i pensieri
         "Herbert V. Prochnow"
Una conclusione è il punto dove sei stanco di pensare
         "Arthur Wright"

--
Mi sembra abbastanza semplice da realizzare:
Function MaxIn(nums() as long) as long
dim i as long
dim max as long
for i=lbound(nums()) to i=ubound(nums())
    if (nums(i) >max) then max = nums(i)
next i
MaxIn = max
End Function
Per il min basta invertire il segno.
E' questo che intendevi?
-------------------
La matematica è la sola scienza esatta in cui non si sa mai di cosa si sta
parlando nè se quello che si dice è vero.
<Bertrand Russell>

numeri stabilendo quale sia il maggiore e quale il minore???
Dimmi che stai cherzando!
e' un loop stupidissimo!
Lo scrivo al volo:
Dim Alto         as single
Dim Basso     as Single
Dim Vettore() as sibgle
Dim C as long
Alto = Vettore(0)
Basso = Vettore(0)
for C=0 to ubound(Vettore)
    if Vettore(C)>Alto then Alto = Vettore(C)
    if Vettore(C)<Basso then Basso = Vettore(C)
Next C
' Alto ha il numero piu' alto e Basso quello piu' basso
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: manuale in ITA di VB

Non sapete indicarmi un sito in cui si possa scaricare gratuitamente un
manuale in italiano di vb???
Grazie per l'attenzione,
Marta.
--------------------------------
Inviato via 
http://usenet.iol.it

 Marta.
vb5:
ftp.areacom.it/vb32
vb6:
http://web.volftp.mondadori.com/pub/pc/windows/win98/docs/
questi direi in inglese:
http://codedata.box.sk/books2/
http://docs.online.bg/
ciao, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: decompilatore x quick basic

C'e' un'anima buona che puo' indicarmi dove reperirlo?
(tipo il visual basic ma piu' recente)
Grazie e a buon rendere...
Ciao. Aurelio
aur...@village.it



Newsgroup: it.comp.lang.visual-basic
Titolo: [?][FILECOPY] Bhè...perchè non va?!?!

Salve :))
Problemino...non capisco...che trovate di sbagliato in queta stringa?
FileCopy "C:\Stefano\Temp\Pluto.exe", "C:\Temp\Pluto.exe"
Voglio copiare il file Pluto.exe da "C:\Stefano\Temp\" a "C:\Temp\"
perchè non funziona?
Saluti...

Dbg in mode Pal.
Aoh nipotastro, e dire il messaggio di errore (numero e descrizione) che ti
da?
Cosa ti ha insegnato lo zio?
Salve
            Dbg
skunk ha scritto nel messaggio


da? Cosa ti ha insegnato lo zio?
L' errore...impossibile trovare il file, è bastato un semplice riavvio
del pc e tutto funziona :))) Più o meno, visto che adesso succede una
cosa...strana?? Ma io posso andare avanti così :((
Saluti...

Newsgroup: it.comp.lang.visual-basic
Titolo: Confrontare Files audio

Ciao a tutti,
Qualcuno sa come si fa a confrontare due files audio (wave,mp3,etc...)????
Grazie
Fabio

 ha scritto nel messaggio
news:9o9op7$q89$1...@pegasus.tiscalinet.it...


 nel qual caso fammi sapere perchè una soluz semplice sempllice
Beh, vorrei fare un programma con riconoscimento vocale!
so che c'è un SDK della Microsoft (Agent?) ma non ci capisco molto.....:((
Grazie
Ciao
Fabio

 so che c'è un SDK della Microsoft (Agent?) ma non ci capisco molto.....:((
Puoi scaricare l'SDK gratuito di Dragon NaturallySPeaking, che
contiene anche ActiveX facili da usare da dentro VB. Poi richiede
password che puoi ottenere chiamando il numero 800-QUESTAR
(800-783.7827
).
Vedi anche 
http://www.questar.it/l&h

Newsgroup: it.comp.lang.visual-basic
Titolo: array to string

Sto facendo un programma in VB5 che fa il download di una pagina internet.
Il mio problema è che il controllo Inet (che utilizzo) mi restutuisce la
pagina come un array di caratteri.
Questa pagina è molto grossa e quindi trasformarla in stringa (perché poi va
elaborata) con il ciclo for richiede troppo tempo.
La mia domanda è:
-esiste una funzione che trasforma una array di caratteri in stringa (e che
lo faccia in tempi brevissimi)?
-Oppure esiste una libreria che mi faccia il download di una pagina e me la
restituisca già come stringa?
ricordo che uso VB5 no il .NET
Grazie mille a tutti
Diego Bortolot

 elaborata) con il ciclo for richiede troppo tempo.
Assegna l'array di byte a una stringa :)
Probabilmente però dovrai convertirla dall'unicode:
MyString = StrConv(MyByteArray, vbFromUnicode)
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net
Newsgroup: it.comp.lang.visual-basic
Titolo: compilazione dll ed installazione applicazione

Salve a tutti, ho un'applicazione formata da un exe e due dll sotto la
cartella C:\appo. Volendo fare il pacchetto di installazione per inserirla
nel registro e renderla più stabile c'è il pericolo che la procedura di
installazione sovrascriva le stesse dll generando conflitti oppure il
sistema rileva le dll già presenti e non le tocca ? Grazie a tutti.
Motosofia
moto...@libero.it
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 cartella C:appo. 
Dimenticavo che il percorso di installazione è lo stesso dove
l'applicazione gira già senza installazione.


Newsgroup: it.comp.lang.visual-basic
Titolo: SEMPRE IN PRIMO PIANO : Come fare?

Come faccio a impostare una finestra SEMPRE IN PRIMO PIANO (ALWAYS ON TOP)
rispetto ad altre finestre di altri programmi?
E poi un'altra cosa...
Come faccio a mettere un programma nell'area delle TRAY ICONS (quella sulla
barra delle applicazioni a sinistra)?
Non ho proprio idea da che parte iniziare....
Un enorme grazie a tutti quelli che possono darmi una mano...
:-)

...


rispetto ad altre finestre di altri programmi?
Devi utilizzare il metodo show con attributo vbModal, oppure, se non ti basta,
vbSystemModal.
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
Gabriele Bertolucci - NT4WKSITA+SP3 - VB5PROITA+SP3
pbe...@vi.ats.it
pbe...@freemail.it
 (alias)
pbe...@bigfoot.com
 (alias)
http://members.spree.com/sip/pberto/
http://userspace.ats.it/free/pberto/
 (alias)
http://www.fortunecity.com/skyscraper/spiff/523/
 (alias)
http://www.bigfoot.com/~pberto/
 (alias)
ICQ #: 9732192
~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~


Non credo sia quello che Davide vuole.
Guarda sul Sito Comune di questo newsgroup:
http://members.xoom.com/it_lang_vb
troverai quello che cerchi e molto di piu'.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO : Provider Jet ed errore : "Impossibile trovare ISAM installabile"

Sto cercando di aprire un file .xls tramite ADO - Jet 4.0.
La stringa di connessione che utilizzo č:
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\documenti\Prova.xls;Extended
Properties=Excel 8.0;"
(il file Prova.xls, naturalmente, esiste..)
appena apro la connessione (metodo open dell'oggetto connection) mi
appare la finesrta di errore:
"Impossibile trovare ISAM installabile"
Ho provato ad impostare "Extended Properties=Excel 97;" nella stringa,
ma nulla da fare, stesso errore!
Qualcuno sa aiutarmi?
 

L'errore ISAM non istallato viene generato quando tenti di usare un driver
che il tuo computer non ha.
Ti faccio un e.s: io tentavo di aprire una tabella fox scrivendo per il
driver "Fox Pro 2.0" e mi dava l'errore ISAM. Mettendo "Foxpro 2.0" va a
gonfie vele!
Sei sicuro che devi scrivere "Excel 8.0"? Io non ho mai utilizzato dei dati
excel e quindi non posso dirti la
riga di codice appropriata!!
Ciao

 wrote:
Grazie per la risposta, ho finalmente trovato il problema:
_la sintassi_ della stringa di connesione!!!
Dovevo scrivere:
"...Extended Properties=""Excel 8.0;"";"
Non avevo usato le virgolette subito prima e dopo Excel 8.0....
purtroppo avevo copiato ed incollato un esempio di codice trovato su
deja in cui le virgolette non comparivano, e che evidentemente era
sbagliato! Ho perso una giornata per questa cavolata!
Ciao, Alessio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli OCX

Dopo tante peripezie sono riuscito a realizzare due controlli  Activex
perfettamente funzionanti. Il problema sorge quando tento di utilizzarli
entrambi all'interno di uno stesso progetto.
In pratica, nel momento in cui seleziono dalla Window Component, il secondo
controllo, il primo scompare dal toolbox venendo rimpiazzato dall'ultimo.
La conseguenza è che non riesco a farli coesistere. Premetto che non c'è
nessuna omonimia di nomenclatura progetto, nome ocx, nome file, etc,etc.
A cosa può essere dovuto??
Grazie...........

 ha scritto nel messaggio
news:akkjdj$1i5anl$1...@ID-102802.news.dfncis.de...



No........sono due progetti separati, che producono due ocx differenti.
Pensavo fosse un problema di address della memoria ed ho quindi provato a
modificare il valore di default di uno dei due.........ma
nulla...............
Newsgroup: it.comp.lang.visual-basic
Titolo: come posso utilizzare dbgrid senza data?

salve a tutto il niusgrup
ho un piccolo prb....
non riesco a capire se è possibile, e come, usare una DBGRID senza caricare
l'oggetto DATA....
in pratica non riesco ad associare i campi del db alla griglia...
chi mi aiuta?????

 in pratica non riesco ad associare i campi del db alla griglia...
temo non sia possibile.
help dbgrid vb5, s.v. datasource property: dice *you must specify a
datacontrol*:
Sets a value that specifies the Data control through which the current
control is bound to a database. Not available at run time.
Remarks
To bind a control to a field in a database at run time, you must specify a
Data control in the DataSource property at design time using the Properties
window.
To complete the connection with a field in the Recordset managed by the Data
control, you must also provide the name of a Field object in the DataField
property. Unlike the DataField property, the DataSource property setting
isn't available at run time.
Data Type
String

 in pratica non riesco ad associare i campi del db alla griglia...
Devi utilizzare il controllo in modalità Unbound.
La descrizione la trovi negli esempi di VB.

in pratica non riesco ad associare i campi del db alla griglia...
Ti hanno già suggerito che la griglia deve essere in modalità Unbound....
Mi permetto solo di aggiungere che a questo punto ti conviene non usare più la DBGrid ma altre, tipo
la FlexiGrid.... ti da molti meno problemi (in mod. Unbound...)
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

 Mi permetto solo di aggiungere che a questo punto ti conviene non usare
più la DBGrid ma altre, tipo la FlexiGrid.... ti da molti meno problemi (in
mod. Unbound...)
ma la dbgrid dovrebbe avere il vantaggio di leggersi i campi in automatico,
o no ?
con la flexgrid come funziona ?
tia, pal



Beh, premetto che non l'ho usata moltissimo, ma ti dico quando.
Se devi gestire dei recordset dinamici, allora OK, va bene anche la DBGrid, ma io so che la flexi ha
la funzionalità che gli dici: "alla cella X:Y metti questo" e lui lo fa..... ovvero puoi popolare la
griglia come meglio ti pare...
Morale? Dipende da cosa devi fare.....

Newsgroup: it.comp.lang.visual-basic
Titolo: path + esecuzione automatica

ciao
c'e' qualche funzione per ricavare il percorso di esecuzione
automatica?
grazie
James Tiberius Kirk, matricola SC 937-076 CEC,
 nato a Riverside, nello Iowa, USA, Terra il 1277.1 (26/03/2233).

 automatica?
App.Path

scusa 
mi sono spiegato male, m'interessava il path della cartella
'esecuzione automatica' per creare un collegamento al file eseguibile?
ciao


 'esecuzione automatica' per creare un collegamento al file eseguibile?
Qui c'è una buona traccia. Non so se include anche la cartella che
desideri...
http://makeashorterlink.com/?J10521018

 automatica?
'VB
  Const CSIDL_DESKTOP = &H0
   Const CSIDL_STARTMENU = &HB
Const MAX_PATH = 260
Private Type SHITEMID
    cb As Long
    abID As Byte
End Type
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
Private Declare Function SHGetSpecialFolderLocation _
Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal _
nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath _
As String) As Long
Private Sub Form_Load()
    Me.AutoRedraw = True
Me.Print "Start menu folder: " + GetSpecialfolder(CSIDL_STARTMENU)
Me.Print "Desktop folder: " + GetSpecialfolder(CSIDL_DESKTOP)
End Sub
Private Function GetSpecialfolder(CSIDL As Long) As String
    Dim r As Long
    Dim IDL As ITEMIDLIST
    r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
    If r = NOERROR Then
        Path$ = Space$(512)
        r = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
        GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        Exit Function
    End If
    GetSpecialfolder = ""
End Function
' 
http://www.allapi.net/cgi-bin/redirect.cgi?place=apiguide
'GetSpecialFolderLocation
'*.vbs
Set sh = CreateObject("WScript.Shell")
  for i = 0 to sh.SpecialFolders.count - 1
    s = sh.SpecialFolders.item(i)
    s = s & vbcrlf
    s3 = s3 & s
  next
 msgbox s3
' s = sh.SpecialFolders("Startup")
s = sh.SpecialFolders(10)
 msgbox s
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: ? Come trovare indice in matrice

    Dim strNomi(3) As String
    Dim strTesto As String
    strNomi(0) = "Pippo"
    strNomi(1) = "Topolino"
    strNomi(2) = "Paperino"
    strNomi(3) = "Pluto"
    Devo vedere se nella matrice esiste la stringa Pluto senza usare un
ciclo.
    Questo codice scritto da Francesco Balena mi dice se c'è la stringa, ma
non mi ritorna l'indice della matrice
    strTesto="Pluto"
    If InStr(1, vbNullChar & Join(strNomi, vbNullChar) & vbNullChar,
vbNullChar & strTesto & vbNullChar) > 0 Then
         Debug.Print "Trovato"
    End If
    Volevo sapere come fare per avere oltre la stringa anche l'indice.
Carmelo

 Carmelo
Fai un ciclo..Che ti costa?
Balena lo trova "a lampo" perché fonde l'array in un unica variabile, e 
poi utilizza una funzione nativa per farsi restituire l'indice a cui 
compare (e quindi, se compare)...
Se ordini l'array ci stai un attimo a cercarlo, utilizzando una ricerca 
dicotomica.
-- 
Emanuele Torrenti
http://torrenti.altervista.org

 ha scritto nel messaggio
news:CzQYe.16243$9l.4...@twister1.libero.it...

Cerca di capire come funziona il codice di Balena, vedrai che trovi anche la tua
risposta.
Bye
Raf

Carmelo ha scritto:

Brutta, inefficente, ma funziona.
Prevede matrici a OptionBase 0 e restituisce -1 se non trova niente
oppure la posizione nell'array della stringa cercata (1 è il primo
elemento , 2 il secondo ecc. ecc.).
Un po' mi faccio schifo da solo a scrivere sto' "codice"...
UBound( _
       Split(Left(vbNullChar & Join(strNomi, vbNullChar) & _
       vbNullChar, _
        InStr(1, vbNullChar & Join(strNomi, vbNullChar) & vbNullChar, _
        vbNullChar & strTesto & vbNullChar)), vbNullChar))

Però una bella idea,
Emiliano.


         vbNullChar & strTesto & vbNullChar)), vbNullChar))
Magari usando qualche variabile temporanea potrebbe risultare meno brutta e piů
efficiente.
Comunque Split ritorna sempre un array 0-based, indipendentemente da Option
Base.
Con qualche ulteriore miglioria si puň restituire direttamente l'indice
dell'array (indipendentemente dalla base) se la ricerca ha dato buon esito,
altrimenti ad esempio LBound-1.
Public Function SearchStringArray(sArray() As String, ByVal sFind As String) As
Integer
Dim sList   As String
Dim Index   As Integer
Dim Pos     As Integer
    sList = vbNullChar & Join(sArray, vbNullChar) & vbNullChar
    Pos = InStr(1, sList, vbNullChar & sFind & vbNullChar)
    If Pos > 0 Then
        Index = UBound(Split(Left(sList, Pos), vbNullChar))
    End If
    SearchStringArray = Index + LBound(sArray) - 1
End Function
Ah, naturalmente: se la matrice ha pochi elementi, non c'č problema... se
comincia ad averne centinaia di migliaia il ciclo for č imbattibile.
Ad esempio con 1000000 elementi questa impiega 33 secondi contro 0.2 del ciclo
for.
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: estrazione dei link da documento in html

mi potreste aiutare?
grazie

 wrote in message

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] coolbar verticali





esiste un modo di implementare un "coolbar" come quella di 
Outlook2000 che
normalmente si ha in verticale sulla sx ???
conoscete 
un dbgrid che abbia lòo stesso aspetto di quello di Money ????
grazie 
e ciao a tutti
marco



[  ] (Attachment)
Per favore evita di postare in html.
ciao, hal

Guarda qui:
http://www.mauro.sistel.it
Menu Verticale 1998 by Mauro Rossi

Outlook2000 che normalmente si ha in verticale sulla sx ???
una combinazione di toolbar + pager dovrebbe andare

Non funziona con le MDI però!

Non funziona con le MDI però!
usa una picture come contenitore

Newsgroup: it.comp.lang.visual-basic
Titolo: Registrazione tramite codice

Ciao a tutti,
vorrei implementare in una mia applicazione la registrazione tramite
codice seriale associato al nome, pero' non so come costruirmi
l'algoritmo. Conoscete il modo oppure esiste qualche esempio in rete
che dato questo codice mi permetta di abilitare permanentemente le
funzioni disabilitate?
Vincenzo Accardi - (Palermo, ITALY)
 
E-Mail: 
vin...@iol.it
E-Mail: 
vin...@puntofuturo.net
ICQ UIN: 20344085
 
-------------------------------------------------
Euro Conversion 2000 - Il miglior software per 
convertire le lire in euro e viceversa. Freeware!
http://volftp.tin.it/italiani/accardi/index.htm
-------------------------------------------------

La cosa interessa anche me ...
Avete notizie?
--
Gianni Miceli
gbmi...@tin.it
www.scicli.com

Avete notizie?
Sicuramente cercando si possono trovare degli algoritmi in rete ma se volete
fare qualcosa che abbia un minimo di sicurezza certo non sono il massimo...
sarebbe decisamente meglio scriverseli da sè, poi, il come farli dipende
solo esclusivamente dalla fantasia dell'autore. Un idea potrebbe essere,
tanto per cominciare, convertire in codici ascii la stringa e poi farci
qualche schifezza, non so, tipo cose moltiplicare i pari per due e i dispari
per tre.. eseguire uno xor del primo con l'ultimo del secondo col
penultimo.....
L'unico problema è la vostra fantasia


La tecnica più usata consiste nel crearsi un algoritmo che data una
stringa restituisca un numero in modo non intuitivo.
Il cliente di dice il suo nome e tu gli dai il numero corrispondente.
Il programma riceve il nome del cliente ed il numero di attivazione,
calcola il numero per conto suo e vede se è uguale a quello fornito da
chi si sta registrando.
Il cuore è la funzione che calcola il checksum della stringa. Una
tecnica semplice è quella di fare un Xor carattere per carattere con
una stringa fissa da te inventata. Il risultato è una nuova stringa.
Sommi il valore numerico dei caratteri di questa stringa ed ottieni un
numero. Poi naturalmente puoi sbizzarrirti.
Tieni comunque conto che è inutile adoperare un algoritmo molto
complicato: in ogni caso un buon hacker con un debugger riesce a
fregarti, se ne vale la pena.
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: VB / Access

Sono disperato, ho la nesessità da VB di aprire un report fatto in access e
di stamparlo sempre da vb (vi chiedere il perchè ??? mi hanno detto di fare
così !!!) come posso fare ??
Ovviamente è graditissimo un esempio.
Rispondere a 
sim...@toth.it
Grazie infinitamente.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzando ADO NET in web  è po ssibile utilizzare i recordset???

>>>>>
viene utilizzata anche nella programmazione ASP. 
Il problema e che mi genera un errore nella connction string.
Da quello che ho capito leggento i news group, bisogna usare  OleDb.
Quindi al di là della base dati, la connessione in ASP la faccio come
sopra e verifico la connectio string oppure devo usare l'OLEDB?
E se uso l'oledb i recordset li posso usare o è una tecnologia che non
ha nulla da spartire con l'oledb?
Vi ringrazio, 
Andrea

 ha scritto nel messaggio
news:1b8d926f.0402...@posting.google.com...

Parli di ASP,
ASP.NET
o misto
Ave
giuseppeD

...

ASP.NET

 
ASP.NET
Perchè non usi 
ADO.NET
 ?
Ave
giuseppeD
Newsgroup: it.comp.lang.visual-basic
Titolo: Re: stampa

finestra mi parte la stampa lo stesso ...dove sbaglio ????
  Ovvio che la stampa parte lo stesso visto che le istruzioni di
stampa vengono eseguite in ogni caso... sarebbe il caso che tu
studiassi meglio le istruzioni di gestione della stampa...
-- 
  Ciao :-)
  Massimo
Nell'indirizzo, sostituire "micio" con "mc"

Ciao a tutti,
vorrei stampare un form e faccio così ...
 CommonDialog1.ShowPrinter
 Form29.PrintForm
 Printer.EndDoc
Mi esce la finestra delle stampanti  ... ma se faccio annulla su quella 
finestra mi parte la stampa lo stesso ...dove sbaglio ????
Grazie 

 studiassi meglio le istruzioni di gestione della stampa...
o l'uso del commondialog e cosa succede quando si preme annulla, e come
gestirlo con un if/else.
ciao, j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Da data control a tabella? Come fare?

Una volta che ho popolato con dei record il recordset di un controllo data,
come faccio a copiare questo recordset in una tabella del database?
Esempio:
Nel mio caso filtro e ordino i record del recordset associato ad un
controllo 'data1' con i metodi 'filter' e 'sort'; poi, cosě come stanno,
voglio copiarli in una tabella 'Tabella1'. Come faccio?
Grazie delle risposte e buon Natale!!!!!!!!!!!

voglio copiarli in una tabella 'Tabella1'. Come faccio?
gia' in questo passaggio potresti popolare la Tabella1
by

Newsgroup: it.comp.lang.visual-basic
Titolo: da AS/400 a PC con VB6

AS400Conn = "Driver=Client Access ODBC Driver (32-bit);"
AS400Conn = AS400Conn & "SYSTEM=s44b1b2a;"
AS400Conn = AS400Conn & "UID=QSECOFR;"
AS400Conn = AS400Conn & "PWD=LAMIAPASSWORD;"
If SysInfo1.OSPlatform <> 1 Then
    FileCopy "//S44B1B2A/Qsys.lib/PROT_DAT.lib/PTGS00F.file", App.Path &
"\ptgs00f"
Else
    FileCopy "\\s44b1b2a\prot_dat\pzfan00f", App.Path & "\as"
End If
Unload Me
cosa sbaglio?
Mi dice "percorso non trovato" e mi viene evidenziata la sesta riga
(quella con i //)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ciao Salvatore, scusa se non ti ho risposto ma ultimamente sono spesso fuori
sede.
Ti faccio due domande semplici: ma il netserver sull'AS/400 è attivo? Su
risorse di rete del tuo pc, vedi l'AS/400?
Ciao, Vincenzo

 ha scritto nel messaggio
news:2uc7s1F...@uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore Rowdata in flexgrid

VB6 SP3
FG_materiali e' un FlexGrid
Il seguente codice:
For j = 1 To FG_materiali.Rows - 1
  If rst!IDCOLORE = CLng(FG_materiali.RowData(j)) Then		<<<<
	...
	...
	...
  End If
Next j
alla riga indicata mi da un errore Sub or Function non definita!!!
(viene evidenziato IDCOLORE???)
Tutte le variabili, recordset, campi sono definiti!!!!
Se scrivo 
	FG_materiali.Rowdata(j)= 7 ....   funziona!!!!!
Ho anche provato con parentesi tonde e quadre e CLng ma senza alcun
risultato!
Qualche suggerimento?
grazie
		maxx
P.S.  Tanto per continuare il lamento: PERCHEEEEEEEEE'!!!!!!!!!!!!

Cos'è  "rst!IDCOLORE" ???
--
Posted from [194.242.214.131] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

E' semplicemente un campo long in una tabella definita nel codice (che
non ho riportato per intero)
Ovviamente nel frattempo ho cercato soluzioni alternative e ...
se modifico il codice in:
dim tmpID as long
tmpID=rst!IDCOLORE
For j = 1 To FG_materiali.Rows - 1
  If tmpID = CLng(FG_materiali.RowData(j)) Then          <<<<
        ...
        ...
        ...
  End If
Next j
funziona!!!!!
Sara' qualche mistero doloroso di VB!!!
Se hai qualche idea sul perche' di questo strano comportamento ....
ciao
	maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: [2]Properties: conteggio record errato

WIN95 + VB6 Pro + OFFICE 97
Ciao,
ho scoperto pochi giorni fa che è possibile conoscere il numero totale
di record di una tabella (quindi di conseguenza sul recordset ad essa
associato) nel seguente modo:
lngTotRecord = datAbiCab.Database.TableDefs("AbiCab").Properties("RecordCount")
Supponendo di avere la tabella AbiCab con 26850 record questo metodo impiega
meno di un secondo per sapere il totale record che non è assolutamente
paragonabile ai 26 secondi dell'accoppiata MoveLast+MoveFirst oppure ai 4
secondi di una istruzione COUNT(*) in SQL.
Tutto funziona bene, ma il conteggio è errato se sulla tabella eseguo operazioni
di inserimento e/o cancellazione (chiaramente rieseguo l'assegnamento).
Chiudo allora il programma, lo riapro e il conteggio è ancora errato (anche se
in Access tale conteggio è giusto in visualizzazione tabella).
Compatto il database, riapro il programma e questa volta il conteggio è esatto!
Qualcuno sa da che cosa può dipendere questo comportamento? Vorrei evitare
di compattare ogni volta il database per ogni semplice operazione.
Grazie,
teddy...@hotmail.com
ICQ 7044062
Como - Italy


Quando cancelli dei record da un database, questi non vengono effettivamente
cancellati, ma vengono <<marcati>> come vuoti.
Il motivo per cui dopo il compattamento riesci a vedere effettivamente il
numero dei record è che i record <<marcati>> come cancellati, vengono
effettivamente rimossi.
Prova a compattare il database via codice e vedrai che andrà tutto bene.
Il codice è il seguente:
        DBEngine.CompactDatabase percorso, App.Path + "\temp.mdb"
        Kill percorso
        FileCopy App.Path + "\temp.mdb", percorso
        Kill App.Path + "\temp.mdb"
Dove "percorso" è il path + il nome del tuo database e temp.mdb è un
database temporaneo.
N.B. prima di effettuare il compattamento devi effettuare la chiusura del
database!
Ciao da Pasquale.

 effettivamente rimossi.
Scusate se mi intrometto.
Sto cercando di eliminare fisicamente dei record cancellati; ho fatto
quanto segue:
- ho cancellato un record da un database;
- ho eseguito compactdatabase sul database;
- sul nuovo database ottenuto, cercando con il programma DR, trovo
ancora traccia del record cancellato.
E' possibile eliminare totalmente qualsiasi riferimento ai record
cancellati?
Grazie Giulio
Sent via Deja.com 
http://www.deja.com/
Before you buy.

database!
Ciao,
grazie per la risposta. La tua considerazione è corretta e sapevo che i record
cancellati lo sono logicamente e non fisicamente ma, così come dopo una Delete e
un metodo Move il record non è più visibile (quindi un RecordCount o una
COUNT(*) non lo vedono più) lo stesso dovrebbe accadere se cancello un record mi
sposto su un altro record e rileggo la proprietà.
Ciò che trovo strano è questo "congelamento" del numero dei record.
Era troppo bello per essere vero!
Cmq per il momento ho usato questa soluzione solo per mostrare il numero totale
di record su maschere che non prevedono operazioni sulla tabella tipo AddNew,
Delete ecc.
PS: grazie per la routine di compattamento!

Newsgroup: it.comp.lang.visual-basic
Titolo: VB -> parametro -> Crystal Report

Ciao,
ho il seguente prob. con CR:
Voglio stampare delle informazioni circa dei clienti con CR. Il nome del cliente
lo prendo da form VB. Come posso passare questo parametro a CR e stampare cosě
le informazioni solo del cliente che ho scelto?
Grazie,
Corrado Paoletti
ICQ 7044062

le informazioni solo del cliente che ho scelto?
Non č difficile, devi
cominciare ad utilizzare      SelectionFormula
Insieme alle righe di inizializzazione, quando lanci il Report con
CrystalReport1.Action =1
metti anche queste:
Dim FmlaText  as string
FmlaText  = "   ....  "     ora lo vediamo meglio
frmScheda.CrystalReport1.SelectionFormula = FmlaText
CrystalReport1.Action =1
Con l'uso di SelectionFormula puoi appunto selezionare dei records che hanno
determinate caratteristiche.
Il problema č scrivere correttamente il testo della SelectionFormula , testo
che devi mettere in FmlaText.
La sintassi infatti č un vero e proprio nuovo linguaggio proprietario di CR.
(tipo SQL)
Ipotizzando che tu voglia stampare solo i records con il campo [Campo1]
compreso tra 15 e 20, se Campo1 fosse NUMERICO, dovresti scrivere: (metto
piů spazi per chiarezza)
FmlaText  = "  {NomeTabella.Campo1} > 14 AND {NomeTabella.Campo1} < 21  "
per fare una cosa fatta meglio
Dim A As Long
Dim B As Long
A= 14
B= 21
FmlaText  = "  {NomeTabella.Campo1} > " & A & " AND {NomeTabella.Campo1} <
" & B
Se Campo1 č Testo, allora occorre quotare :
FmlaText  = "  {NomeTabella.Campo1} > 'Aldo' AND {NomeTabella.Campo1} <
'Carlo'
"
ed analogamente:
Dim A As String
Dim B As String
A= "Aldo"
B= "Carlo"
FmlaText  = "  {NomeTabella.Campo1} >    '    " & A & "  '    AND
{NomeTabella.Campo1} <    '    " & B & "    '    "
'(metto piů spazi per chiarezza, ma quě sopra vanno tolti, altrimenti non
funziona !)
o ancora meglio:
FmlaText  = "  {NomeTabella.Campo1} > " & Chr(34) & A & Chr(34) & "  AND
{NomeTabella.Campo1} < " & Chr(34)  & B & Chr(34)
ad ogni modo, se non riesci a costruire correttamente una SelectionFormula,
fai come faccio io di solito, aiutati con il costruttore di SelectionFormula
dentro CR, poi la copi in VB, oppure fai il contrario, una volta costruita
in VB, la provi dentro a CR.
Ti saluto
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)

Ciao Maurizio,
ti ringrazio per la chiara ed esauriente risposta al mio problema con CR.
Corrado Paoletti
ICQ 7044062
Newsgroup: it.comp.lang.visual-basic
Titolo: Area di validita' di un array

Come posso rendere disponibili i valori di una array per tutti i moduli del
progetto?
Non so se serve: L'array e' creato in una sub di form e non in moduli o
moduli di classe.
Fino ad ora l'ho resa valida nel suo modulo con l'istruzione DIM nell'area
dichiarazioni, ma appena ho provato a renderla pubblica con PUBLIC
(nomearray) AS INTEGER si e' verificato un errore.
Concludendo: Vorrei utilizzare una sub di un modulo di classe per leggere
soltanto i valori di tale array.
Grazie
Ciao da Salvo

...



L'errore che ottieni (però lo potevi anche dire...) dovrebbe essere questo:
Costanti, stringhe di lunghezza fissa, matrici, tipi di dati definiti
dall'utente e istruzioni Declare non ammesse come membri pubblici di moduli
di oggetto
E' piuttosto chiaro ammesso di sapere che un form è una classe ed è quindi
assimilabile ad un modulo di classe (classe = oggetto, in questo contesto,
poichè in realtà c'è una sottile differenza tra i due).
Quindi, niente array pubblici in un form.
puoi aggirare l'ostacolo con:
Dim A(1 to 10) as Integer 'array privato
Public Function GetArray(ByVal Index as Integer) As Integer
    GetArray = A(Index)
End Function
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: dimensioni dello stage di un animazione flash

Salve a tutti
Sto cercando di creare un player di file swf con Visual Basic 6.
Il tutto sembra piuttosto semplice visto che utilizzando l'ocx Shockwave
Flash di Macromedia il programma VB deve semplicemente fare da interfaccia.
Ho però incontrato questa problematica.
Quando carico un file SWF vorrei che la window del programma (e con lei
l'ocx di Flash, che ha le stesse dimensioni) si adattasse alle dimensioni
iniziali dello stage dell'animazione flash (come succede col player
ufficiale di Macromedia per intenderci).
Qualcuno sa dirmi come posso ricavare queste informazioni (height e width
dello stage) o utilizzando l'ocx di Flash o in altro modo?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ufficiale di Macromedia per intenderci).
Non conosco il player che dici, pero' se si carica il file swf
nel browser, l'animazione viene ridimensionata in base alla
dimensione della finestra del browser stesso e non avviene il
contrario.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Configurare PHP

Grazie dell'attenzione:
Ho installato EASYPHP 4
Ora la mia richiesta è la seguente:
Come devo fare a configurare il server locale in modo che anziché un
indirizzo standard come
http://localhost/abcde
corrisponda un indirizzo
http://www.futuroindirizzo.com/abcde
 ?
Questo mi agevolerebbe quando domani dovrò girare il tutto sul server
Internet ?
Lavoro inoltre con MySQL. Posso installare il DB sulla directori:
http://www.futuroindirizzo.com/abcde/DATA
 ?
Se si, come si deve fare ?
Grazie per i validi consigli che vorrete darmi
Luigi

Luigi, 
hai provato su it.comp.www.php ?
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: RegSvr32

Cosa succede quando registro un DLL con REGSVR32?
Posso evitare di registrarla se è nella cartella dell'eseguibile?





RegSvr32 scrive delle informazioni nel registry di Windows, tra queste c'é
il CLSID della DLL, il percorso della DLL e altre informazioni relative a
COM.
Visto che la DLL e i programmi che ne faranno uso utilizzano COM le
informazioni devo necessariamente essere presenti, indipendentemente da dove
la DLL viene memorizzata.
Ciao,
Corrado

Non credo proprio...
Aspetto smentite...
ByeZ!
Alkondor


...

Scusate se mi intrometto, ma la cosa interessa anche a me. Se ho ben capito,
la domanda di SIMONE è la stessa che mi stavo facendo proprio oggi: se copio
le DLL o gli OCX necessari al mio prg nella stessa directory dove il prg
risiede, va bene lo stesso? Oppure devono essere in c:\windows\system? E, in
qualunque posto siano, occorre anche registrarle o è sufficiente copiarle?
Grazie
Cesare Nicola

Se non mi ricordo male puoi tenere una dll nella cartella dell'eseguibile,
ma solo se è una dll da cui fai delle Declare.
Registrando la dll, VB ti permette di utilizzarla come reference,
praticamente di permette di utilizare nel tuo codice l'oggetto costituito
dalla dll stessa.

 Posso evitare di registrarla se è nella cartella dell'eseguibile?
dipende... alle volte funziona, ma per sicurezza è sempre meglio
registrarla.
Il punto è che:
1) Una DLL ActiveX registra le informazioni per la classe (o le classi)
implementata/e, cioè il GUID, la versione, ecc. e quelle informazioni
DEVONO essere nel registro di configurazione, altrimenti la classe è
inutilizzabile
2) Nel registro viene tenuta traccia delle applicazioni (installate
correttamente :) ) che fanno uso della libreria di classe; ogni qualvolta
viene installata una nuova applicazione, viene incrementato un contatore
per la libreria, ogniqualvolta un'app. viene disinstallata, il contatore
viene decrementato, e quando arriva a zero, la libreria viene rimossa (dopo
averne chiesto conferma all'utente)
3) Molte DLL ActiveX registrano anche il codice di LICENZA per gli
sviluppatori; senza quel codice, la libreria è (forse) utilizzabile dalle
applicazioni, ma non utilizzabile per lo sviluppo di altri componenti
ActiveX che ne facciano uso
Dunque, in ogni caso, ti conviene registrare!
-- 
Ale...@tiscalinet.it

 qualunque posto siano, occorre anche registrarle o è sufficiente
copiarle?
nella maggior parte dei casi occorre registrarle; copiarle e basta può dare
l'illusione che il programma giri, ma poi ti si potrebbe bloccare
improvvisamente tirandoti fuori un errore del tipo "oggetto non valido o
non impostato" (o qualcosa del genere) e non è una cosa simpatica
Per essere sicuri che il vs. programma giri su qualunque macchina, USATE IL
SETUP WIZARD!!
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto! Recordset e database

salve a tutto il ng, ho un problema sulla gestione di un db:
devo fare una select ed il risultato lo devo mettere in un textbox;
ho provato cosě ma non riesco ad andare avanti.
table Dipendenti: codice_dipendente diurno
   A1   50
   A2   10
   A3   20
Sub MiaQuery()
Dim Miasql As String
Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase("c:\db1.mdb")
Miasql = "Select diurno FROM dipendenti WHERE codice_dipendente = 'A1'"
Set rst = dbs.OpenRecordset(Miasql)
'a questo punto dovrei avere il risultato (50).
'come faccio a inserirlo nella txtbox?
dbs.Close
End Sub
Federico

 'come faccio a inserirlo nella txtbox?
if rst.recordcount > 0 then
tuatext.text = rst!diurno
oppure
tuatext.text = rst.fields("diurno")
oppure
tuatext.text = rst.fields(0)
end if
ciao, nonsonostatoio
la preghiera di sempre č:
F1 [MSDN] => fields

prova cosi Text1.Text= Cstr(rst.Fields(0).Value) ... credo!

 wrote in message
news:f7Ep7.213$ft4....@news2.tin.it...

If rst.RecordCount > 0 Then
    Text1.Text = rst!diurno
End If
Ciao.
Giorgio


Io avrei dei dubbi su questa soluzione perchè il metodo RecordCout contiene
un valore valido solo se si è scandito tutto il recordset (ad esempio con
una MoveLast). Inoltre se rst!DIURNO è NULL l'assegnamento dà un errore. Io
farei cosi'....
If Not rst.EOF Then  Text1.Text = IIf(IsNull(rst!DIURNO), "", rst!DIURNO)

Newsgroup: it.comp.lang.visual-basic
Titolo: Help for distibuire

devo distribuire un cd con un programma in vb che funzioni da cd rom.
per fare questo devo installare sulla macchina in runtime di vb e di access
+ 4 ocx da registrare nel sistema.
io volevo creare un moulo che all'avvio del cd registrasse gli ocx nel
sistema pero ho alcuni dubbi:
devo prima fare in modo che vengano copiati nella cartella system di windows
e poi li registro con la procedura
Private Declare Function DllRegisterServer Lib "fximg50g.ocx" () As
Long
hMod = LoadLibrary("fxsnd50g.ocx")
e posso fare una proc comune per registrare tutti gli ocx contenporaneamente
???
Ciao e grazie a tutti per l'attenzione

Riprovo


Newsgroup: it.comp.lang.visual-basic
Titolo: [?]creare un DSN di sistema

Si può creare un DSN di sistema da codice VB.
                                        Grazie e Buone Feste.
--
Posted from 
dns.interfree.it
 [195.110.99.136]
via Mailgate.ORG Server - 
http://www.mailgate.org

Guarda in help rdoregisterdatasource.

Newsgroup: it.comp.lang.visual-basic
Titolo: Variabile d'ambiente 2

salve a tutti,
qualcuno conosce l'api di sistema per creare e settare variabili d'ambiente
in windows 2000?
grazie
Roberto Maresca

in windows 2000?
a livello di sistema o di processo ?
Newsgroup: it.comp.lang.visual-basic
Titolo: Printer.Textwidht

Scusatemi, ma mi trovo "fuori" e non ho neanche la possibilità di consultare
la guida.
C'è qualcosa che non ho capito del metodo in oggetto.
Serve ad impostare un valore o a ricavarlo?
Con:
Printer.ScaleMode = vbMillimeters
Conoscendo di volta in volta il FontName ed il FontSize,
è possibile ricavare quanti caratteri potro' inserire in una singola riga?
Grazie, Sauro

 è possibile ricavare quanti caratteri potro' inserire in una singola riga?
Solo se usi un font Fixed-pitch (a passo fisso, cioè con tutti i caratteri
della stessa larghezza), altrimenti puoi lavorare su una media :-)
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] File di risorse

Ho compilato un file di risorse in cui risiede un particolare tipo di font
che chiameremo Nuovo_font.ttf.
Nel file di risorse ho dichiarato:
2    FONT  Nuovo_Font.ttf
Vorrei sapere come faccio ad utilizzarlo: l'istruzione dovrebbe  essere:
????=loadresdata(2,8)
Sapendo che la loadresdata mi restituisce una matrice di byte, che bisogna
fare (cosa devo mettere al posto di ???)?
Ciao Marco

...

Risolto, ho postato anche un esempio sul sito.
Ciao MArco

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda per programmatori di alto Livello

Posso convertire un file .DOC  in un file .TIF .
GRAZIE ANTICIPATO

Eeeeeeeeeh!!!!!
.DOC è testo....TIF è un'immagine!!
Non aspettarti di certo di farlo facilmente!
Potresti provare cosi:
inserisci un controllo richtexbox in una picturebox, carichi del rich un
file rtf(converti il doc in rtf con word)
e salvi l'image della picturebox....
gestisci il numero di pagine e il gioco e' fatto!!!

"Michele Antolini" ha scritto nel messaggio

Posso aggiungere che per salvare in formato TIF hai bisogno
di qualche controllo aggiuntivo, non puoi farlo direttamente[1].
Cerca su Google, 
http://groups.google.com/advanced_group_search
con le parole "Wang Kodak OCX" su questo NG, se ne è parlato
varie volte. Sono compresi in alcune versioni di Windows, non so
se gestiscono il TIF multipagina, però.
Bye, G.


Ehm, senza essere pedante, Pap:
questo non dovrebbe essere il tipico subject da...  :-(
ciao
ugo

 GRAZIE ANTICIPATO
Grazie per l'informazione.
Dici anche a noi come fai?
Ciao

E per eseguire la conversione basta lucidare la lampada?
ROTFL
(senza offesa, Genio, e' una risata senza cattiveria ;-)

 --
ROTFL
ciao
ugo

 questo non dovrebbe essere il tipico subject da...  :-(
...segare, intendi ? beh, ciai ragggione, ciai. E' che avevamo detto di metterci d'accordo per un'azione comune, e nel frattempo
stavo pensando ad altro.
In effetti cercavo di non pensare a quello che stava succedendo al WTC...
Bye, G.

 >
Facciamo così: adesso riposti la domanda togliendo dal subject tutte le
parole comprese fra "Domanda" e "Livello" e mettendoci qualcosa tipo "[?]
Conversione DOC/TIFF"... così, forse qualche "programmatore di qualsiasi
livello" che conosca la risposta ti risponderà...
(tra parentesi, Paperino ti ha già risposto...)
Grazie anticipato
ciao
ugo

 Grazie anticipato
push qstn, trsh
j.asm

 push qstn, trsh
rtfl !
n pprn cn l tstr ch nn fnzn bn...