mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Media Player: problemi

Sto realizzando un programma che all'avvio di un form deve riprodurre tre
file mp3 in successione. Sto usando il controllo ocx del Media Player.
Uso la proprietà filename per specificare il file da riprodurre e il comando
play per eseguire. Il problema è che riesco ad ascoltare solo l'ultimo.
Avrei bisogno di fare in modo che l'applicazione attenda la fine di un mp3
prima di passare al successivo.
Dim Pagamento As String
MP.FileName = "Data\Phone\Carla.mp3"
MP.Play
MP.FileName = "Data\" & lblID.Caption & ".mp3"
MP.Play
Pagamento = "Data\Phone\" & lblID.Caption & "t.mp3"
MP.FileName = Pagamento
MP.Play
Non posso unire gli mp3 in un unico file, ma ho la necesità di tenerli
separati.
Ciao

MP.Play
E' ovvio che se scrivi in questo modo esegue solo l'ultimo!! :-))
Di modi per risolvere il problema ce ne sono diversi e ognuno
orientato a come hai impostato il progetto.
Comunque, un modo che mi viene ora in mente è questo:
-----------------------------------------
Option Explicit 
'*** Variabile da utilizzare come flag per sapere se l'esecuzione
'**** dell'mp3 è terminata o no; si tratta in questo caso  di una
'**** variabile globale
Dim Mp3Terminato as boolean 
Sub MediaPlayer_EndOfStream
	mp3terminato=true
End Sub
Sub Form_Load
'*** Questo vettore contiene i percorsi dei file mp3.
'*** Se hai dimestichezza con le collezioni, puoi utilizzare le
'****collezioni oppure un vettore dinamico.
Dim BraniMp3(10) as string
'*** Restituisce la posizione corrente nel vettore BraniMp3
Dim PosizioneMp3 as long
PosizioneMp3=1
Do while posizionemp3<=ubound(branimp3)
	mp3Terminato=False
	mp.filename=branomp3(posizionemp3)
	mp.play
	Do while (not mp3terminato)
		'** Se non vuoi bloccare, cmq, altre applicazioni ...
		doevents
	loop
	posizionemp3=posizionemp3+1
loop	
End Sub
--------------------------------------------------------------------
Il discorso è molto semplice.
Il MediaPlayer esegue il brano richieste e il programma rimane chiuso
nel ciclo do ... loop annidato fino a quando non cambia stato la
variabile mp3terminato, che cambia valore non appena termina
l'esecuzione del brano (evento EndOfStream del MediaPlayer) , appunto.
Prova a fammi sapere ... ciao!

Basta che confronti la durata del brano con il tempo trascorso,e quando
questi sono uguali,passi al prossimo mp3.
Ti conviene mettere gli mp3 in una list box,cosi ti basterà scorrere quella.
Ciauz

 ha scritto nel messaggio
news:3c4d37c4...@news.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Query asincrone

Io utilizzo VB6 Enterprise Ed.,ed access 97.Il db ha raggiunto la
ragguardevole dimensione di 120 mega,con dentro 2 tabelle con circa
120.000 record ciascuna,e chiaramente quando vado ad eseguire delle
query con Dao,l'applicazione si paralizza.Come posso evitare cio'?Mi
sembra di aver letto da qualche parte che debbo utilizzare delle query
asincrone,ma come si implementano,con dao?Ho cercato sulla guida,ma non
sono riuscito a tirare fuori nulla.
Ciao e grazie per l'attenzione.

 wrote in message
380EC32A...@daewoomotor.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Rinominare file

Ho un eseguibile che si chiama pippo.exe, quando lo lancio nel form ho una
label con scritto il nome dell'eseguibile (pippo.exe appunto). Se l'utente
rinomina il mio eseguibile, come faccio a fare in modo che anche nella label
all'interno mi scriva il nuovo nome appena rinominato e non piu' pippo.exe?
Grazie
ciao
Chiara

 ha scritto nel messaggio
news:GbFQ8.57$_p6....@nreader2.kpnqwest.net...
: Ho un eseguibile che si chiama pippo.exe, quando lo lancio nel form ho una

:
:

 ha scritto nel messaggio
news:GbFQ8.57$_p6....@nreader2.kpnqwest.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: Vorrei creare un visualizzatore di icone tipo ...


Nuovo codice ma non è ancora completo !
Private Sub Dir1_Change()
 Dim index As Integer
 Dim i As Integer
 Dim sel As String
 index = Picture1().Count
 For i = 0 To File1.ListCount - 1
   ' l'indice i dove lo metto ????????
   Load Picture1(index)
   ' mi servirebbe l'indice i per identificare il file i-simo con il suo
nome
sel = Dir1.Path & "\" & File1.FileName
   Picture1(index).Picture = LoadPicture(sel)
   Picture1(index).Top = Picture1(index - 1).Top + 400
   Picture1(index).Visible = True
 Next i
End Sub

 End Sub
l'indice, a occhio, e' il listindex del filebox. non devi dichiararlo, devi
ricavarlo e usarlo.
qui sotto carico 32 coppie do label con ip+ping e le impilo una sotto
l'altra.
da' un occhio a dove finisce il j del ciclo.
ciao, a.
Private Sub cmdPing_Click()
   Dim ECHO As ICMP_ECHO_REPLY
   Dim pos As Integer
   If SocketsInitialize() Then
        Dim j As Integer
        For j = 0 To 31
            Call Ping((lblAddress(j)), ECHO)
            'Call Ping((txtAddress), ECHO)
            lblRisult(j) = GetStatusCode(ECHO.status)
            If Left(lblRisult(j), 1) = "0" Then
                lblRisult(j) = lblRisult(j) & " -- " & _
                    ECHO.Address & " -- " & _
                    ECHO.RoundTripTime & " ms" & " -- " & _
                    ECHO.DataSize & " bytes"
                If Left$(ECHO.Data, 1) <> Chr$(0) Then
                    pos = InStr(ECHO.Data, Chr$(0))
                    lblRisult(j) = lblRisult(j) & " -- " & Left$(ECHO.Data,
pos - 1)
                End If
                lblRisult(j) = lblRisult(j) & " -- " & ECHO.DataPointer
            End If
            DoEvents
        Next
        SocketsCleanup
    End If
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Apostrofi in FindFirst ("Cognome & ' '.."

ListDoc č una ListBox e DataDoc č un controllo Data.
Cerco il record corrispondente alla stringa Cognome+Spazio+Nome
contenuta nella ListBox:
DataDoc.Recordset.FindFirst ("Cognome & ' ' & Nome = '" & ListDoc.Text &
"'")
La ricerca va a pallino con i cognomi contenenti un apostrofo (D'Elia);
questo non mi stupisce ma come si rimedia?
LO SOO!!! lo avrete detto altre mille volte, ma c'č qualcuno cosě
gentile da ripetermelo?
Se, come penso, č un problema cosě frequente (per noi novellini) non
potreste farne una FAQ?
Grazie in anticipo

 "'")
devi crearti una funzione che raddoppi gli apici quando sono presenti nel
mezzo della parola.
ciao
max

 "'")


