mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Aggiornamento

21/01/01
Aggiornamento
Documentazione:
   Nuovo : Convenzioni per la programmazione in Visual Basic
Sorgenti:
   Nuovo : Mod Player
Binari (OCX/DLL):
   Nuovo : Libreria per comprimere i files con il metodo di Huffman
   Nuovo : Libreria per creare splash screen trasparenti
Programmi:
   Aggiornato : Contascatti "Internet Costa!" v. 2.33.200
Links:
   Aggiornamento dei links ai siti italiani
---------------------------
Questo è l'aggiornamento del Sito Comune odierno.
Credete che questo servizio (postare gli aggiornamenti sul newgroup) possa essere interessante
oppure no?
Se volete (in futuro, appena si trova un nuovo server) si potrebbe istituire anche una Mailing List
a cui notificare questi aggiornamenti (era già stato proposto e discusso...)
Ciao a tutti,
Sirri Moreno
WebMaster del Sito Comune di questo newsgroup:
http://www.murialdo.it/it_lang_vb
it_la...@murialdo.it

 ha scritto nel messaggio
news:281m6tsi99hkhg0c3...@4ax.com...


scaricare i file.
Ne sei sicuro? Quali collegamenti non ti funzionano? Ho appena controllato quelli odierni...
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
---------------------------------------------------------------------------

a cui notificare questi aggiornamenti (era già stato proposto e discusso...)
http://www.egroups.com
 non va bene?
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


Pure ...
Ciao e grazie ancora

 ha scritto nel messaggio
news:281m6tsi99hkhg0c3...@4ax.com...


Ma tu non sei quello che al massimo ha solo una domenica libera al bimestre?
Non esageriamo... una al mese...
Il contro dei turnisti... :-(


Ma tu non sei quello che al massimo ha solo una domenica libera al bimestre?
Il resto dell'anno e' impegnato a scrivere codice per il sito comune
oppure ad aggiornarlo :)
Bisogna fare delle scelte... :)


 wrote in message
news:b1do6tkpk0652urlj...@4ax.com...


Scusa, ma che lavoro fai?
Attualmente non il programmatore, purtroppo, ma solo fino a luglio.... ;-))) (se tutto va bene...)


Newsgroup: it.comp.lang.visual-basic
Titolo: Giustificazione testo

Come si fa a giustificare il testo in una TextBox?
Serve una RichTextBox?
Se sě, dove posso trovare questo controllo? Non ho vb professional o
enterprise .


c'è la proprietà allignement left justify o right justify o center del
textbox comunque il richtextbox è un componente da aggiungere tramite menù
progetto poi componenti e infine micorsoft rich textbox...
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: VB & PowerPoint

Salve a tutti,
      avrei necessita' di creare dalla mia applicazione VB un file PPT
ove inserirci testo e immagini. Ho gia' provato con l'oggetto
powerpoint.application ma mi sono incartato.
Sapreste indicarmi la strada?
Grazie 1000 a tutti coloro che sapranno aiutarmi

 ha scritto nel messaggio
news:4d0f12c4.03072...@posting.google.com...
: Salve a tutti,

Purtroppo sul pc che sto usando non ho PP installato.
Ad ogni modo, se sei riuscito ad instanziare l'oggetto application puoi
utilizzare tutto ciň che PP ti mette a dispposizione.
Aiutati con l'ObjectBrowser (premi F2) per capire bene il modello ad oggetti
del programma.
Ciao, Luca.

Grazie Luca,
    vado a provare, speriamo bene. :)
"Luca di Cerneglons" <pr...@scriver.mi> ha scritto nel messaggio
news:1j9Va.209054$lK4.6...@twister1.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Immagini DXF, EPS, DWG

Ciao a tutti!
Qualcuno sa se esiste un controllo o una libreria in grado di visualizzare e
fare lo Zoom di immagini in formato EPS o DXF o DWG (o in qualche altro
formato grafico vettoriale diffuso)??????''
Sarebbe abbastanza urgente! :-)
Un grazie anticipato!
--
|--> Daniele 
ds...@libero.it
 <--|

Whip! di Autodesk
ma credo che funzioni meglio con i file DWF
Fabrizio

 wrote in message
xeIB3.118641$6C.2...@typhoon.libero.it...


Io ho fatto un OCX con VB6 per importare DXF... è shareware...
Fabio Guerrazzi

Grazie a Tutti!
Bye!


Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione Replace in uno script