\"max\" ha scritto:

Grazie della risposta.  Era una soluzione che lasciavo come "ultima ratio" ma
se nessuno conosce altro modo piů diretto ...
Ma fanno tutti cosě? Dovrebbe essere un problema molto comune!
Grazie ancora

gentile da ripetermelo?
Io ho sostituito l'apice singolo normalmente usato con l'apice verso
destra. Il discorso di raddoppiare gli apici singoli non mi e' mai
piaciuto. Per intenderci, sostituivo ' con `
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

 wrote in message
3A62EAB3...@iol.it...

Non credo che ci siano sistemi migliori; si, ovviamente e' un problema piu' che
comune visto che il raddoppio dell'apice fa parte dello standard SQL...
se parliamo di VB6 puoi usare la funzione nativa Replace cosi':
DataDoc.Recordset.FindFirst ("Cognome & ' ' & Nome = '" &
Replace(ListDoc.Text,"'","''") & "'")
Ciao
--
Luca Dormio
luca....@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: formato text in excel

Devo generare da un applicativo VB un foglio excel, uno dei campi deve
contenere un numerico di 20 cifre: se non formatto in maniera opportuna la
cella (lasciando 'General') il numerico mi appare in forma esponenziale (non
va bene), se utilizzo .NumberFormat = "00000000000000000000" il numerico
viene arrotondato e perdo cosě le ultime cifre. Credo che la soluzione sia
formattare la cella col formato 'Text' ma non riesco a farlo in maniera
automatica da VB.
Qualcuno sa aiutarmi?
Grazie, Mariano.

 automatica da VB.
Che cos'č il formato "Text"?
Ciao,
Carlo.

 ha scritto nel messaggio
news:9t55i8$5qt$1...@pegasus.tiscalinet.it...


 quindi la cella viene visualizzata correttamente.
Non conoscevo il formato "Text" di Excel.
Mi sembra di capire dunque che non ti interessa che sia riconosciuto come
numero ma solo che sia esteticamente ben leggibile. Perché allora non gli
inserisci, ad esempio, uno spazio in testa?
Ciao,
Carlo.

 ha scritto nel messaggio
news:9t5avh$71u$1...@pegasus.tiscalinet.it...


 ha scritto nel messaggio
news:9t54it$9qv$1...@nreada.inwind.it...


 problemi già esposti.
Usa un altro carattere (l'apice?)
Ciao,
Carlo.

 ha scritto nel messaggio
news:9t6bk5$k980$1...@ID-107333.news.dfncis.de...


 ha scritto

si', l'apice indicava il txt anche in 1-2-3.
xl ha ereditato anche questo.
prova in due celle a scrivere
123
e
'123
e guarda l'allineamento.

Newsgroup: it.comp.lang.visual-basic
Titolo: Soluzione Abilita/Disabilita Connessione di rete da VB

Salve, ho finalmente risolto il problema descritto in oggetto, secondo voi
faccio una cosa utile a qualcuno se invio i sorgenti al sito comune oppure
quella da me risolta è una problemantica che non interessa a nessuno?
Fatemi sapere.
Grazie a tuti.

A me interessa molto
Grazie in anticipo
Paolo
"D.I." <X@X.x> ha scritto nel messaggio
news:b472h5$ou6$1...@newsreader.mailgate.org...


 Grazie in anticipo
prego.
Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Report

Ciao a tutti...
ho un problemino (uno dei tanti) con Crystal... allora: ho nei
dettagli una lista di utenti a cui ho affiancato un'immagine (un
quadratino). Ho creato un'altra imamgine con un simbolo di spunta e
l'ho messo dentro ad ogni quadratino.
Ora vorrei che quest'ultima immagine (il check) venisse visualizzata
solo se l'utente non è tra i destinatari di un messaggio.
Per intenderci... ho una tabella "MESSAGGIO" del DB con un campo
IDRICEVENTE e un'altra tabella con la lista degli utenti e ogni utente
ha un ID.
L'idea è omettere il check se i due valori sono diversi.
Perche' secondo voi mi cancella tutti gli utenti lasciando solo il
destinatario? Io vorrei togliere solo l'immagine e invece mi ritrovo
senza niente! :-(
Spero di essere stata abbastanza chiara... 
grazie mille,
ciao,
LadyBug.

 senza niente! :-(
Controlla il tipo di join tra la tabella UTENTI e quella MESSAGIO 
(Database -> "esperto collegamento visivo" -> "click sul link 
incriminato" -> "opzioni").
Quello che vuoi fare è un outer join (se non ho capito male).
Prova ad utilizzare il tipo di join "esterno a sinistra".
-- 
Ciao, Mauro CB.

Lo sò che ciò che vi chiedo vi farà rabbrividire, ma sono proprio agli inizi
con CR.
Ho creato un oggetto CR1 che attinge dati stored di SQL
Funziona regolarmente.
Come faccio, però, a "passare" il valore di una variabile (che quindi  non è
su alcun recordset, ma su una form VB),  direttamente sul report, in modo
che mi venga stampato?
Grazie
Troy


Non ho il VB a disposizione ma mi sembra si facesse cosě:
In CR inserisci un campo formula che lasci vuoto e da VB scrivi
CRP1.Formulas(x) = TuoTesto
PS.: al limite domani controllo e poi posso essere piů preciso.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Help in HTML

Qualcuno sa come si creano?
--
=> Fabio <=
fab...@net-one.it
ICQ UIN: 5320334
IRC NICKNAME: Fabio883
Webmaster of:
883 English Site: 
http://883.hypermart.net
DarkMoon BBS: 
http://darkmoon.hypermart.net

...


...e l'HTML Help workshop 1.2 disponibile (rel. 1.1) sui CD di viual studio
oppure sul sito M$ nella sezione SiteBuilder.
Ciao
Corrado


Le pagine HTML con qualsiasi editor HTML (o anche notepad, se conosci
l'HTML).
Poi le unisci e compili il file .CHM con l'HTML Help Workshop, che trovi sul
sito Microsoft (e' l'equivalente del vecchio HCW per l'help "vecchio
stile").
--
Roal Zanazzi
z...@iol.it

Qualcuno sa come si creano?
Con l'HTML Help workshop. Lo trovi sul sito Microsoft o ad un indirizzo più
veloce che puoi trovare tra i links sul mio sito.
Il programma compila qualsiasi tuo file HTML in un file CHM.
Dovrai distribuirlo assieme ad un file di runtime per poter funzionare su PC
senza Explorer 4.
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://www.tempolibero.com/user/mix/
http://space.tin.it/computer/gaais/
-
--
---
Newsgroup: it.comp.lang.visual-basic
Titolo: UML & Visio

Ciao... Vorrei imparare UML (e magari anche ad usare Visio).
Sapreste darmi quelche dritta su dove reperire materiale o un buon manuale?
                        Ciao
                                    Allanon

 Sapreste darmi quelche dritta su dove reperire materiale o un buon manuale?
In libreria , per UML , ci sono alcuni testi (pochi , ne ho contati tre
tradotti in italiano) ; rispetto alle pagine il prezzo č pittosto elevato.
L'ultimo che ho notato , se ricordo della McGraw-Hill.
http://www.analisi-disegno.com/uml/uml_glos.htm
http://www.analisi-disegno.com/uml/uml.htm#documenti_UML
giuseppeD
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Chi mi saprebbe dire che cos'e un file con estensione QBF ???

Salve a tutti, ...
... programmando con l'ormai vecchiotto VBDOS, mi sono imbattuto in un file 
con estensione QBF.
Penso che sia qualcosa riferito ai font, ma non so' altro.
Mi sapreste dire qualcosa di piu' ???
Come si realizza un file QBF ???
Dove posso scaricarne qualcuno ???
Ciao a tutti e grazie.
Marco. 

 .... programmando con l'ormai vecchiotto VBDOS, mi sono imbattuto in un file 

Ovviamente, Google!
Bye by SixaM 8-]
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Bye by SixaM 8-]
Bye 


Google-->Extensions-->Invio
Trovato questo, per esempio:
http://filext.com/
-- 
----------------------------
Mauro Gamberini

 Provaci e vedrai se riesci a trovare una risposta alle mie domande !!!
il *primo* link che da' google... :PP
http://www.google.it/search?q=qbf+extension&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official

 Provaci e vedrai se riesci a trovare una risposta alle mie domande !!!
http://filext.com/detaillist.php?extdetail=qbf
http://www.filext.com/
http://extsearch.com/
http://whatis.com/ff.htm
http://www.wotsit.org/
http://www.xs4all.nl/~joz/ext.html
http://www.dlldump.com/
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Bug in DateDiff !

Se si fa ad es:
? DateDiff("yyyy", "31 dicembre 2000", "1 gennaio 2001") = 1
Secondo VB c'è un anno di differenza invece di un giorno.
Ma questo succede anche in tutti gli altri casi, ad es.:
? DateDiff("yyyy", "20 settembre 2000", "10 febbraio 2001") = 1
Praticamente se gli anni sono diversi, sia che passi 1 solo giorno fino a
364 giorni secondo VB passa sempre un anno intero. Anche se questo è
segnalato nella guida, è sempre un bug clamoroso e occorre scrivere del
codice per prevederlo (cosa che avrebbero dovuto fare alla Microsoft !)
Conoscete altri bug in DateDiff o DateAdd ?
Qualche buona idea per gestire quest'errore ?
Grazie a tutti

 ha scritto nel messaggio
news:g_C%6.11220$F85.4...@news.infostrada.it...


 ha scritto nel messaggio
news:YvD%6.11449$F85.4...@news.infostrada.it...


 ha scritto nel messaggio
news:qRD%6.11557$F85.4...@news.infostrada.it...


Credo sia corretto :
il paratro yyyy serve per effettuare "un confronto solo tra anni". Percui i
giorni ed i mesi sono completamente ignorati.
Ciao
Mau
Jingle ha scritto nel messaggio ...


 ha scritto nel messaggio
news:0oF%6.12151$u%1.9...@news1.tin.it...


dovrebbe venir fuori ? Secondo me sono proprio bug grossolani.
e' proprio per questo che hanno fatto tutte queste opzioni
chi l'ha detto  di confrontare solo i mesi e ignorare il resto ?
yyyy Anno
q Trimestre
m Mese
y Giorno dell'anno
d Giorno
w Giorno della settimana
ww Settimana
h Ora
n Minuti
s Secondi

Non si confrontano i mesi perchè questa non è una funzione di confronto ma
di calcolo. Il primo paramentro identifica come vuoi avere il risultato : in
giorni , mesi o anni.
 L'esempio che tu porte è indicativo :
se scrivi  DateDiff ("m", "30 giu 2000","1 lug 2001")  ti restituisce 13
cioè 13 mesi di differenza
se scrivi  DateDiff ("d", "30 giu 2000","1 lug 2001") ti restituirà 366 cioè
i giorni di differenza
 se scrivi ? DateDiff ("yyyy", "30 giu 2000","1 lug 2001") ti restitiusce 1
cioè gli anni di diferenza!
Chiaro?
Ciao
Diabolik ha scritto nel messaggio ...


 Chiaro?
No, negli esempi che hai portato tu il bug non si presenta, se provi invece
ad usare date come quelle che ti ho indicato io allora vedrai che anche date
ad 1 giorno di distanza vengono contate come un mese intero o un anno
intero.
Leggi gli altri post che ho scritto sopra.


si puň utilizzare anche questa forma
DateDiff("s", "31 dic 2000 00:00", "1 gen 2001 10:45")
che restituisce la differenza in secondi ovvero 125100
si puo ancora "approfondire"
DateDiff("s", "31 dic 2000 00:00:50", "1 gen 2001 10:45:24")
e cosě via.....
Newsgroup: it.comp.lang.visual-basic
Titolo: script VBS

Ciao a tutti,
Saluti a tutti,
Se qualcuno e' pratico di Vbs avrei bisogno mi facesse un favore e cioe' mi
scrivesse un piccolo script che comandasse la chiusura del PC dopo 30
secondi dalla sua esecuzione.
Forse chiedo troppo,ma sfortunatamente non so fare niente in Vbs e non so a
chi altri
mi potrei rivolgere.
Scusate il disturbo e tante grazie a chi vorra' aiutarmi.
Ciao a tutti
                           Sergio

Ciao,
Tutti gli script che ho fin'ora creato sono solo per uso internet, essendo
un linguaggio client-side ha bisogno di un browser per essere eseguito, ma
non di un browser normale ma di IE. Ho sviluppato diversi script che fanno
uso del filesysten ma che si possa riuscire a spegnere il PC credo che non
sia possibile.
Premetto che non tutti i metodi e propprieta' non che' di comandi specifici,
siano disponibili per VBscript.
Se vuoi saperne di piu' collegati con il sito della microsoft (MSDN) e cerca
VBscript application
Ciao
Filippo

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 secondi dalla sua esecuzione.
potrei dirti di studiare il WMI (Windows Management Instrument, che fa cose
aliene
http://msdn.microsoft.com/library/en-us/dnanchor/html/anch_wmi.asp
e piů precisamente il metodo Win32Shutdown della classe
Win32_OperatingSystem
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32shutdown_method_in_c
lass_win32_operatingsystem.asp
ma forse ti fa piů comodo un bell'esempio ;)
Ciao, Silv:o)
------------8<----------------------
ShutDown ".", "logoff", 30
' sNode č il computer su cui fare il logoff/shutdown/poweroff
'     ("." č il computer locale, quello su cui gira lo script)
' sAction č un'azione da scegliere tra:
'    "logoff", "logoff_force",
'    "shutdown", "shutdown_force",
'    "reboot", "reboot_force"
'    "poweroff", "poweroff_force"
' sTime č il ritardo in secondi
Sub ShutDown(sNode, sAction, sTime)
  Const EWX_LOGOFF = 0
  Const EWX_SHUTDOWN = 1
  Const EWX_REBOOT = 2
  Const EWX_FORCE = 4
  Const EWX_POWEROFF = 8
  On Error Resume Next
  Set oWMI = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate,(Shutdown)}!\\" _
     & sNode & "\root\cimv2")
  Set colOperatingSystems = oWMI.ExecQuery _
     ("Select * from Win32_OperatingSystem")
  For Each obj in colOperatingSystems
    Set oOS = obj :  Exit For
  Next
  If Err.Number <> 0 Then
    WScript.Echo "Could not connect to " & sNode
    Exit Sub
  End If
  sAction = LCase(sAction)
  Select Case sAction
    Case "logoff"
      iCmd = EWX_LOGOFF
    Case "logoff_force"
      iCmd = EWX_LOGOFF + EWX_FORCE
    Case "shutdown"
      iCmd = EWX_SHUTDOWN
    Case "shutdown_force"
      iCmd = EWX_SHUTDOWN + EWX_FORCE
    Case "reboot"
      iCmd = EWX_REBOOT
    Case "reboot_force"
      iCmd = EWX_REBOOT + EWX_FORCE
    Case "poweroff"
      iCmd = EWX_POWEROFF
    Case "poweroff_force"
      iCmd = EWX_POWEROFF + EWX_FORCE
    Case Else
      ' Default value
      iCmd = EWX_POWEROFF
  End Select
  WScript.Sleep sTime*1000
  oOS.Win32shutdown iCmd
End Sub
------------8<----------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Data : non funziona con ACCES 2000 !!

Il controllo 'DATA' non mi permette di collegarmi ad una base dati creata
con access 2000 con questo messaggio : 'Formato di database non
riconosciuto'
Con una base dati creata con access 97 funziona.
Uso VB6 con Microsoft DAO 3.6
Qualcuno puņ aiutarmi ?

Installa il service pack4 o 5

Funziona !
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Ricerca Occorrenze in un testo

Buongiorno al NG,
vi sarei grato se poteste trovarmi una soluzione a questa necessit�:
Progetto VB 6, ho una casella RTF nella quale viene scritto un testo di 
varia lunghezza.
Vorrei sapere se � possibile evidenziare (tipo sellength) le parole uguali 
in questo testo in tutta la sua lunghezza.
Esempio.
Testo: "Dall'alto della nostra collina, � possibile ammirare una magnifico 
paesaggio. Il verde della natura
           e l'aria della montagna vi daranno la possibilit� di rilassarvi e 
godere di un aspetto magnifico.
           Sar� difficile trovare un paesaggio altrettanto bello."
Se mi propongo un match nelle parole PAESAGGIO e MAGNIFICO, dovrebbe 
evidenziarle per ogni
occorrenza trovata.
E' possibile realizzarlo?
Grazie a voi
S. Li boni 


wrote:

Sub RichTextBoxSelBkClr(RTB As RichTextBox, _
                        Word As String, BkClr As Long, _
                        Optional MatchCase As Boolean = False, _
                        Optional WholeWord As Boolean = False, _
                        Optional FreezeCursor As Boolean = True)
   '
   'SOURCE: microsoft.public.vb.general.discussion (22 Jul 2005 7:31)
   'AUTHOR: Rick Rothstein
 
   Dim CStart As Long
   Dim CEnd As Long
   Dim Options As Long
   Dim Position As Long
   Dim CNum As Integer
   Dim BkColor As String
   Dim EColors As String
   Dim RTF As String
   Dim CTbl() As String
   Dim CiLst() As String
 
   If MatchCase Then Options = rtfMatchCase
   If WholeWord Then Options = Options Or rtfWholeWord
 
   BkColor = ";\red" & CStr(BkClr Mod 256) & _
             "\green" & CStr(BkClr \ 256 Mod 256) & _
             "\blue" & CStr(BkClr \ 65536)
   With RTB
 
      .Visible = False
      .HideSelection = Not FreezeCursor
      Position = .Find(Word, 0, , Options)
 
      Do While Position > -1
 
         .SelText = "\highlightx" & .SelText & "\highlight0 "
         RTF = .TextRTF
         CStart = InStr(RTF, "{\colortbl")
 
         If CStart Then
           CEnd = InStr(CStart, RTF, ";}")
           EColors = Mid$(RTF, CStart, CEnd - CStart + 2)
           CNum = UBound(Split(EColors, ";"))
         Else
           CNum = 1
           RTF = Replace$(RTF, "{\fonttbl", _
                          "{\colortbl ;}{\fonttbl")
         End If
 
         RTF = Replace$(RTF, "\highlightx", _
                        "\highlight" & CStr(CNum))
         CTbl = Split(RTF, "{\colortbl")
         CiLst = Split(CTbl(1), ";}")
         CiLst(0) = CiLst(0) & BkColor
         CTbl(1) = Join(CiLst, ";}")
         RTF = Join(CTbl, "{\colortbl")
         .TextRTF = Replace$(RTF, "\\highlight", "\highlight")
         Position = .Find(Word, Position + Len(Word), , Options)
 
      Loop
 
      .Visible = True
 
   End With
 
End Sub
HTH

<RaimbautDeVaqueiras> ha scritto nel messaggio 
news:g97o05toh0u819rr7...@4ax.com...

Devo dire che � letteralmente stupendo!
Un grazie davvero di cuore per l'aiuto dato.
Cordialit�
Sossio
Newsgroup: it.comp.lang.visual-basic
Titolo: ON_COMM non avviene

Uso un controllo MSCOMM32 (6.0) per ricevere informazioni da PLC, il quale
può inviarmele in qualunque momento, ma generalmente ciò avviene ogni 10-15
minuti, per cui ritenevo inutile creare un loop di polling del contenuto di
MSCOMM.INPUT.
Il problema è che l'evento ON_COMM non avviene mai.
Ossia, se metto ad esempio un breakpoint all'interno dell'evento, anche
quando il PLC invia dei dati non entro mai nell'evento.
Se invece uso un timer, nel cui evento _Timer appendo in una stringa il
contenuto di MSCOMM.INPUT, tutto funziona benissimo. Il problema è che i PC
con questo applicativo sono già carichi di lavoro, e ritengo assurdo dover
scatenare Timer ogni 200ms (il PLC esige una risposta di OK entro pochi
decimi di secondo)
Qualcuno ha avuto esperienza di problematiche analoghe?
Occorre impostare qualche proprietà di MSCOMM?
Grazie
Alberto
Impostazioni Porta
Porta_Seriale.CommPort = 1
Porta_Seriale.Settings = "9600,E,7,1"
Porta_Seriale.Handshaking = comRTSXOnXOff
Mentre
.RThreshold
.RTSEnable
.SThreshold
sono a default (ossia non li imposto)

 ha scritto nel messaggio
news:a3tgoq$5kr$1...@newsreader.mailgate.org...



Riporto da MSDN:
Setting the value for each property to zero (0) prevents the OnComm event
from firing.
Quindi i casi possibili sono diversi:
1) io non so leggere
2) so leggere ma non capisco il significato di quanto letto
3) so leggere, capisco il significato, ma mi ostino a fare cazzate
4) sono stupido e basta.
comunque adesso va.
Grazie
Alberto