Salve,
uso questo script collocato in una pagina web, che provvede OnClick a
salvarmi la pagina web corrente in un path locale definito.
<script language=vbscript>
Sub Save
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile Replace(Replace(document.url, "file://", ""),
"C:\pagina.htm", true
End Sub
</script>
Il replace provvede correttamente a salvarmi la pagina in C:\, solo che
quando la pagina da salvare di origine (nella quale è contenuto lo
script) è collocata in una cartella che come nome ha uno spazio(es.
"mia cartella" anzichè "miacartella"), mi da "errore impossibile
trovare il percorso".
Presumo ci sia da fare il replace dei caratteri spazio o %, ma anche
facendo molte prove non sono riuscito a farlo funzionare...
ringrazio chiunque mi dia una mano.

 facendo molte prove non sono riuscito a farlo funzionare...
hai provato a codificare lo spazio con %20, come da standard?
http://www.rfc-editor.org/rfc/rfc1738.txt
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: CHIEDO AIUTO !!!!

Vorrei caricare Run Time un'immagine Tif in un campo di un database di
Access !
Sto provando con l'aiuto dell'Help On line ma non riesco a levarci le
gambe!
Grazie in anticipo per l'aiuto!!!!!!!

...


Ti ringrazio Molto ma ho bisogno proprio della riga di comando che avendo in
frmNome.Ole l'immagine IMAGE.TIF, la salva nel campo di access rsttemp!Campo
GRAZIE!!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: MOVELAST, oRDERBY

 Non ci capisco nulla:
ho scritto il seguente codice per SQL SERVER 7
  rsAux.Open "SELECT * FROM TAB_PR ORDER BY PR_STEP", dbProc, adOpenDynamic,
adLockOptimistic
'''''''''''
    rsAux.MoveLast
    If rsAux.RecordCount <> 1 Then
        rsAux.Delete
    End If
Pur avendo aperto il recordset con cursore adOpenDynamic mi da' errore
dicendo che il cursore non supporta il fetching backward Ho controllato di
fatti il rsAux mi viene aperto con CursorType=0!!! . se metto un indice
sulla tabella in corrispendenza di PR_STEP funziona il movelast ma
recordcount mi da' -1.
Qualcuno mi spiega?

 Qualcuno mi spiega?
I cursori dinamici non supportano la proprietà record.count, per ovvie
ragioni, dato
che ti consentono di vedere qualunque cosa succeda sulla tua tabella, nulla
esclude che dal momento del recupero dei dati a quello in cui richiedi
l'informazione
siano stati aggiunti e/o cancellati 'tot' records... per la stessa ragione
il rs in questione
non gestisce nemmeno i segnalibri.
Ciao
 Valter

Newsgroup: it.comp.lang.visual-basic
Titolo: calcolo dell'intervallo di tempo

s

s

s

s

s

>

 passato tra l'inizio e la fine del ciclo.
Per favore, evita di postare in HTML, altrimenti, come avrai notato,
è un po' difficile risponderti.
Per quanto riguarda il tuo problema, prova così:
________________
Sub MiaSub()
    Dim Inizio As Date
    Inizio = Now
    ' qui ci va la routine lunga, per esempio:
    Dim n As Long
    For n = 0 To 200000
        DoEvents
    Next n
    ' fine della routine lunga
    MsgBox "Fine dopo: " & DateDiff("s", Inizio, Now) & " secondi"
End Sub
_____________
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

T
Newsgroup: it.comp.lang.visual-basic
Titolo: Versione OS: dwPlatformId sfasato.....

Salve a tutti.
Leggendo il post di ieri di ]Maio[ sulla versione dell'os ho preso e
modificato del codice dall'esempiuo che forniva durante il messaggio.
'In modulo
Public Function Get_Version() As String
Dim osv As OSVERSIONINFO
Call GetVersionEx(osv)
With osv
                MsgBox .dwPlatformId
 Select Case .dwPlatformId
            Case VER_PLATFORM_WIN32s
                    Get_Version = "Windows 32 su Windows 3.1"
            Case VER_PLATFORM_WIN32_WINDOWS
                If .dwMajorVersion = 4 And .dwMinorVersion = 0 Then
                    Get_Version = "Windows 95"
                        If .szCSDVersion = "C" Then
                        Get_Version = Get_Version & " OSR2"
                        End If
                ElseIf .dwMajorVersion = 4 And .dwMinorVersion = 10 Then
                    Get_Version = "Windows 98"
                        If .szCSDVersion = "A" Then
                        Get_Version = Get_Version & " SE"
                        End If
                ElseIf .dwMajorVersion = 4 And .dwMinorVersion = 90 Then
                    Get_Version = "Windows Millenium Edition"
                End If
            Case VER_PLATFORM_WIN32_NT
                If .dwMajorVersion = 3 Then
                    Get_Version = "Windows NT 3.51"
                ElseIf .dwMajorVersion <= 4 Then
                    Get_Version = "Windows NT 4.0"
                ElseIf .dwMajorVersion = 5 And .dwMinorVersion = 0 Then
                    Get_Version = "Windows 2000"
                ElseIf .dwMajorVersion = 5 And .dwMinorVersion = 1 Then
                    Get_Version = "Windows XP"
                ElseIf .dwMajorVersion = 5 And .dwMinorVersion = 2 Then
                    Get_Version = "Windows Server 2003 .NET Family"
                End If
            Case Else
                Get_Version = "Non Identificato"
      End Select
End With
End Function
....una volta che richiamo, la funzione mi da come risultato che io starei
usando win 3.1...:-|
Ecco, il fatto č che secondo lui il dwPlatformId č uguale a zero e quindi
entra nel case sbagliato.....qualcuno sa dirmi come far funzionare il
tutto??
Grazie a tutti
Giuse

 Ecco, il fatto è che secondo lui il dwPlatformId è uguale a zero e quindi


Grazie!!! Ora funziona!
Newsgroup: it.comp.lang.visual-basic
Titolo: Coesistenza VB6 con VB.NET

Salve a tutti,
sapete se si possono mantenere contemporaneamente VB6 e 
VB.NET
 nel proprio
sistema?
Infatti vorrei continuare a programmare con VB6 e contemporaneamente
studiarmi 
VB.NET
 e fare le mie prove.
Grazie in anticipo per l'eventuale risposta.
--
Ciao
Roberto
Email:
robert...@tiscalinet.it

 ha scritto nel messaggio
news:5Pkg8.55887$v7.19...@twister1.libero.it...

Io personalmente ho un PC su cui girano VB4 e VB6, anche perché installando
l'aggiornamento a VB6 il setup non mi ha chiesto se voglio sovrascrivere
VB4.
Quindi suppongo tu possa fare lo stesso con VB6 e 
VB.NET
, che non conosco e
quindi sono pronto a ricevere un thread di smentite!
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 (Remove nonspammare for reply)
Si, funzionano
Io ho VS 6.0 e VS .NET e tutto è regolare
Ciao
MiK

 Ciao
Non sembra perň essere opinione condivisa da molti :)
Ciao

Io ho installato VB3/VB4-16/VB6Sp5 e VS.Net e tutto funziona correttamente
e, dai feedback del ng microsoft.public.dotnet.languages.vb, sembra un
opinione condivisa da molti... :-)
Ciao
Corrado

 ha scritto nel messaggio
news:%qng8.59244$fa5.1...@twister2.libero.it...


A me funziona tutto, compresi i pacchetti di installazione di applicazioni
VB6 (sia usando il PDW di VB6 che installshield e InnoSetup)
Ciao
Corrado

 ha scritto nel messaggio
news:XHog8.56975$v7.20...@twister1.libero.it...


Grazie 1000 a tutti per la disponibilita'.

Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire finestra Windows da codice

Vorrei sapere se esiste un comando per aprire da codice una normale finestra
di Windows (quella di Risorse del Computer) posizionata però su una precisa
cartella.
La speranza è di non dover usare API, ma nel caso sia necessario esiste sul
Web un elenco completo di tutte le funzioni e delle loro specifiche?
Grazie

 Web un elenco completo di tutte le funzioni e delle loro specifiche?
Completo no, ma molto nutrito si: AllAPI.net (
www.allapi.net
, oppure
http://www.mentalis.org/index2.shtml
) è il punto di riferimento di milioni
di programmatori.
Ciao.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 (quella di Risorse del Computer)
cos'e' risorse del computer  ?
 incolla su notepad e salva come My Computer.wsf
e vedi se e' quello che cerchi :
<JOB ID="openmydoc">
 <REFERENCE GUID="{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}"/>
 <script language="VBScript">
         set WshShell = WScript.CreateObject("Shell.Application")
        set oShell = WScript.CreateObject("WScript.Shell")
WshShell.Open(17)
     set WshShell = Nothing
     set oShell = Nothing
 </SCRIPT>
</JOB>
' fine
*.vbs
Set Shell = WScript.CreateObject ("Shell.Application")
Shell.open(0) ' desktop
' cambiando la numerazione (0) vai ad altre cartelle speciali
' stessa cosa di sopra leggermente diversa
 ssfPERSONAL=5
set Shell = WScript.CreateObject("Shell.Application")
'x = Shell.path(5)
msgbox  ssfPERSONAL
' tutta la serie sempre *.vbs
Dim sh, s, s3, i
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
'VB :
the values you would use; VBScript won't know what to do with ssfBITBUCKET but can pass a value of 10 fine.
ShellSpecialFolderConstants
 ssfDESKTOP=0
 ssfPROGRAMS=2
 ssfCONTROLS=3
 ssfPRINTERS=4
 ssfPERSONAL=5
 ssfFAVORITES=6
 ssfSTARTUP=7
 ssfRECENT=8
 ssfSENDTO=9
 ssfBITBUCKET=10
 ssfSTARTMENU=11
 ssfDESKTOPDIRECTORY=16
 ssfDRIVES=17
 ssfNETWORK=18
 ssfNETHOOD=19
 ssfFONTS=20
 ssfTEMPLATES=21
 ssfCOMMONSTARTMENU=22
 ssfCOMMONPROGRAMS=23
 ssfCOMMONSTARTUP=24
 ssfCOMMONDESKTOPDIR=25
 ssfAPPDATA=26
 ssfPRINTHOOD=27
 ssfLOCALAPPDATA=28
 ssfALTSTARTUP=29
 ssfCOMMONALTSTARTUP=30
 ssfCOMMONFAVORITES=31
 ssfINTERNETCACHE=32
 ssfCOOKIES=33
 ssfHISTORY=34
 ssfCOMMONAPPDATA=35
 ssfWINDOWS=36
 ssfSYSTEM=37
 ssfPROGRAMFILES=38
 ssfMYPICTURES=39
 ssfPROFILE=40
 ssfSYSTEMx86=41
 ssfPROGRAMFILESx86=48
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: Anomalie Evento Click Pulsante

E' normale che se clicco su un pulsante (e quindi faccio scattare l'evento 
pulsante_click) esegue bene l'evento e se invoco l'evento senza cliccare 
manualmente sul pulsante (richiamo da codice pulsante_click) si comporta in 
modo diverso?
Grazie,
Stride 

"Stride" <stride@libero.t> ha scritto

quando sono di fretta uso anch'io quel sistema, e non ho mai notato 
particolari stranezze.
cosa (non) succede?

 cosa (non) succede?
Beh la cosa che si nota subito è che non esegue la chiusura di un form:
questo è il codice:
Private Sub cmdOk_Click()
   With Me.lstPropTags
      If .ListCount <= 0 Then Exit Sub
      If .ListIndex < 0 Then Exit Sub
      Me.outValue = .ItemData(.ListIndex)
   End With
   Me.outOk = True
   Me.Hide
End Sub
ad esempio me.hide lo esegue solo se clicchi manualmente sul pulsante... 
come è possibile??
Grazie,
Stride 

"Stride" <stride@libero.t> ha scritto

a parte che .hide non scarica il form ma lo nasconde soltanto (se e' l'unico 
form, il programma resta vivo), la sub la chiami da una routine dello stesso 
form?
essendo private, direi di si'

 essendo private, direi di si'
Si, infatti il form lo devo solo nascondere.
Si, chiamo la sub da una routine dello stesso form...
Stride 

 Si, chiamo la sub da una routine dello stesso form...
allora c'e' qualcosa che mi sfugge. prova il codice qui sotto. clicca prima 
su cmd1, poi rilancia e clicca cmd2.
nb: al load, timer1.enabled=false, serve solo a chiudere a form invisibile.
Option Explicit
Private Sub Command1_Click()
    MsgBox "hello world - this is command1"
    Timer1.Enabled = True
    Me.Hide
End Sub
Private Sub Command2_Click()
    MsgBox "hello world - this is command2"
    Command1_Click
End Sub
Private Sub Timer1_Timer()
    Static n As Long: n = n + 1
    If n > 4 Then Unload Me
End Sub

 invisibile.
Non funziona... continua a funzionare solo se ci clicco col mouse... mah, 
saranno i fantasmi.
:-)
Stride 

 :-)
ok. al form_load, setta la proprieta'
me.exorcist = true
e riprova
dipende anche da sp e localizzazione. potrebbe essere
me.voodoo
me.bmagic
vedi un po'

 saranno i fantasmi.
Cioč nell'esempio se clicchi su command2 non si nasconde il form?
Ma per piacere... :)
Ci avrai messo del tuo :P
tipo
' bla
' bla
' bla
call command1_Click()
me.Show
Ciao 

 me.Show
ti stai esercitando col q*? :)

> Cioč nell'esempio se clicchi su command2 non si nasconde il form?
Se ci clicco si, se passo l'evento (sia il click sul command1 che il click 
sul command2) ad esempio dal form_load no...
:-|
Stride 

 sul command2) ad esempio dal form_load no...
ah-ah!
Ecco di chi è la colpa!
Non puoi nascondere il form nel form_load perchè in quel momento ègià 
nascosto, ma poi VB lo visualizza.
Vedi che alla fine è colpa tua? :)
Ciao 

 Vedi che alla fine è colpa tua? :)
Ah! Vil Marrano!
Ma quante ne sai... :-)
Stride
Newsgroup: it.comp.lang.visual-basic
Titolo: Nascondere menu contestuale della trayicon

Salve a tutti.
Ho messo un programma nella trayicon e abilitato un menu contestuale,
adesso vorrei trovare il modo di nascondere il menu che viene fuori
quando premo il tasto destro del mouse sopra la trayicon. Infatti il
menu' non va via fino a quando non clicco su una voce del menu' mentre
io vorrei che sparisse (come fa su tutti i programmi "normali" nella
trayicon) nel momento in cui clicco col mouse in un qualsiasi altro
punto dello schermo....spero di essermi spiegato bene!!
Per caso va intercettato qualche messaggio di sistema particolare
tramite subclassing?
Grazie a tutti.
Duccio

Duccio ha scritto...

Questo dovrebbe esserti d'aiuto:
http://tinyurl.com/6fezab
--
Ciao Fede
By Chicco Production
http://bcp.freetools.it


Supponendo che tu lavori in VB6 e abbia usato Shell_NotifyIcon con 
nid.uCallBackMessage = WM_MOUSEMOVE, la soluzione che tempo fa trovai per 
questo problema č questa (in particolare le linee indicate con gli 
asterischi):
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, 
y As Single)
Dim msg As Long
Dim hwnd As Long
    If Not Visible Then
        msg = x / Screen.TwipsPerPixelX
        Select Case msg
        Case WM_RBUTTONDOWN
            hwnd = Me.hwnd
            SetForegroundWindow hwnd    '*
            PopupMenu mnuContext
            PostMessage hwnd, WM_NULL, 0, 0  '*
        End Select
    End If
End Sub
Spero ti possa essere d'aiuto.
Bye
Raf 

Ringrazio tutti, velocissimi come al solito.
Le due soluzioni funzionano entrambe.
Ciao
Duccio
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO OpenSchema... perchè altera i nomi tabella?!?!?!?

 
          Forse il subject è un po' troppo d'effetto....mah! Comunque, devo verificare
la presenza di una tabella in un DB, ho vercato i vecchi post, ma non ho
trovato nulla di applicabile: o questa istruzione
VariabileConnessione.Execute "if exists (select * from sysobjects where id =
object_id(N'[dbo].[MiaTabella]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[MiaTabella]"
che non ho compreso a pieno (e non mi funziona), o generare un errore, che
però non mi sembra troppo elegante.
Allora sono ricorso ad un banale ciclo sulle tabelle tramite
Set ElencoTabelle = MioDB.OpenSchema(adSchemaTables)
ma
ElencoTabelle.Fields("TABLE_NAME")
mi restituisce i nomi segiuti da un carattere che sembrerebbe una
tabulazione... Ovviamente questo non mi consente di fare il confronto con la
stringa contenente il nome tabella da trovare.
Ma perchè si comporta così?
Ps: sto usando MySQL
Grazie!!!
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Su MySql non ne ho idea
ti posso dire che su oracle restituisce il nome della tabella preceduto
dall'utente proprietario.
tutto dipende da quello che decide di restituire il provaider, ADO chiede
semplicemente a lui


 tabulazione...
Sembra o č?
Non č che ti restituisce una stringa null terminated?
Ciao


Il Null Terminated č il CHR(0)? Allora sě! Ieri ho scritto sull'onda dello
sconforto mentre scappavo dall'ufficio. Oggi con calma e 5 minuti
disponibili ho risolto!!!
Thanks...


Newsgroup: it.comp.lang.visual-basic
Titolo: Convertire una Query molto complessa da Access 97 a VB

Come posso convertire una query Access in VB6 cosě come posso fare per una
tab. ?
--
Ciao
Flex

 cosě come posso fare per una tab. ?
a occhio e croce, copy la query da visualizza/sql di access e la incolli
nella fonte (recordsource) di un datacontrol o di una variabile recordset di
vb. non so se la procedura sia automatizzabile, ma direi ci sia solo sw non
free.
qui cmq la qry viene immessa in un txtbox, dbark e' un datacontrol, dbg una
dbgrid, rtf un richtextbox. gli indici della tabella sono normalmente
disponibili attraverso il cboindex:
Private Sub cmdSqlExec_Click()
    On Error GoTo errman
    If txtSQL = "" Then Exit Sub
    Screen.MousePointer = 11
    cboIndex.Enabled = False
    dbArk.RecordsetType = 1
    dbArk.RecordSource = txtSQL
    dbArk.Refresh
    DBG.ReBind
    Screen.MousePointer = 0
    RefreshStatus
    Dim tot1 '----> famigerato dim sul posto, vedo adesso :)
' quindi ne uso anch'io... non si finisce mai di imparare :)
    dbArk.Recordset.MoveLast
    tot1 = dbArk.Recordset.RecordCount
    If tot1 = -1 Then tot1 = 0
    Status.Panels(8) = "TOT " & tot1
    RTF.SetFocus
    Exit Sub
errman:
    Screen.MousePointer = 0
    MsgBox Err & " - " & Error
    Exit Sub
End Sub
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo RichTextBox o TextBox?

Salve a tutti!
Vorrei creare un piccolo editor di file di testo, e visto che sul file devo
effettuare anche ricerche di stringhe, presumo che lo strumento più utile
sia il RichTextBox. Durante le varie prove e provettine mi sono accorto che
il tasto tab non fa la sua funzione e cosi il CTRL+V e via dicendo. Come
faccio per esempio a:
1§) far si che selezionando una o più righe e premendo il tasto tab possa
avere una tabulazione su tutte le righe selezionate?
2§) implementare il menù "Modifica"
Grazie a Tutti per la gentile attenzione.









2§) implementare il menù "Modifica"
Cioe'? copia/taglia/incolla ce li hai senza dover fare nulla.
Seleziona tutto puoi farlo cosi':
rtb1.selstart=0
rtb1.sellength=len(rtb1.text)
pero' e' gia' presente il ctrl+a e il ctrl+<5 sul tastierino numerico>
di default, quindi puoi fare a meno di scrivere altro codice.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-V --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Documentazione..... (Subclass)

Tempo qualcuno, sinceramente non ricordo chi, aveva detto che preparava una
documentazione sul Vb e tra i vari argomenti c'era anche il subclass, e che
poi questa documentazione sarebbe stata pubblicata su un sito o sul sito
comune...... Ma a tuttoggi di quella documentazione non se ne sà niente.....
Ciao Gab

Beh... forse chi la doveva fare non ha avuto tempo... non possiamo di certo
fargliene una colpa... o forse...
Si é accorto che sul SC c'é già (dalla notte dei tempi) la documentazione
sul Subclassing, se non sbagli scritta da Moreno Sirri...
                Ciao
                                Allanon
P.S.= Occhio che la tua tastiera deve essere affamata perché si mangia
qualche parola ogni tanto... ;)


 ha scritto nel messaggio
news:a62qed$b2mhg$1...@ID-67444.news.dfncis.de...


Ho peccato di ingenuità, mi sono scordato di cercare sul sito comune 
 ehm... :-)
Ciao,
Moreno
-- 
sirri at morenosoft dot com
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicazione USB

Salve come si può comunicare da Visual Basic 6 con una porta USB?
Qualcuno può darmi una dritta? 

 Qualcuno può darmi una dritta?
Sì, in realtà tu non vuoi comunicare con una porta USB, ma con un/una...
Ciao 

 Qualcuno può darmi una dritta?
Tempo fa ho fatto un post dello stesso tipo (io però usavo .net).
Comunque... è una tragedia... in quanto tu vedi la periferica che ci è 
collegata, non la porta in se...
Bye,
-- 
Carmine ( 
pikachu...@gmail.com
 (Togli la scritta NOSPAM) )
Webmaster di The Total Site 4 : 
http://www.thetotalsite.it
My Blog: 
http://blog.thetotalsite.it
MariokartDS Codice Amico: 532639027909 - CarmineC in MarioKartDS
Se un circuito funziona al primo tentativo è perchè il problema è molto
più nascosto e subdolo di quanto tu possa pensare...
E apparirà nel momento in cui farà il massimo danno 

 collegata, non la porta in se...
.. per la precisione devo comunicare con la porta seriale di un PLC
tramite un adattatore USB-Seriale e devo inviare stringhe come
con MSComm 

 ha scritto nel messaggio 
news:OLuhg.27160$jP5.6...@twister1.libero.it...


 Marco R.
Grazie, ma credi che se dalla porta USB faccio partire un cavo a cui
fà capo un Hub USB al quale ci collego due PLC tramite due adattatori
verranno create due porte virtuali COM? 

 ha scritto nel messaggio 
news:aMvhg.27165$cX1.4...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] IP?

Cominciamo.
1) Non capisco niente! (Diciamo poco poco)
2) Non riesco a chiamare un API senza piantare il mio PCino!
3) Vorrei risolvere un indirizzo http, come 
www.tin.it
 nel suo
corrispondente IP, 194.243.154.
4) Non voglio usare robe esterne DOS, tipo Ping, tracert, etc.exe ...
5) Oggi a Modena piove!
--
----------------------------
Andrea Melis
ame...@pianeta.it
----------------------------

 3) Vorrei risolvere un indirizzo http, come 
www.tin.it
 nel suo
corrispondente IP, 194.243.154.
Intanto, sei collegato a internet ?!?!?
Usi il controllo Winsock ????
Leggi la documentazione relativa a questo controllo, forse ci salti fuori,
io non l'ho mai usato, ma ci ho dato un'occhio veloce !!!
Ciaps
Stracca

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto Barra di Avanzamento ...

Pongo il seguente problema :
"
Dim query As String
query = "select codice,descrizione,prezzo from " + stringa + " order by
descrizione"
datPrimaryRS.RecordSource = query
datPrimaryRS.Refresh
"
Come potri fare nel codice sottostante ad inserire una barra s' avanzamento
?
Che valore potrei dare alla   "Bar.value"  ?
Grazie Anticipate ..
Salvatore
--
Salvatore

 wrote in message 8gti0m$rg8$1...@nslave2.tin.it...


 ha scritto nel messaggio
news:7jsY4.20815$VM3.2...@news.infostrada.it...


 Per ciň che riguarda come si fa... questo lo ignoro :-))
Potrebbe usare una pseudo barra tipo questa:
' Form1
' Label1
' Label2
' Command1
' Timer1
'
Option Explicit
Private Sub Command1_Click()
  DoEvents
  With Label1
    If .Visible Then
      Let Timer1.Enabled = False
      Let .Visible = False
      Let Label2.Visible = .Visible
    Else
      Let Timer1.Enabled = True
    End If
  End With
End Sub
Private Sub Form_Load()
  With Label1
    Let .Caption = ""
    Let .AutoSize = True
    Let .Visible = False
  End With
  With Label2
    Let .Caption = ""
    Let .BackColor = vbBlue
    Let .Visible = False
  End With
  With Timer1
    Let .Enabled = False
    Let .Interval = 100
  End With
End Sub
Private Sub Timer1_Timer()
Const c_strMsg    As String = "Aspetta e spera..."
Const c_lngStep   As Long = 50
Static s_lngCount As Long
Dim sngMaxLen     As Single
  Let sngMaxLen = ScaleWidth / 5
  With Label1
    If .Visible = False Then
      Let s_lngCount = 0
      Let .Caption = ""
      Let .Visible = True
    End If
    Let .Caption _
      = Mid$(c_strMsg, 1, s_lngCount Mod Len(c_strMsg))
  End With
  With Label2
    If .Visible = False Then
      Let .Visible = True
    End If
    Let .Width _
      = (s_lngCount * sngMaxLen / c_lngStep) Mod sngMaxLen
  End With
  Let s_lngCount = s_lngCount + 1
End Sub
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] CrystalReport formulas()

Spiego il problema
Ho un controllo crpt1 (CrystalReport), unico in tutto il programma
Ho due report
1) ElencoDomande
2) ElencoOfferte
In entrambi i report ho un campo formula vuoto (con lo stesso nome per i
due reports) che alimento da codice in fase di stampa
Ora, stampo ElencoDomande
crpt1.ReportFileName =App.Path & "\ElencoDomande.rpt"
crpt1.Formulas(0) = "Agenzia ='nome dell'agenzia '"
crpt1.Action = 1
    tutto OK
Se stampo ElencoOfferte con la stessa procedura:
crpt1.ReportFileName =App.Path & "\ElencoOfferte.rpt"
crpt1.Formulas(0) = "Agenzia ='nome dell'agenzia '"
crpt1.Action = 1
    tutto OK
Se ristampo ElencoDomande con la stessa procedura:
crpt1.ReportFileName =App.Path & "\ElencoDomande.rpt"
crpt1.Formulas(0) = "Agenzia ='nome dell'agenzia '"
crpt1.Action = 1
    mi viene restituito l'errore: 20509 "Nome di campo non valido".
Come č possibile ??
Non so piů cosa fare..sono bloccato
Qualche idea ?
Grazie anticipatamente
Maurizio B.
--
Posted from 
rachel.anthesi.com
 [195.32.118.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Bah!
Ho provato a rifare come dici tu, ma non succede nulla.....
Ci sarà qualcos'altro che non và.
Prova a fare una prova nuda e cruda con:
due pulsanti command uno con il primo codice  e l'altro con il secondo
codice poi  2 report COMPLETAMENTE VUOTI e SOLO la formula che vuoi provare
e vedi come va.
Saluti

due reports) che alimento da codice in fase di stampa
Ho come il presentimento che tu, nel secondo report che chiami, inizialzzi,
oltre ad @Agenzia, anche una seconda formula, Es Formulas(1)='Cheneso = 1'
Allora, in questo caso, devi sapere che CR non riesce a capire che
Formulas(1) va azzerata la volta successiva !
Se inizializzi una formulas, la devi azzerare, se non vuoi che poi ti dia
fastidio agli altri report che chiami:
crpt1.ReportFileName =App.Path & "\ElencoDomande.rpt"
crpt1.Formulas(0) = "Agenzia ='nome dell'agenzia '"
crpt1.Formulas(1)= ''
crpt1.Formulas(2)= ''
...
crpt1.Action = 1
Spero di averci azzeccato, perchè aiutare il proprio Nick-Omonimo fa ancora
più piecere
Ciao
   Maurizio B.

Newsgroup: it.comp.lang.visual-basic
Titolo: Connetersi / Disconnettersi

Volevo sapere se c'era un comando per far partire la connessione di
internet.
E anche un comando che la chiuda.

Dai un'occhiata sul Sito Comune per un articolo
Su MS VB Site per un OCX
Tra poco uscirà la versione aggiornata dell'articolo....
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
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare l'elenco dei task attivi

Esiste il modo di elencare i task attivi (quelli visibili premendo
CTRL+ALT+CANC)? Grazie

CTRL+ALT+CANC)? Grazie
Sito Comune
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Studio Installer

Dove trovo un po' di documentazione su Visual Studio Installer?
Non ci capisco un tubo!!
Simo

...


Non ci capisco un tubo!!
Strano, io ho scaricato il file VSINSTAL.CHM insieme all'installer
stesso dal sito M$ o_O
Quello che non sono riuscito a capire e' da dove prendere il _Windows_
Installer al quale di appoggia il suddetto VSI... :\
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it

Newsgroup: it.comp.lang.visual-basic
Titolo: piccolo aiuto su strighe

Vi chiedo un piccolo aiutopreciando che  non sono un programmatore.
Vorrei realizzare uan macro con word (o codice vb) che faccia questo:
partendo da questa stringa---->   caselle "W:W15,K11,K10:BK23,02,04,07. "]
dove la prima W: per il momento non ha importanza
vorrei leggere i singoli dati separati da virgola ed assegnare ad ognuno di
questi una variabile per poterli richiamare tenendo distinti quelli
preceduti da K)
appena incontro i due punti accendo una variabile e faccio la stessa cosa
assegnando ovviamente altre variabili
grazie


cerca la funzione Split() nell'help di vba
--------------------------------
Inviato via 
http://usenet.libero.it

 Mentre navigavo in questo oceano di scienza mi imbattei in questo quesito
posto da  yronium  --->mail  
y...@yy.it
  <---
 Che  Scrive :

tale funzione l'ho trovata ma non capisoc come assegnare ad esse i diversi
valori che leggo


Dunque:
    Dim str as String, strArr() as String
    str = "W:W15,K11,K10:BK23,02,04,07. "
    strArr() = Split(str, ",", -1, vbTextCompare)
adesso strArr() contiene:
strArr(0) = "W:W15"
strArr(1) = "K11"
strArr(2) = "K10:BK23"
strArr(3) = "02"
strArr(4) = "04"
strArr(5) = "07. "
per maggiori informazioni devi studiare bene l'help

Newsgroup: it.comp.lang.visual-basic
Titolo: OCX TIMER...

Ho bisogno urgentemente din un OCX Timer più efficente di quello fornito da
visual basic... qulcuno può aiutarmi??? Per favore Grazie...

penso ..che...come detto nel tuo Thread di stamane....ti tocchino le API!
Ciao SIMO
--
__________________
www.sasim.cjb.net


Non so usare le API come faccio?

 Non so usare le API come faccio?
C'e' un esempio sul CD di VB !
ciao
	maxx

 ha scritto nel messaggio news:9ng5o1$jko$1...@nreada.inwind.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Return to href position in html form after partial post?

Hi,
Have several sections in an html form and would like to post info at
several different points, not just at the end. When post occurs, the
form returns AT THE TOP of the form.  Is it possible to go back to the
point of posting? (I assume using an href id or something)...any code
would be lovely.
Many thanks!
Kathy
p.s. I also posted this at javascript group (although I know more
about vb)...


 Have u try to use the bookmark in the page?
Bye
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: MsComm32 e W7-64   problemi

Salve
ho un vecchio programma in VB che usa la seriale per scaricare dei logs da
diverse macchine.
La prima versione di questo sw l'ho fatta in QuickBasic 3 sotto DOS, ho
incorporato poi le vecchie versioni in VB5 continuando ad aggiornarlo e il tutto
ha funzionato senza problemi fino ad oggi.
 
Adesso ho un problema su un portatile da un cliente con W7-64 che da
saltuariamente l'errore 8020, ho provato qui e sulla porta fisica funziona,
mentre sul convertitore USB-RS232 a volte va in errore.
 
Naturalmente ho scaricato i driver aggiornati per W7-64bit, ma non serve.
 
Ho anche provato con un modulo che evita l'uso di MsComm mediante le API
http://www.thescarms.com/vbasic/CommIO.aspx
 
pensando che ci fosse qualche incompatibilit� con l'ocx, ma il problema
persiste.
 
La stessa Ms conosce il problema
 
http://support.microsoft.com/kb/841700
 
http://support.microsoft.com/KB/318784
 
 
ma non da delle soluzioni.
 
 
Forse avrei risolto con questo OCX:
 
http://comm32.com/index.html
 
 
ho scaricato la versione trial e qui sembra che vada, ho inviato una versione al
cliente e aspetto risposta.
 
Esiste per caso qualche altra strada da percorrere, magari con una DLL free?
 
Non suggeritemi di rifare il programma in .net, c++ o python, a parte il tempo
che non ho e che non mi pagherebbe nessuno, non avrei nemmeno la possibilit� di
testarlo adeguatamente su tutti i tipi di macchine che sono fuori.
 
 
 
 
--
ciao
  Stefano

news:e067k75lc9cba6ulm...@4ax.com...
Non suggeritemi di rifare il programma in .net, c++ o python, a parte il 
tempo
che non ho e che non mi pagherebbe nessuno, non avrei nemmeno la possibilità 
di
testarlo adeguatamente su tutti i tipi di macchine che sono fuori.
...
Non avresti tempo neanche di farti una dll visibile a COM (usabile quindi in 
VB6) tramite .NET?
Forse e' la soluzione piu' semplice.
Altre dll non ne conosco, mi spiace

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] find

devo eseguire una ricerca su una tabella di nominativi.
Ho notato che il metodo FIND va in errore se nella stringa di confronto
c'è un apostrofo (es. RsClienti.find "Nominativo=' " & "D'AMICO GIOVANNI" &
" ' ").
Ho pensato di risolvere con un confronto sequenziale record per record.
Questa soluzione, pero', non mi sembra eccezionale !!!
Qualche suggerimento ?
Grazie
BluPegaso

 ha scritto nel messaggio
news:9q9qsd$kbn$1...@lacerta.tiscalinet.it...


 ha scritto

d''amico
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto per grafica

Ho bisogno di acquisire informazioni riguardanti il colore da un immagine
acquisita da scanner. Il mio problema è che devo identificare zone con lo
stesso colore ma queste zone che ad occhio umano sembrano omogenee in realtà
sono composte da pixel di diverso colore, ringrazierei molto chi potrebbe
aiutarmi.

Se i colori sono tanti (milioni), la faccenda è ovvia.....
Dovresti prenderti un range...inanzi tutto devi scomporre il colore che ti
trovi in RGB e lo puoi fare con questa func...
Public Type RGBCOLOR
    r As Byte
    g As Byte
    B As Byte
End Type
Private Type RGBC
    lnRGB As Long
End Type
Public Function tToRGB(ByVal nRGB As Long) As RGBCOLOR
    Dim RgbFull As RGBC
    RgbFull.lnRGB = nRGB
    LSet tToRGB = RgbFull
End Function
quindi dopo aver trovato i rispetti valori in rgb puoi controllare che siano
compresi (tutti e tre) dentro un intervallo per esempio 10 (ricorda che il
massimo valore è 255) ed eccoti trovate tutte le zone con un colore
"uguale"... 8-)
-----------
Ciao
Sabba

 massimo valore č 255) ed eccoti trovate tutte le zone con un colore

Newsgroup: it.comp.lang.visual-basic
Titolo: Versione VB6 installata

Salve a tutti, ho installato vb6 su windows7 pro a 64 bit
C'č un modo per sapere se ho installato il service pack 6 o un altro piů 
antico, oppure se ho solo la versione iniziale ?
 
 
Birddog 
 

 
Te lo dovrebbe dire direttamente lo splash screen iniziale (una scritta "SPxx" in basso a destra se ben ricordo, o nulla se hai la versione liscia)
 
Altrimenti la solita finestra 'about...'

 antico, oppure se ho solo la versione iniziale ?
 
Beh, se non lo sai tu... a occhio direi che uno se ne
accorge da solo, di star installando un Service Pack.
 
 
 
OK, la pianto di fare il finto tonto :-). Hai scaricato
un VB6 craccato (e probabilmente virato, ma ï¿œ un problema
tuo) da emule, torrent o giï¿œ di lï¿œ, giusto ?
Quelli sono tutti in versione base, per il semplice motivo
che non esistono versioni di VB6 con l'SP integrato.
 
*****************
Quello che mi chuiedo ï¿œ: ma chi te lo ha fatto fare,
quando c'ï¿œ 
VB.NET
 che anche nella versione gratuita
ï¿œ molto piï¿œ potente, ed ï¿œ utilizzabile anche per scopi
commerciali ?
 
Avrebbe un senso se uno dovesse per forza far manutenzione
ad un vecchio programma di cui ha i sorgenti ma non
l'ambiente di sviluppo, ma uno capace di fare una cosa
del genere non dovrebbe avere problemi a capire che
versione di SW usa.
 
*****************
 
OK, filippica terminata. In breve, se intendi continuare
col VB6, scaricati il SP6 e fallo girare.
http://www.microsoft.com/it-it/download/details.aspx?id=5721
 
(scegli la versione della stessa lingua del VB, ovviamente)
 
Poi dovresti aggiornare gli OCX alle versioni piï¿œ recenti,
ma ï¿œ un'altra storia... Per quel che ne so, l'ultima versione
dovrebbe essere questa:
http://www.microsoft.com/it-it/download/confirmation.aspx?id=30505
 
 
Bye, G.

 Bye, G.
 
 
Allora ho dovuto per forza scaricare un vb6 craccato appunto perchè come
dici tu
non ci sono versioni in giro anche legali sia base o con l'sp integrato e
Microsoft un' ambiente di
sviluppo così vecchio non te lo fa piu acquistare neanche on-line.
Poi lo zip che ho scaricato non aveva nessun virus.
 
Ti assicuro che sono capace di usare vb6 anzi forse lo conosco meglio
di 
vb.net
 un ambiente di sviluppo che mi è sembrato piuttosto lentino come
interfaccia grafica
(nei controlli piu complessi bisogna usare il doppio buffer per avere un pò
più di velocità ) forse perchè non è nativo come il primo.
Sicuramente ha molte funzionalità che in vb6 non ci sono però spesso in .net
ho dovuto usare p-invoke
(le api native) per risolvere il problema che avevo.
Cmq ho installato vb6 perchè la maggior parte dei programmi che ho fatto li
ho scritti con questo linguaggio e poi perchè come ho detto prima come
interfaccia grafica mi sembra più veloce di .net
Cmq vb6 su win7 mi funziona bene anche senza service pack. E' solamente un
pò lento lo spostamento dei controlli
nei form quando il tema aero è attivato.
 
Ciao
 
Antonio
Newsgroup: it.comp.lang.visual-basic
Titolo: filelistbox

Come sapere se in un control
filelistbox non sono ci sono elementi.
Bye Rocco


Utilizza la proprietą ListCount se č uguale a zero non ci sono elementi
Ciao Bruno

Newsgroup: it.comp.lang.visual-basic
Titolo: mscomm.vbx

Ho un problema nell'usare il componente mscomm.vbx che mi serve per una
applicazione che deve gestire la RS-232. Su qualsiasi computer con Windows
98 installato, ogni volta che inserisco la vbx mi dice che non ho la
licenza, mentre cio' non accade con Win95. Come posso ovviare al
problema????
Grazie

...

In teoria il problema te lo dovrebbe dare solo in interpretato, mentre
l'eseguibile finale dovrebbe sempre funzionare correttamente.
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

 wrote in message
87nq12$65o$1...@lacerta.tiscalinet.it...


Infatti č cosě, ma ovviamente senza il sorgente l'eseguibile non esiste.
Se esegui l'installazione dai dischi originali del VB3, va tutto a posto,
fai il programma, lo compili, e poi lo distribuisci insieme alla vbx.
Non capisco dunque qual'e' il tuo problema.. . . se non qualla di avere
un'installazione di VB pirata o semplicemente mal fatta.


 wrote in message
87q2of$18h$1...@lacerta.tiscalinet.it...


 Il mio problema è che ho il VB5 e non il VB3.
Ci siamo scambiate diverse mails qui sul NG, e tutt'ora NON HO CAPITO UN
TUBO della tua situazione!!!!!
(forse mi sto agitando + io a risolvere il tuo problema di quanto non stai
facendo tu)
Ettore Maronese
By -MES-
http://www.maronese.com/mes

 wrote in message
87s9ov$rh1$1...@pegasus.tiscalinet.it...


Ciao e grazie dell'attenzione.
Tu hai VB5? e che centrano le VBX con ... .. ammenoche'... . . . .
Temo di aver capito una cosa, tu scrivi VBX ma intendi OCX!!!!!
Le VBX le usava il VB3, il VB4/5/6 usano le OCX.
Quindi VB3 non e' mai centrato nulla !
Come tentativo; cerca in tutto il CD di VB5 i files *.reg.
A memoria ce ne dovrebbero essere pochi. Ce ne uno, di cui non ricordo il
nome, che se usato forse ti risolve il problema.
Haime' qui ho solo VB6 e non posso rintracciarti il file.


 >non ci agitiamo, non č un problema grave. Il fatto č che avendo io

Newsgroup: it.comp.lang.visual-basic
Titolo: INET

Sto impazzendo....
Non riesco a trasferire il contenuto di un file di testo verso un web 
server, facendo delle prove funziona tutto bene se strTesto � meno di 45 KB, 
mentre se � maggiore il server non riceve nussun valore per la variabile 
'pippo'.
Dove sbaglio?
Che voi sappiate non � che il controllo Inet con POST abbia un limite di 
trasferimento di 45 KB e quindi il file lo devo trasferire a blocchi?
Grazie.
Dim strURL As String
Dim strTesto As String
strURL = "
http://www.miosito/test.php
"
strTesto = "pippo=" & contenuto di un file di testo di circa 100 KB
Inet1.Execute strURL, "POST", strTesto, "Content-Type: 
application/x-www-form-urlencoded" & vbcrLf
Do
DoEvents
Loop until Inet1.StillExecuting = False 

 
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

ho gi� guardato le impostazioni dei limiti sul server ed arrivano a 18 Mega 
!
Cmunque provando a fare l'invio di un file da 1 mega ho visto che Inet 
"lavora" per pi� tempo rispetto a 45 KB e quindi il controllo invia tutti i 
dati anche di file pi� grossi.
Continuer� con le prove, spero di riuscirci....
Ciao

Risolto:
La sf....ortuna ha voluto che nella stringa di testo utilizzata per la prova 
al 45.000 carattere c'era una & che spezzava la stringa.
Saluti

 wrote in
news:4af181e1$0$690$
5fc...@news.tiscali.it
: 

su asp:
server.urlencode(stringa)
prende la stringa e la codifica in modo da evitare casini come quello che 
hai descritto
probabilmente riesci a trovare qualcosa di analogo anche in vb.


Ho fatto un controllo dei caratteri ASCII che non vengono processati come 
parte della variabile inviata con il metodo POST sono:
"  '  \  &
Questi 4 caratteri bisogna convertirli con la funzione asc(), una volta sul 
server bisogna ripristirare il carattere con la funzione inversa ovviamente 
del linguaggio server.
Spero di essere utile ad altri cos� non perderanno tutto il tempo che ci ho 
messo io!
Saluti
Newsgroup: it.comp.lang.visual-basic
Titolo: Wave o MIDI: come li suono?

Vorrei inserire nella mia applicazione un suono in apertura della stessa.
Come devo fare?
Qualcuno mi puņ postare un esempio? (Penso siano poche righe).
Ciao Franco


Hai due modi per suonare i wave ;
Puoi utilizzare l'oggetto distribuito con VB o utilizzi una api di questa ti
dò un esempio
dichiara la seguente funzione
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal
lpszSoundName As String, ByVal uFlags As Long) As Long
ed aggiungi il seguente codice alla form load
  sndPlaySound app.path & "\miowavw.Wav", 0&
ciao guido

 dň un esempio