Ciao
il mio inglese non sarà il massimo ma io la frase di MSDN la traduco
letteralmente così :
Settando il valore per ogni proprietà a zero (0) previene l'evento OnComm
dall'attivarsi
in altre parole
Settando il valore a zero l'evento non viene generato
Giorgio


 letteralmente così :
Se fossi stato abbastanza sveglio da cercare meglio su MSDN, penso che
l'avrei tradotta così anche io......
Se c'è una cosa che ritengo stupida, è disturbare il NG per fare domande la
cui risposta è ben chiara su MSDN.
Purtroppo, per qualche motivo a me ignoto, la frase mi era assolutamente
sfuggita....
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: lettura dati da parallela

Devo collegare due un PC fisso e un portatile.
Il primo invia i dati (una stampa) su parallela il secondo dovrebbe 
acquisire i dati sempre da parallela su un file.
Avete de suggerimenti ?
Ciao e grazie.


se ho ben capito devi intercettare i dati in stampa. Una volta (in dos) si
usava un programma non ricordo come si chiama, magari ne esiste uno anche
per windows.

, 
min...@email.it
 
says...
Il programma è PRN2FILE, ma vorrei avere qualcosa che possa gestire a 
livello di sorgente.
Secondo te è possibile ???
Ciao...


 Secondo te è possibile ???
forse con la dll "inout" puo leggere in fase di stampa tutti gli stati dei
singoli pin e poi rielaborarli per ottenere le info passate ma è un lavoro
pazzesco e sovraumano.
e poi prn2file lavora con stampe in modalità testo se il tuo problema è per
la modalità grafica (tipica di windows) c'è da mettersi le mani hai capelli

, 
min...@email.it
 
says...
Si questo programma mi serve per fare le conversioni, per quei sistemi 
che non posso accedere via ODBC, allora prendo le stampe che in genere 
sono solo testo.
Però alcune volte sono terminali o sistemi su cui non posso installare 
PRN2FILE, per questo volevo fare una procedura che mettevo sul portatile 
e poi con un cavo collegavo le due paralle e registravo i dati su un 
file.
Provo a trovare delle informazioni sulla dll "inout".
Cmq grazie e se ti viene a mente qualcosa sono sembre qui !!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con keybd_event

Ciao, il mio problema e' la sequenza di tasti.
Devo simulare uno "SHIFT a" o "HOME SHIFT END" ed inserendo il down e
l'up del tasto corrispondente non mi fa l'up dei tasti CTRL, SHIFT e
ALT. Ovvero finche' non li premo fisicamente sulla tastiera mi
rimangono attivi. Uso questa istruzione perche' ho bisogno di inviare
anche lo ScanCode della tastiera.
Fatemi sapere, non so come risolvere il problema.
Michele

 wrote in message
news:3a0a5f30...@news.inwind.it...

Un esempio del codice che hai usato sarebbe stato utile, percio' tiro a
indovinare.
Ho aperto un modulo di vb ed ho scritto:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_SHIFT = &H10
Public Sub Prova()
  keybd_event VK_SHIFT, 0, 0, 0
  keybd_event vbKeyA, 0, 0, 0
  keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0
  keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0
End Sub
'''''''''''''''''''''''''''
Quindi ho aperto la finestra Immediate, ho scritto
prova
e ho dato invio.
Nella finestra immediate e comparsa la A maiuscola, come desiderato.
Spero possa essere utile.
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox e ritorno a capo

Come posso controllare la stampa dal margine sinistro del foglio del
contenuto di di una textbox dove, nel testo, č stato premuto uno o piů volte
il ritorno a capo (Invio), purtroppo non mi riesce, la riga inizia sempre al
margine sinistro estremo senza rispettare la distanza impostata con
Currentx.
Grazie a chi mi aiuta
Giancarlo
gka...@libero.it

 Currentx.
Un sistema e' quello di avere una funzione che genera in anticipo tutte le
righe che compongono il tuo testo, analizzando semplicemente i caratteri di
ritorno a capo contenuti.
Qualcosa del genere
Dim Lines() As String
Lines = Split(Text1.Text, vbCrLf)
a questo punto puoi fare un ciclo per stampare ogni singola riga presente
nell'array, utilizzando il margine corretto; a rigore dovresti anche
analizzare il TextWidth di ogni riga per verificare che sia compresa anche
nel margine destro che desideri, e se e' il caso "spezzarla" ulteriormente
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 Lines = Split(Text1.Text, vbCrLf)
Ma se l'andata a capo č generata dalla TextBox perché la stringa
era lunga, cosě non la rilevi. Io userei la SendMessage per leggere
la TextBox riga per riga.
Bye, G.

 la TextBox riga per riga.
Questo e' un problema da considerare a priori nelle routine di stampa,
quando la stringa di testo sta fuori dai margini impostati.
Il codice sopra considera il caso di caratteri espliciti di ritorno a capo,
ma come dicevo in fondo al messaggio deve essere comunque combinato a codice
che analizza la larghezza complessiva del testo e genera ulteriori righe
nell'array che alla fine conterra' il blocco di testo da stampare riga per
riga (ovviamente se in ciascuna di queste cambiano font e dimensioni i
calcoli si complicano).
Il SendMessage qui ti aiuta solo se l'origine del testo e' un controllo
TextBox o simile, e solo se vuoi replicare in stampa gli stessi margini di
tale controllo (viceversa gli a capo automatici cambiano tra TextBox e
stampante e devi comunque analizzarli diversamente)


 > contenuto di di una textbox dove, nel testo, è stato premuto uno o più

Newsgroup: it.comp.lang.visual-basic
Titolo: Protezione sorgenti visual basic

In access come si sa esiste una password legata al  progetto mdb o adp che
sia,
con la quale si può proteggere la visione del codice da occhi indiscreti. In
visual basic che io sappia non esiste nulla di equivalente e pertanto chi
riesce ad appropriarsi dei files di progetto puo metterci  mano
tranquillamente. Possibile che non esista un qualcosa che tuteli le enormi
fatiche di noi poveri programmatori ? Grazie per una gentile risposta

 wrote in message
news:8svaa3$5gk$1...@pegasus.tiscalinet.it...


Non esiste alcun decompilatore in giro, tranquillo...


Visual Source Safe!
E' un mattone ma funziona.
Cmq se il tuo problema č la rete e non vuoi/puoi usare VSS:
1) Fa' in modo da avere una cartella tutta tua su cui applicare severe norme
di sicurezza tipo un solo accesso alla volta, accesso consentito solo al tuo
utente ecc...
2) Se ti stacchi per molto tempo dal lavoro fai un backup di tutto su un cd
o una cartuccia zip o altro e cancella i sorgenti dalla rete.
3) Se puoi usa un encrypter (es: PGP) e blocca le cartelle che ti
interessano (utile se non ti fidi nemmeno dell amministratore... ma vuol
dire che sei nei guai!)
Ciao!
Giubodi

 fatiche di noi poveri programmatori ? Grazie per una gentile risposta
Si, ma COME farebbero a prenderti i files di progetto? Tu cedi solo
l'eseguibile! O no?
Giorgio
Newsgroup: it.comp.lang.visual-basic
Titolo: Web broswer

devo fare un simulatore di internet explorer, quindi mi serve poter
visualizzare nl form le pagine web.
ora ho capito che si deve usare il web broswer , ma non so come funziona,
quindi gratirei aiuti in materia
grazie in anticipo
--------------------------------
Inviato via 
http://usenet.libero.it

msdn
-- 
Saluti
Andrea Moro


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

Intellisense è una gran bella invenzione.....
metti un WebBrowser su un form, poi vai nella finestra codice e guarda
l'elenco delle proprietà e dei metodi.....alcuni sono intuitivi, non
dovresti avere difficoltà
in particolare, guarda il .Navigate
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:%OCTa.199236$Ny5.5...@twister2.libero.it...
|
| > 
msdn.microsoft.com
| >
| > --
| > Saluti
| > Andrea Moro
| >
infatti, se vedi ci sono milioooooooooooni di pagine sui webbrowser :-P

 ha scritto nel messaggio
news:213Z45Z147Z215Y...@usenet.libero.it...
| devo fare un simulatore di internet explorer, quindi mi serve poter
| visualizzare nl form le pagine web.
| ora ho capito che si deve usare il web broswer , ma non so come funziona,
| quindi gratirei aiuti in materia
| grazie in anticipo
|
se vuoi ti spedisco il mio clone (il progetto). non è un capolavoro, ma
funziona (tutto il progetto solo 144 kb) e gestisce anche l'interfaccia di
Xp.
gratis, s'intende

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTOOOOOO!!!!!!!!!!

Sto cercando di imparare a programmare in visual basic,
ma non riesco a creare il file .exe con visual basic.
Come posso fare?

 wrote in message
pukl4.42026$C3.4...@news.infostrada.it...


 wrote in message
5Bll4.42612$C3.4...@news.infostrada.it...



Con quella non puoi creare EXE.
Dopotutto... e' gratuita...
Roal Zanazzi

 wrote in message
876tqv$a83$1...@lacerta.tiscalinet.it...


microsoft?
bisogna conoscere visual basic che oltre ad essere un prog è anche un
linguaggio di programmazione.
P.
Newsgroup: it.comp.lang.visual-basic
Titolo: Sapere numero col della frexgrid

C'ï¿œ un modo di sapere il numero di colonna cliccato in un evento clik 
destro senza ricorrere a decifrare la posizione del cursore?
Grazie
 
-- 
Greg
 
 

 Grazie
 
Private Sub MSFlexGrid1_Click()
'Destro o sinistro non cambia
MsgBox MSFlexGrid1.Col
End Sub
 
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
MsgBox MSFlexGrid1.Col
End Sub
 
Ciao Greg
Sauro 
 
 

 End Sub
 
Ciao Sauro e grazie.
Lo so che non nulla destro o sinistro, ma a me serve di sapere la col 
quando si clicca col destro.
 
Per sapere il tasto devo ricorrere agli eventi mouse up  down, ma qui 
riesco a sapere il tasto e non si può sapere la col :(
 
-- 
Greg
 
 

 Lo so che non nulla destro o sinistro,
 
Volevo dire: non cambia nulla
 
-- 
Greg
 
 

MSFlexGrid1.Col
� appunto la colonna cliccata.
 
Sauro
 
 
 

 Sauro
 
Ma in quale evento? Il clik è già occupato da altre cose...
 
-- 
Greg
 
 

 Ma in quale evento? Il clik ï¿œ giï¿œ occupato da altre cose...
 
Capito! Ti riferiscei agli eventi clik e keypress
Ma il clik ï¿œ occupato, e la pressione di un tasto ï¿œ da escludere.
Devo usare il mouse_up o down dove posso intercettare il clik destro, 
ma purtroppo qui il valore di col ï¿œ sempre l'ultima colonna :(
 
-- 
Greg
 
 


 
Public EraLaColonna as Integer
 
Private Sub MSFlexGrid1_Click()
EraLaColonna = MSFlexGrid1.Col
End Sub
 
Private Sub MSFlexGrid1_Mouse_Up()
'Se non ricordo male l'evento Click avviene prima
'dell'evento Mouse_Up quindi
'EraLaColonna � corretto
End Sub
 
 

 End Sub
 
Ok, adesso ho compreso. Grazie per la tua pazienza Sauro
Purtroppo cosi non posso usarla perchï¿œ dovrei ingegnarmi a come 
bloccare il codice restante dellevento clik.
 
-- 
Greg
 
 

destro senza ricorrere a decifrare la posizione del cursore?
 
L'insieme degli eventi Click e Mouse_Up soddisfa la tua richiesta.
Non capisco la tua obiezione dal momento che tu prevedevi
comunque di avere un click fin dall'inizio.
 
Ciao Greg
Sauro
 
 
 
 

 Sauro
 
OK Sauro, nessun problema, ï¿œ stato una mia mancanza di precisazione 
all'inizio :)
 
-- 
Greg
 
 

Scusa la pignoleria.
 
Ciao Greg

Newsgroup: it.comp.lang.visual-basic
Titolo: Icone per i propri programmi

Ciao a tutti,
vorrei sapere come posso fare per:
1) Personalizzare l'icona di un programmino creato in VB6. Cioè, l'icona ce
l'ho già ma lo devo far sapere al programmino ;-)
2) per aprire il browser (ie) direttamente da codice linkando un file html.
Grazie in anticipo,
Massimiliano

 Massimiliano
ciaociao

 html.
Sarebbe meglio aprire un secondo 3d (ps comunque non saprei)
Newsgroup: it.comp.lang.visual-basic
Titolo: inviare email

Salve, devo creare un programma che invii un email (deve spedire un ip). 
Come faccio ? 

 ip). Come faccio ?
Per inviare l'email puoi utilizzare vbSendMail
http://www.freevbcode.com/ShowCode.Asp?ID=109
Ciao!
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca



Se ti accontenti di testo, ci sono diverse soluzioni gratuite (a
memoria c'era un esempio anche sul sito comune).
Se ti serve anche HTML, allora puoi utilizzare il controllo osmtp di
Ostrosoft (
www.ostrosoft.com
).
--
Ciao!
Luca Menegotto

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Common Controls e simili

Dove caspita posso reperire gli help di questi controlli e anke di quelli
inclusi insieme a Windows o VB ?
I file sono tipo COMMCTRL.OCX , COMMCTR2.OCX e così via...
Grazie a ki mi risponde.

...

Se non hai problemi con la tastiera, c'è il tasto F1 , hai provato ?   ;-)
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi sul
    Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

Bravo! Ma si da il caso ke i file .HLP non li ho !!! Quindi ripeto dove
cavolo li trovo ???
--
|{33p3®
Paperino <non...@lo.dico> wrote in message 7lgdqt$omi$1...@stargate1.inet.it...


 cavolo li trovo ???
te lo dico io: sono sul CD di VB, devi installarli a parte. Guarda in una
sottodir. della dir. Tools, dovresti trovarli lě
-- 
Ale...@tiscalinet.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Parallela?

Ciao a tutti,esistono dll in grado di farmi gestire i singoli pin (dati)
della porta parallela?
A me serve per gestirmi un'interfaccia autocreata.
Ciao e grazie

 A me serve per gestirmi un'interfaccia autocreata.
Su 
http://www.it-lang-vb.net/
 cerca "parallela"
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: imparare qualche cosa

Vorrei iniziare ad osservare visual basic per imparare qualche cosina.
Qualcuno sà se c'è qualche manuale per principiante partendo da 0 che potete
consigliarmi e dove lo posso trovare?
Grazie!!

In inglese lo scarichi da VOLFTP altrimenti puoi comprare (anche la versione
condensata a 20mila lire) la versione in italiano in libreria:
Programmare in Visual Basic 6 -  Francesco Balena (la divinità di VB)  -
Mondadori
                            Ciao
                                            Allanon
P.S. = Come per tutti anche per te vale di controllare prima il sito coumne
http://www.it-lang-vb.net
 prima di postare sul NG... Lì trovi la recensione
di molti manuali...

Newsgroup: it.comp.lang.visual-basic
Titolo: Quale versione scegliere?

Ho occasione di acquistare Visual Studio 6.0 Enterprise originale di seconda
mano. La versione enterprise è la più completa? Da quanti cd dovrebbe essere
composta?

 ha scritto nel messaggio
news:2TCc6.37166$ew1.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Come far ruotare una bitmap a forma tonda??? (per i videogiochinari)

Devo far spostare l'imagine di un'auto sopra di uno sfondo.
Per lo spostamento dell'auto nessun problema perche' e' in linea con l'asse
orizzontale e quindi usando la BitBlit tutto va a meraviglia.
Pero' le ruote vorrei farle ruotare.
Attualmente ho tentato di caricare una picture con sequenze successive della
posizione ruota.
Il mio problema e' che la picture e' quadrata e quindi i quattro spigoli
vanno a coprire lo sfondo.
Ho anche provato col metodo della maschera per far sparire gli spigoli:
BitBlit ..SFONDO , MASCHERA..... SRCAND  (una AND dei bit maschera / sfondo)
BitBlit ..SFONDO , RUOTA  ..... SRCPAINT    (e' una OR dei bit ruota /
sfondo)
E riesco ad ottenere la trasparenza degli spigoli (che nella bitmap della
ruota sono disegnati in nero) rispetto allo sfondo, pero' l'operazione e'
molto 'sfarfallante' e praticamente inutilizzabile.
Come posso ottenere la trasparenza di alcune parti dell'immagine che vado a
piazzare sullo sfondo e contemporaneamente la fluidita/velocita' di lavoro?
Ciao e grazie
RobertoA

 piazzare sullo sfondo 
come hai detto tu con le maschere.
saluti Valerio
p.s. cosa stai implementando?


cioe' dovrei realizzare un frame della mia animazione in una zona di memoria
e poi indicare alla scheda video di usare tale zona e via di questo passo?
E praticamente come si fa?
Grazie e ciao
RobertoA

dovresti disegnare la scena (cioè la texture dello sfondo, lo sprite 
della macchina e gli sprite delle ruote ruotati ogni volta di quanto 
desideri) su una bitmap e poi copiare la bitmap sullo schermo.

Newsgroup: it.comp.lang.visual-basic
Titolo: aprire piu volte lo stesso form

ciao
mi è stato chiesto se è possibile aprire piu volte lo stesso form.
praticamente ho un elenco con le schede tecniche di vari prodotti e il
cliente sarebbe felice se potesse aprire piu schede contemporaneamente.
ho fatto delle prove, ma quando cerco di aprire un secondo form succede che
ricarica i dati del seondo prodotto sostituendo quelli che erano gia
caricati.
c'è un modo per fare questa cosa?
grazie
1000
ciao

 caricati.
Posto che il nome del form sia "MyForm":
(a) crei una funzione Public in MyForm (diciamo "Load") che avrà lo scopo di
caricare i dati (con i parametri del caso, 
p.es
. l'id del record da
caricare). (Se questo lo facevi nell'evento Load del form, sposta tutto
nella nuova funzione.)
(b) nella sezione di codice dove apri i form crei una nuova istanza del form
(anche la prima) con:
Dim frm as new MyForm
(c) esegui frm.Load(---)
(d) se è utile, metti frm in una collection per successivi usi.
--
rumplestiltskin
Newsgroup: it.comp.lang.visual-basic
Titolo: Run-time 430 e Office XP

Ciao, ho provato ad installare la mia applicazione su un PC con Win2000
e Office XP ma mi da' errore run time 430 'La classe non supporta
l'automazione o l'interfaccia prevista.'. Il programma gestisce archivi
in formato Access97.
Secondo voi si tratta di un problema con Access XP...quale potrebbe
essere la soluzione?
Grazie



Quale provider hai usato? Prova il Jet 4.0...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

Ho utilizzato il 4.0.......
Moreno Sirri ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: Proprieta' "LocalIP"

Ciao a tutti,
sono un newbie in visual basic. Dovrei fare un programmino che
visualizza l'inidirizzo IP e so che esiste la proprieta' "LocalIP".
Qualcuno mi potrebbe dare una dritta su come utilizzarla??
Ho la versione 5.0.
Grazie
 Andrea
e-mail: 
alon...@login.it


La cosa e' un po' lunghetta..... intanto accontentati di sapere che ti serve
la seguente dll : WSOCK32.DLL
se ho tempo ti butto giu' il codice che ti serve .... ma senza impegno !!!
;-))
ciao
Ven.

>
Dimenticavo........ aggiungendo il controllo WINSOCK alla tua applicazione
puoi semplicemente fare :
Debug.Print Winsock1.LocalHostName
Debug.Print Winsock1.LocalIP
Ciao
Ven



Newsgroup: it.comp.lang.visual-basic
Titolo: Codice a Runtime

Non avendo difficoltà a creare routine di codice a runtime in VBA, sto
cercando di farlo anche in VB6, ma non riesco.
Potete mandarmi qualche pezzo di codice per farlo?
GRAZIE

 Potete mandarmi qualche pezzo di codice per farlo?
Io non capisco...
Puoi farci un esempio, anche semplicissimo, di cosa vuoi fare?

 ha scritto nel messaggio
news:c6gchh$bea95$1...@ID-174464.news.uni-berlin.de...


 in VBA.
Gli shapes di VB non espongono eventi.
Non metto lingua (API e/o subclassing probabilmente possono farlo, ma non
conosco).
Io emulerei "giocando" con Mouse<Down Up> sul contenitore (per esempio il
form) e, grazie a X e Y (oltre alle dimensioni e posizione note), capire se
si sta sul bordo o all'interno e agire di conseguenza.

 ha scritto nel messaggio
news:c6gnj6$brt9p$1...@ID-174464.news.uni-berlin.de...


 run-time!!!!!
Ben disposto a imparare, ma sono convinto che non si possa (tranne che per
qualche script estremamente limitato). Se lo scopri, raccontacelo, a me
interesserebbe.
Insomma, è possibile giostrare l'esecuzione di codice pre-scritto (a
proposito, in ambiente di esecuzione dell'EXE cosa accadrebbe, ovvero come
farebbe il solo runtime ad eseguire codice non compilato?) con chiamate
pilotate da variabili e parametri, ma il codice deve essere scatenato da un
evento o eseguito esplicitamente dalla Sub Main. Non vedo altre possibilità.

 ha scritto nel messaggio
news:c6go56$brsgc$1...@ID-174464.news.uni-berlin.de...


 fare in VB6 quel che faccio in VBA, dimenticando compilazioni ecc ecc.
Sono straconvinto che con VB si possa fare molto di piů di quanto si puň
fare con VBA, tranne alcune cose, poche, ... come quella che hai chiesto.
;-)
Perň non disperare, magari qualcuno arriva con la soluzione...
PS: Qui si scrive sotto al testo quotato, non sopra.

 Però non disperare, magari qualcuno arriva con la soluzione...
E' la stessa cosa che ho chiesto io settimana scorsa (post sull'emulazione
del controllo Line).
Stando a quanto dice MSDN si può fare, ma io non sono riuscito a mettere in
pratica i suoi consigli: o hai la trasparenza o hai gli eventi... entrambe
le cose non ce l'ho fatta :(
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Visual basic 5 e le leggende metropolitane

Salve a tutti, ho inteso dire che con VB 5 i programmi sviluppati contengono
quasi tutto il codice sorgente, questo vuol dire che non bisogna più
allegare ai setup tonnellate di ocx e dll ?
Infatti ho disassemblato un programma in vb 4 e orrore, non esiste una sola
linea di codice assembler, ma solo una chiamata alla libreria vb40032.dll.
Sarà una leggenda, ma è bello crederci, quasi, quasi passo a vb5.
Ciao e grazie.

...


Stai confondendo il fatto che VB5 (e seguenti) compila in codice macchina
nativo Intel (che e' vero, se scegli di compilare l'EXE in nativo... usa lo
stesso back-end compiler di VisualC++)
con la necessità delle DLL di runtime e OCX vari (cose di cui VB ha tuttora
bisogno, e credo ancora per un bel po di versioni future...)
Quindi, VB5 (e 6), PUO' compilare in codice nativo Intel.
MA ha sempre e comunque bisogno della DLL di runtime e di tutti gli
eventuali OCX/DLL aggiuntivi utilizzati nel programma.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: programma per Database

Salve!
Volevo fare un programma per ordinare e gestire una piccola biblioteca..
Qualcuno sa dirmi qualche cosa in proposito?
nel web c'è qualche cosa,...un sorgente in *.vbp?
Grazie in anticipo achi mi risponderà
Saluti

 ha scritto nel messaggio
news:8lFda.108473$zo2.2...@news2.tin.it...
