mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Bloccare Finestra e Picture Box VS Image

Salve a tutti, due domandine facili facili :)
1) Vorrei aprire una nuova finestra lasciando la vecchia (la
principale) in background pero` bloccandola, in modo che non ritorni
attiva senza aver prima chiuso la seconda finestra aperta, come posso
fare ?
2) Che differenza sostanziale c'e` tra la Picture Box ed una semplice
Image ?
Grazie.
-- 
Vota la CFV per la creazione it.arti.musica.metal (vedi it.news.votazioni)
  Giovanni Daniele Ferrero aka GDF   -*#|#*-    Metal Will Never Die
Manga & Anime : 
http://www.tempolibero.com/user/gdf/
   UNDER CONSTRUCTION
  ADAM - Associazione Difesa Anime & Manga 
http://www.adam.eu.org/it/
     IAFOL: It.Arti.Fumetti On Line: 
http://dergano.ibn.it/iafol/
Un'ex Fidonettaro (Manga.ita e Cartoni.ita) - Geniere del GEDAM e GEDAR

Image ?
La piuctureBox è, oltre cha ad un visualizzatore di immagini, anche un contenitore di altri controlli (come il frame,
per intenderci).
Ad esempio, se devi nascondere contemporaneamente 20 controlli, o imposti la proprietà .visible=false uno per uno,
oppure li inserisci in una picture e fai semplicemente picture1.visuble=false
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

In questo modo Form2 è di scelta obbligatoria.
Sei sicuro ? Mi da sempre un errore di compilazione :-(


>Sei sicuro ? Mi da sempre un errore di compilazione :-(
hai VB6?
Io non ho VB6, ma mi hanno detto che con VB6 devi usare vbModal (se non erro) al posto di 1. Cerca conferma nella guida
in linea.


ma la soluzione č molto ma molto ma molto.... ORRENDA
Ecco, era proprio questo il problema, adesso funziona.
Grazie ragazzi! :)))


Newsgroup: it.comp.lang.visual-basic
Titolo: Come si può convertire in rtf un file doc?

Come si può convertire in rtf un file doc direttamente
da un programma VB?
Ciao

 ha scritto nel messaggio
news:Z6%86.221204$IP1.7...@news1.giganews.com...


 da un programma VB?
Un metodo molto semplice è ricorrere a Word:
Registri una macro che apre un file .doc e lo salva come .rtf (puoi farlo
molto velocemente con il registratore di macro), dopodichè non fai altro che
eseguirla dal tuo programma in VB.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET MdiChildForm e eventi Activated e Enter

Salve, dalla documentazione del framework .net ho letto che l'evento Enter è
stato soppresso per i form e quindi sostituito dall'evento activated, ma mi
sembra che questo valga solo per i form che non siano figli di un form mdi,
infatti in quest'ultimi l'evento Activated non viene invocato al contrario
dell'evento Enter. Perchè??? forso perchè i form figli di un form MDI
vengono considerati dei controlli? sono alle prime armi con il .net e non ho
ancora finito di leggere il manuale quindi è probabile che mi sia sfuggito
qualcosa.
Grazie per la vostra attenzione.

 infatti in quest'ultimi l'evento Activated non viene invocato al contrario
volevo dire negli altri, quelli figli :-)

Chiedo scusa se non posto questo msg in mail, ma l'email di d.i. è un
po' farlocca.... ^__^
Ho letto il tuo post riguardo la disabilitazione/abilitazione delle
interfacce di rete, ed avrei bisogno di un po' d'aiuto.
Mi puoi rispondere in mail?
grazie


Newsgroup: it.comp.lang.visual-basic
Titolo: Vi prego aiutatemi

Voglio fare caricare un file .exe esterno in un programma di VB che sto
creando...
come posso fare?
    Grazie a chiunque mi aiuti
    Inno

come posso fare?
Funzione Shell ... guida in linea oppure API ShellExecute !!!
Ciaps
Stracca
Newsgroup: it.comp.lang.visual-basic
Titolo: come indicare frame su pagina html

ciao,
sto provando a fare un programma per inserire dati in un form su internet,
ma ho dei problemi perchè la pagina è composta da tre frame ed il form è in
quella centrare mentre il tasto submit è in quella superiore (nella frame di
sinistra ci sono link non significativi).
il codice html della pagina è:
<html>
<head>
<title>glamboy page</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<frameset rows="*" cols="150,*" frameborder="NO" border="0"
framespacing="0">
  <frame name="leftFrame" src="/left_1.asp" frameborder="NO"
scrolling="AUTO" marginwidth="0" marginheight="0" noresize>
  <frameset rows="60,*" frameborder="NO" border="0" framespacing="0">
    <frame name="topFrame" src="/top_1.asp" frameborder="NO" scrolling="NO"
marginwidth="0" marginheight="0" noresize>
    <frame name="mainFrame" src="/home_1.asp" frameborder="NO"
scrolling="AUTO" marginwidth="0" marginheight="0" noresize>
  </frameset>
</frameset>
<noframes><body bgcolor="#FFFFFF" marginwidth=0 marginheight=0 topmargin=0
leftmargin=0 rightmargin=0>
</body></noframes>
</html>
mentre il codice visual basic che ho provato è:
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
form1.Caption = WebBrowser1.LocationURL
Set webdoc = WebBrowser1.Document
.................
If URL = "
http://www.nomeurl.com
" And counter = 1 Then
WebBrowser1.Navigate "C:\WINDOWS\Desktop\go.html"
End If
If URL = "C:\WINDOWS\Desktop\go.html" Then
Set webdoc1 = webdoc.frames.Item("mainFrame")
With webdoc1.forms(0)
   .txttitoloCD.Value = "prova"
  .submit
 end with
ma ricevo sempre un errore per oggetto non supportato in corrispondenza del
comando With webdoc1.forms(0)
dove sbaglio? ho provato ha cambiare l'index della proprietà form (0,1,2,3)
e della proprietà frame (0,1,2,3) ma senza ottenere nulla
qualcuno mi può aiutare?
Grazie
Davide


  Perchč non provi a gestire il tutto dalla pagina html?
 Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

> qualcuno mi puň aiutare?


 Set webdoc1 = webdoc.frames.Item("mainFrame")
 
  Set webdoc1 = webdoc.frames("mainFrame").Document
 Cosě dovrebbe andare meglio!
Ciaooo


 la notte (il sito č della mia azienda).
   Ah vabbč niente allora...Ciaoo
 
P.S.
  Piů giů c'č la soluzione al tuo prob.


 Così dovrebbe andare meglio!


 ciao
 Password?
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: combo forms 2 (in seguito alla risposta data da pal)

Salve a tutti
ho letto la risposta di "pal" "commandbutton... che brutta sorpresa..." di
giovedě 28 giugno 2001 18:04 , di seguito uno stralcio;
"i forms 2 non sono distribuibili. devono gia' esserci sul pc target.
basare un vbp su di loro mi sembra un suicidio";
Attualmente sto utilizzando una combo ,di Microsoft Form 2.0, dove č
possibile costruire piů colonne; dal tono della risposta mi sembra di andare
incontro ad un brutto guaio. Ancora nesssun problema, salvo per rare volte
che devo cliccare piů volte per copiare la selezione nelle caselle di testo.
I problemi li dovrei incontrare in fase di creazione del pacchetto di
installazione o in quale sequenza ?
grazie
giuseppeD

 grazie
non ho capito bene, hai detto che stai usando un combo preso da MS Forms 2.0
??
in pratica non hai il diritto di distribuire quei componenti, tutto qui.
cioe, puoi usarli per fare un programma per te, che resti sul tuo computer,
oppure devi essere sicuro che sul computer del cliente già ci sono, ma se
non ci sono non ce li puoi mettere tu...
che poi nessuno se ne accorge (perche MS Forms sta dappertutto) è un altro
paio di maniche... ::))))))
MarioH

 ha scritto nel messaggio
news:9hi2cv$e9a87$1...@ID-70152.news.dfncis.de...

Ti ringrazio della risposta , mi sembra di aver capito che l'utilizzo non
comporta effetti collaterali.
Da qualche parte è scritto che la distribuzione , se non ci sono nel
computer , è illegale. Non sono riuscito a trovare questa indicazione ,
evidentemente sono stato poco attento.
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Togliere dei caratteri da una stringa.

C'è una funzione in vb6 che trova ed elimina tutti i carratteri che
corrispondono alla variabile passata.?

corrispondono alla variabile passata.?
Scusa?
Qualcosa tipo
A = "ciao, come stai?"
MyFunc(A) = vbNullString
E a che servirebbe?

 wrote in message 8da89a$j3p$1...@nslave2.tin.it...



prova con REPLACE:
Replace("Ciccioli", "c", "")
il risultato è "iioli"
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
Newsgroup: it.comp.lang.visual-basic
Titolo: dll e errore di run-time 430

salve,
uso Visual Basic 6 con access 2000 e ho fatto un programma
che usa alcune dll...
il problema consiste in questo:
il programma prevede una certa sequenza di operazioni
per cui l'EXE principale chiama cerca1.DLL che a sua volta chiama
cerca2.DLL che a sua volta chiama cerca3.DLL...
purtroppo quando cerca2.DLL chiama cerca3.DLL mi viene dato questo
errore:
Errore di run-time 430:
La classe non supporta l'automazione o l'interfaccia prevista.
il fatto e' che se io apro il sorgente di cerca2.DLL e lo eseguo da VB
tutto funziona bene...
mi viene il dubbio che il problema possa essere che i riferimenti a
cerca3.DLL
sono 2 (l'EXE principale e cerca2.DLL)...
ho provato a compilare tutte le DLL sia con Apartament-threading che a
thread singolo
ma niente...
vi prego, QUALCUNO HA QUALCHE IDEA ?
grazie mille a chiunque mi sapra' dire qualcosa
Leo

 sono 2 (l'EXE principale e cerca2.DLL)...
Esatto.
Quando ci sono questi incroci devi ricompilare tutto dal riferimento
ricompilato in su: prima il riferimento più basso che ha subito modifiche
(cerca3), e man mano gli altri risalendo (cerca2, exe).
Questo anche se VB non rompe la compatibilità tra le versioni (comp.
binaria), sempre e comunque se non usi compatibilità.
Ciao

 ha scritto nel messaggio
news:3ce2...@news.cis.it...


 un bacio sentito :-)
Facciamo una stretta di mano :)
P.S.: sicuro di chiamarti Leonadro?
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: campo non abilitato colorato

ciao
e' possibile avere una textbox non abilitata (enabled=false) e
contemporaneamente con l'eventuale testo avente un colore diverso dal grigio
di default?
ho provato con forecolor ma non funziona...
grazie
teo

 colore diverso dal grigio di default?
Puoi usare Locked = True, invece di Enabled = False.
In ogni caso considera che il risultato grafico può essere fuorviante per
l'utente.
Ciao
*Roby*

 ha scritto nel messaggio

Una soluzione puo' essere mettere la textbox in un frame senza bordo e
di disabilitare il frame invece della textbox.
Lokar

Newsgroup: it.comp.lang.visual-basic
Titolo: mouse dragover

Ciao a tutti,
desiderei sapere come posso fare per poter adoperare il mouse fuori
dal form.
Vorrei usarlo per trascinare dei files da gestione risorse su di
un'area del form. Qui i files verrebbero aperti e scritti su di una
textbox.
Grazie mille.
Leo

Niente di più semplice:
Imposta la proprietà "OLEDropMode" della TextBox  a "1 - Manual".
E dopo aver trascinato il file sulla TextBox gestisci l'evento
"OLEDragDrop".
Esempio:
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As
Integer, Shift As Integer, X As Single, Y As Single)
    Dim strPercorsoFile As String
    strPercorsoFile = Data.Files.Item(1)
    ' A questo punto puoi fare quello che vuoi con il file dato che ne hai
ottenuto il path.'
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: ModBus

Ciao a tutti
Qualcuno mi sa dare delle informazioni su come fare ad interfacciare un
dispositivo che comunica con protocollo Modbus ad una applicazione VB ?
--
Giorgio Farinetti

Il protocollo Modbus puoi trovarlo nel sito:
www.modicon.com
Segui questo "itinerario":
"Site Map" -> "Support" -> Technical Publications" -> "Communications
Products" -> "Modbus Protocol"
Devi conoscere se il tuo dispositivo utilizza il protocollo ASCII o
RTU e la velocita' di connessione.
Dalla parte PC devi avere una RS232 (ovvio !) e se programmi in Visual
Basic devi utilizzare MSComm.
L'utilizzo di MSComm e' ampiamente descritto nel sito comune.
Ciao
Giuseppe


Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno lo sa ?

Vi prego AIUTATEMI !!!!!
Come faccio a far visualizzare solo determinati record di una tabella creata
con l'Access in una DBGRID (con istruzioni SQL) ????
Grazie e Ciao.....

 wrote in message
news:8kh14.1659$Q.1...@typhoon.libero.it...


 con l'Access in una DBGRID (con istruzioni SQL) ????
prima metti un controllo data, cui colleghi la griglia. qui, dbark e dbg.
poi:
Private Sub cmdSQLword_Click()
    On Error GoTo ErrMan
    If txtSQLword = "" Then Exit Sub
    Screen.MousePointer = 11
    strSQL = "SELECT * FROM ark WHERE text LIKE " _
            & Chr(34) & "*" & txtSQLword & "*" & Chr(34) & _
            " ORDER BY date, time, firm"
    dbArk.RecordsetType = 1
    dbArk.RecordSource = strSQL
    dbArk.Refresh
    DBG.ReBind
    Screen.MousePointer = 0
    Exit Sub
ErrMan:
    Screen.MousePointer = 0
    MsgBox Err & " - " & Error
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Stack - Cos'è ?

Sapete aiutarmi ???
Lavorando in Visual Basic 4.0, mi compare il seguente errore: "Spazio
dello stack esaurito" (l'errore viene visualizzato solamente dopo
varie operazioni), sapete di cosa si tratta ???
Grazie !!
Per rispondere togliere l'asterisco da *Mar...@WriteMe.com

Marzia wrote:

 Potrebbe essere generato da chiamate ricorsive a una funzione o
subroutine lo stack è un area di memoria che viene usata per il passaggio
dei parametri e per il salvataggio di altre informazioni appunto quando
si invoca una funzione o una subroutine. Controlla se  a causa di qualche
errore il tuo programma entra in un loop infinito...
Ciao
Mario
mil...@iperbole.bologna.it

varie operazioni), sapete di cosa si tratta ???
Verifica col debug quale funzione ha generato l'errore.
Se hai delle funzioni ricorsive, verificale tutte, vedi se i test in
ingresso ed in uscita funzionano correttamente (non fa male).
Se trovi quale è la funzione incrimintata guarda i paramentri che
passi, verifica se passi array grandi per valore etc etc etc.
Sicuramente il problema è generato da un paramentro passato in modo
non corretto, Ah approposito verifica attentamente i parametri che
passi ad eventuali API di WINDOWS.
Buona fortuna
--
                    Ciao ANdrea!
--                 Adeo pauperes erant ut unum tantum equum aberent communem
     __ o   
    _`\<,         Andrea 'Parsifal' De Previde Prato - 
a.deprev...@telecomitalia.it
 __( )/( )__    home page 
http://space.tin.it/libri/adeprevi
 

Lo stack č una specie di "pila" di dati che il tuo programma sta
utilizzando. Non mi addentro ulteriormente. Se ti ritorna "spazio nello
stack esaurito", probabilmente hai scritto una routine mandandola in loop,
oppure stai usando troppi parametri per una singola funzione.
mza...@iol.it

In parole povere lo stack è la memoria usata dalle variabili locali delle
funzioni, sia da quelle create esplicitamente che alcune create
automaticamente da vb ogni volta che si chiama una funzione.
Dato che la dimensione dello stack è finita, cioé non si ingrandisce
automaticamente se non c'è più spazio, è possibile che vb si inchiodi quando
si sono create troppe variabili.
I motivi più comuni sono 2:
la chiamata ricorsiva di una funzione, cioè una funzione che richiama se
stessa, direttamente o indirettamente, puoi vedere se succede questo con
ctrl+l dall'ambiente di debug nel momento in cui ti da l'errore;
l'utilizzo di variabili locali molto grandi, come dim x(10000) as long o dim
s as string * 30000 all'interno di una funzione; in questo caso devi creare
le variabili molto grande a livello di modulo o come variabili statiche.
Ciao, Stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: Internet (domanda cretina)

Come faccio in VB a fare in modo che premendo un bottone ci si colleghi al
sitto 
www.pippo.it
 ?
Ciao e grazie.

Metti questo in un modulo .bas e quindi chiama Navigate
Se lo metti in un pulsante devi fare cosě:
Navigate Me,"
http://www.murialdo.it
"
Navigate Me,"mailto:
seb...@hotmail.com
"
Navigate Me,"news://it.comp.lang.visual-basic"
' START-------------------------
Option Explicit
Public Const SW_SHOW = 1 'Dichiarazione costanti
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long  'Dichiarazione API
'**********************************************************************
'* Funzione utilizzata x richiama il browser o il mailer predefinito. *
'**********************************************************************
Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
    Dim hBrowse As Long
    On Error Resume Next 'Istruzione per evitare errori bloccanti.
    hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub
' END ------------------------------------------

ret = Shell("start 
http://www.pippo.it
", vbNormalFocus)
oppure
ret = ShellExecute(Me.hwnd,
vbNullString,"
http://www.pippo.it
",vbNullString,"c:\",SW_SHOWNORMAL)
Gianni Moretti
Newsgroup: it.comp.lang.visual-basic
Titolo: Difficile su MSHFlexGrid

Domanda difficile, soluzione forse impossibile.
Ho una griglia, supponiamo con 15 colonne, solo una parte di esse č
visibile. Trascinando la relativa barra orizzontale voglio che le
prime 3 colonne da sinistra restino ferme, e scorrano solo le
restanti!!!!!
Qualcuno si č mai posto il problema? Esiste qualche progetto su
qualche sito che tratta la quastione? Se qualcuno ha un indizio si
faccia avanti......
Grazie,
Giuseppe Greco 

 restanti!!!!!
Non potresti rozzamente simulare la cosa con due grid la prima delle quali
con tre colonne soltanto?


La TrueDBGrid della ComponentOne può fare proprio questa cosa ...
Saluti

Viva la TrueDBGrid,
ma quelle "piů povere" come fanno?  :-))
Giuseppe Greco


Il problema nasce se ci sono righe non visibili => compaiono le 2
barre verticali: come le gestisci? Se le rendi invisibili, le
proprietà .TopCell e .LeftCell non fungono più! Come risolvi il
problema dello scorrimento? Minchia che problemone!!!!
Giuseppe Greco

Newsgroup: it.comp.lang.visual-basic
Titolo: sendkey con Maius

in un evento KeyDown ho messo, tra le varie cose, un'istruzione sendkeys
"{EDN}", prche necessito di spostarmi automaticamente alla fine di un certo
testo.
il problema è questo: quando a questo evento io "accedo" per aver premuto
una combinazione di tasti contenente lo Shift, e lui esegue l'istruzione
sendkeys, mi seleziona tutto il testo, mentre dovrebbe invece solo
posizionarsi alla fine.
ho provato a mettere qualche doeventes sparso qua e la, ma ninte da fare...
coe posso risolvere il problema?
grazie
Mario

Io ti consiglio di non usare
        Call SendKeys("{END}")
ma piuttosto
        CasellaDiTesto.SelLength = 0
        CasellaDiTesto.SelStart = Len(CasellaDiTesto)
Prova e vedi se fa al caso tuo.
Gemini.


eheh purtroppo non esiste nessuna casella di testo :-)
ora sto usando non piu il msflexgrid (prima facevo cosě e andava bene), ma
un componente gratuito, il SC Grid, che NON ha un textbox identificabile e
individuabile... quindi devo per forza usare send keys...
Mario

Allora non ti resta che filtrare la pressione del maiuscolo
        If KeyCode = vbKeyShift Then Exit Sub
        ...
Provaci, questa dovrebbe funzionare.
Gemini.


ma cosi poi non va alla fine della stringa, come dovrebbe, e quindi l'utente
clicka una lettera e si trova in mezzo alla parola...
cmq ho risolto. se c'č lo shift premuto, lui ripete l'ultima lettera
digitata... :-)
č una soluzione sporchissima ma funziona...
Mario

Ho riletto il tuo messaggio. Non avevo ben afferrato il problema!
Prova a settare manualmente Shift = 0.
Non ne sono sicuro ma potrebbe cambiare lo stato di pressione di Shift.
Č solo un'ipotesi, perň puoi provare.
Gemini.
Newsgroup: it.comp.lang.visual-basic
Titolo: Icone e bitmap

Problema: mentre creo dinamicamente un menu popup vorrei anche impostare
delle bitmap accanto alle voci di menu. Le voci di menu puntano ad
eseguibili, e dunque vorrei estrarre l'icona associata all'eseguibile in
questione e inserirla nel menu.
La funzione ExtractIcon mi restituisce l'handle di un'icona, che pero' non
posso passare a SetMenuItemBitmaps - credo ci voglia l'handle di una bitmap.
Come faccio a 'trasformare' l'icona in bitmap in modo da poterla usare? E,
soprattutto, e' il modo giusto di fare una cosa del genere?
Grazie per ogni aiuto...
TBlack

"BlackMan" <NOS...@NOSPAM.NOSPAM> ha scritto

"tblack" sembra un oscuro componente delphi :))
a usta direi, metti l'icona in un picbox nascosto e usa la sua propr picture
o image (non mi ricordo mai). non so se vb e' il piu' indicato: guarda
quanto tempo ci mette gestione risorse in una dir con molti exe...

Se si può caricare l'icona in una picture/imagebox, potresti
poi fare savepicture imagebox.picture, "c:\immagine.bmp"
BlackMan <NOS...@NOSPAM.NOSPAM> wrote in message
etGR5.87168$BF.31...@news.infostrada.it...


Grazie per le risposte..
Sono riuscito, passando per un paio di picturebox, a fare quello che volevo,
ma:
* la funzione SetMenuItemBitmaps prevede bitmap di 13x13, e comunque
l'immagine e' un po' "deteriorata";
* con ModifyMenu l'intera riga diventa una bitmap.. dunque niente voce di
menu.
Cercando in giro ho realizzato che, probabilmente, quello che mi serve e' un
menu di tipo MF_OWNERDRAW.. che non so ancora come creare. Se vi vengono in
mente esempi o link, ben vengano!
Grazie comunque..
TBlack

Ciao!
Sul mio sito Internet, nella sezione "Controlli utili a tutti", puoi trovare
un OCX freeware che mostra come inserire icone nei menu, in modo da creare
menu in tutto e per tutto simili a quelli di Office 97/2000.
--
Marco Minerva, 
vbco...@libero.it
http://www.marcominerva.com
"BlackMan" <NOS...@NOSPAM.NOSPAM> ha scritto nel messaggio
news:9GZR5.94701$BF.34...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e Tipi di Dato Access

Secondo voi è possibile da VB5 sapere qual'è il tipo di dato di un
certo Campo di una tabella Access?
Lo so' è una domanda strana, ma ... può essere utile!
THANKS

...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Listview: recuperare Tag via API

In un Listview di tipo Report ho utilizzato una routine che fa uso delle
API che mi permette di ordinare le righe.
Come sapete una controindicazione di questo metodo e' il fatto che cio'
che viene visualizzato e' diverso da cio' che e' memorizzato nella
Listview di "VB".
Poiche' ho memorizzato alcune informazioni nella proprieta' Tag delle
singole righe (listitem) mi serviva potere accedervi nell'ordine
corretto, ma non riesco a capire dove venga memorizzata l'informazione
contenuta nel Tag. 
Qualcuno sa quale messaggio e' necessario inviare al Listview per
ottenere tale proprieta'?
grazie
	maxx

ottenere tale proprieta'?
Credo che la proprieta' Tag non sia del controllo, ma dell' interfaccia
VBControlExtender che vb "appiccica" a tutti i controlli.
ciao, hal

hal1961 wrote:

Lo temevo ...
Quindi faccio prima creando una colonna invisibile ...
Che strano che alla MS non pensino a certe funzionalita' banali, tipi 
l'ordinamento per data. Forse hanno problemi di budget ... ;-)
grazie
		maxx
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] programmare windows pocket pc

qualcuno sa indicarmi un sito dove trovo un esempio completo di come 
realizzare un applicativo per pocket pc che utilizza un database ?
grazie mille. a tutti. 

 realizzare un applicativo per pocket pc che utilizza un database ?
"Esempio" e "completo" sono due parole che non fanno bella figura 
insieme...
Comincia a dare un'occhiata qui:
Per eVB:
http://www.devbuzz.com/content/init_database.asp
Per il Compact Framework:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnroad/html/road10222003.asp
http://samples.gotdotnet.com/quickstart/compactframework/
 (sezione "Data")
...e ancora:
http://www.pocketpcdn.com/sections/ado.html
Ovviamente, è solo la punta dell'iceberg... il resto, lo trovi su Google.
Ciao
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiedo info su Listview

Come posso fare in modo che un campo selezionato perda la selezione se con
il mouse vado a cliccare sempre sulla listview ma nella parte bianca.
Scusate se non mi sono espresso bene.

 ha scritto nel messaggio
news:_vG%5.5714$5k3.2...@twister2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Conferma

Ho un problema con la seguente riga di codice in VBA EXCEL 97:
ActiveWorkbook.SaveAs FileName:=nome & ".prn",FileFormat:=xlTextPrinter,
CreateBackup:=True
Il problema è che se il file esiste già mi chiede conferma al
salvataggio e non riesco ad eliminare questa richiesta in nessun modo...
Ho guardato sul sito, nelle FAQ e su "VB e VBA in a Nutshell" ma
nisba...
Qualcuno mi sa aiutare?
Grazie anticipate
Enrico
PS
qualche consiglio bibiliografico per il VBA di Excel?

 salvataggio e non riesco ad eliminare questa richiesta in nessun
modo...
Controlla tu prima se esiste un file con quel nome (credo esista la
funzione DIR anche in VBA), in caso affermativo cambia nome al file.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!




 qualche consiglio bibiliografico per il VBA di Excel?
Uno solo, a parer mio: la "Guida di riferimento di Visual
Basic per Microsoft Excel". Dopo che l'avrai imparata a
memoria potrai finalmente capire cosa veramente intendevano
dire tutti quelli che hanno scritto, e continuamente scrivono,
le varie guide per principianti. Ma non avrai bisogno di
leggerle ne', soprattutto, comprarle.
Hai notato che l'ansia di apprendimento si esaurisce con
l'acquisto? Quando hai lo scontrino in mano ti senti gia` piu`
esperto. Per fortuna quasi nessuno legge quei libri: sai come
ci rimarrebbero male quegli acquirenti il giorno che, premendo
accidentalmente il tasto F1, si accorgessero che avevano gia`
tutto sottomano, anzi di piu`. Persino scritto (o tradotto)
meglio, talvolta.
--
Ciao.
Maurizio

 in caso affermativo cambia nome al file.
--
Ciao.
Maurizio
Newsgroup: it.comp.lang.visual-basic
Titolo: Manuale SQL

Sto cercando un manuale completo e ricco di esempi sulla sintassi dell'
SQL... Possibilmente gratis, possibilmente in italiano (ma potrei anche
comprarlo o leggerlo in Inglese)...
        Sapete dove indirizzarmi?
        Grazie...
            Allanon

 ha scritto

* r.k stephens et al., il manuale sql, mcgrawhill, isbn 88-386-0464-9, 65k.
[sql links]
directory listing di yahoo
http://clubs.yahoo.com/clubs/structuredquerylanguage
faq:
http://epoch.cs.berkeley.edu:8000/sequoia/dba/montage/FAQ/SQL_TOC.html
tutorial
http://www.geocities.com/ResearchTriangle/Node/9672/sqltut.html
altri siti:
ftp://ftp.idiom.com/pub/free-databases
http://www.contrib.andrew.cmu.edu/~shadow/sql/sql2bnf.aug92.txt
http://thebestweb.com/db/sqlrefs.asp
exe free per fare un po' di prove
http://www.lizardfoot.com/SQLTrainer/
altro tool per db da registrare ma free:
http://www.scm-consulting.co.uk
altri tool:
http://www.hughes.com.au/
http://stukenberg.com/toolbox/msql/

ho scaricato un doc Completissimo su DAO e SQL spiegato da DIO
non ricordo più il sito da dove l'ho preso era comunque il sito di un
frequentatore del NG
se nessuno ti risponde te lo posto in e.Mail
Fammi sapere
Ciao
max

>se nessuno ti risponde te lo posto in e.Mail
Scusa eh, ma postalo qui, che interessa anche a me. A me serve
qualcosa sulla sintassi SQL, li è spiagate bene? Daccelo a tutti...
Saluti, ciao ciao.

 max
Potresti renderlo disponibile al ng, visto che recentemente su xoom alcuni
volenterosi hanno inserito parecchia roba utile per vb. (pal, ci sei ?)
Ciao
Aldo

 volenterosi hanno inserito parecchia roba utile per vb. (pal, ci sei ?)
ci sono...
chissa' che ne pensa il "frequentatore del ng"

 chissa' che ne pensa il "frequentatore del ng"
Gli si chiede per favore di farsi vivo e s'aggiunge analoga noticina nella
pagina del dl?...
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 pagina del dl?...
"analoga" ?
:))

 > Maurizio Borrelli:

Si`, perche'? Non dirmi che era tanto che non la sentivi 'sta parola... Ma
chi frequenti?


 chi frequenti?
programmatori e burocrati...
avrebbero usato rispettivamente
"analogica" e "consimile"

 "analogica" e "consimile"
Eeh... i linguaggi settoriali!... Linguaggi di nicchia. Alla Natalino
Balasso, vista la falsa etimologia che accomuna analogo e analogico.


 Balasso, vista la falsa etimologia che accomuna analogo e analogico.
alla che ?

 fosse
significativo...


 significativo...
lo e', se hai presente il film
il locale lo seguo solo in tv, poco e niente.

 il locale lo seguo solo in tv, poco e niente.
Vedo. Ti sei perso quello che secondo me e` uno dei piu` bei personaggi
degli ultimi anni.


Newsgroup: it.comp.lang.visual-basic
Titolo: Esiste un pacchetto per comunicare con la seriale??????????

Esiste una "buona anima" che mi indicherebbe un sito o mi invia il programma
per utilizzare la Rs232 con VB6.0
Grazie  tutti
Yuri

 wrote in message
uoBi4.8318$h23....@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: PLC

Domandina facile facile: qualcuno programma PLC Siemens tipo S7-200 o anche
300?
Grazie mille.
Roby

 ha scritto nel messaggio
news:HJ7N6.657$4L6....@news2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: SQL: Come porto Max(field) -> txtText1.Text?

Nella tabella RichTestata di un db Access la chiave primaria è costituita da
due campi: nel primo (chiamato Anno) viene registrato l'anno corrente; nel
secondo (NrRich) un numero progressivo.
Sto realizzando un prg che permette, dallo stesso form, di consultare i
record esistenti del db selezionando da due controlli (una casella di
testo - txtAnno - e un dropdown - drpNrRich - rispettivamente) l'anno e il
numero di richiesta oppure, cominciando l'inserimento di dati negli altri
campi, permette di registrare un nuovo record assegnando al field Anno
l'anno corrente e al field NrRich il valore massimo esistente, incrementato
di 1, per l'anno corrente.
Per la ricerca dei valori ho impostato questa stringa SQL:
Sql = "SELECT Max(Anno), Max(NrRich) FROM RichTestata;"
Ho provato a lanciare questa query direttamente da Access e effettivamente
vengono sì recuperati i due valori che mi interessano, però vengono
"stivati" in due campi a cui è assegnato il nome di Expr1000 e Expr1001
rispettivamente, al che per me sono inutilizzabili in quanto dovrei riuscire
perlomeno ad assegnarli alle proprietà txtAnno.Text e drpNrRich.Text.
Per avere un'idea di cosa succede in seguito, questo è il sorgente:
            Sql = ""
            Sql = "SELECT * FROM RichTestata WHERE RichTestata.Anno = " &
Val(txtAnno) & " and RichTestata.NrRich = " & Val(drpNrRich) & ";"
            Set rsRich.ActiveConnection = cnAS400    'connessione al db su
AS400 collegato nel db Access
            rsRich.Open Sql, cnAS400, adOpenKeyset, adLockOptimistic
'apertura del RecordSet rsRich
            'pariamoci il xxxx: chiamata alla routine esterna che scrive i
valori di default in caso di campi vuoti [OMESSA]
            If rsRich.EOF Then    'se la query non ha trovato risultati
allora
                rsRich.AddNew
                rsRich!Anno = Val(txtAnno)                    'il valore
dell'anno corrente
                rsRich!NrRich = Val(drpNrRich)     'il valore massimo
esistente, incrementato di 1, per l'anno corrente;
'estratto dalla query e visualizzato anche in drpNrRich.Text, disabled
                [scrittura degli altri campi]
                rsRich.Update
            Else                                                      'la
query ha trovato dei risultati => il record esiste già! Controllare
                                                                        'la
chiave Anno+NrRich
                MsgBox "Attenzione: testata già inserita"
                Exit Sub
            End If
Per favore mi sapreste dare un'indicazione?
Grazie mille sin d'ora a chi si prenderà la briga di cercare di capire cosa
mi serve e proverà ad aiutarmi.
Alessandro
--
Private replays to 
not.to....@geocities.com
Remove "
not.to
."!!


Sql = "SELECT Max(Anno) AS ANNO, Max(NrRich) AS NRRICH FROM RichTestata;"
Così dai tu il nome ai campi.
ciao
ugo

 perlomeno ad assegnarli alle proprietą txtAnno.Text e drpNrRich.Text.
msgbox rs.fields(0).value
dove 0 č il primo campo
--
Fibia "Sakamoto" FBI
Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare righe vuote in un file word

Salve a tutti
Sto cercando un modo in VB6 per ricercare all'interno di un file word
tutte le righe vuote e cancellarle.
Vi ringrazio in anticipo per l'aiuto che mi darete.


In Word(VBA) potremmo fare così:
    Dim par As Paragraph
    Application.ScreenUpdating = False
    For Each par In ThisDocument.Paragraphs
        If Len(par.Range) < 2 Then
            par.Range.Select
            Selection.TypeBackspace
        End If
    Next
    Application.ScreenUpdating = True
Da VB puoi referenziare il tuo file di Word
ed utilizzare la sua libreria.
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

On 5 Giu, 16:59, "Mauro Gamberini"

Grazie della risposta
ho provato come dici te in vba ma una cosa mi sembra strana:
Il valore che assume par.Range è un quadratino quindi non
confrontabile con il valore 2 e esce subito dall'if quale può essere
il problema????

 tutte le righe vuote e cancellarle.
Accendi il registratore di macro, fai un 'sostituisci' di ogni 
occorrenza di due separatori di paragrafo con un solo separatore di 
paragrafo. Spegni il registratore di macro.
Inseriscilo in un loop in cui esegui il replace 'until' la ricerca di 
due separatori consecutivi non ritorni niente, e sei a posto.
Ciao
Alberto
-- 
Henry David Thoreau: L'uomo è tanto più ricco quanto meno costano i 
suoi piaceri.

Grazie della risposta
ho provato come dici te in vba ma una cosa mi sembra strana:
Il valore che assume par.Range è un quadratino quindi non
confrontabile con il valore 2 e esce subito dall'if quale può essere
il problema????
************************************************
Non lo so.
A me funziona(Word 2003).
Non ho provato da vb.


Mauro Gamberini ha scritto:

ho provato anche su word 2003 ma niente
Forse c'è stato un errore quando lo hai copiato....
se no non me lo spiego visto che ha te funziona...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VT.NET] Messaggio di errore con UBound

Public a() As String 'creo matrice
Dim b As Short       'creo variabile
b = UBound(a)        'inserisco lunghezza della matrice nella variabile
Messaggio di errore: "Il valore non può essere null"
Non capisco perchè mi dà errore.
Dove sbaglio?
Christian

 Dove sbaglio?
Dopo una notte a riflettere, ho capito che dovevo dimensionarla una 
prima volta prima di utilizzarla...
Christian
Newsgroup: it.comp.lang.visual-basic
Titolo: Componente VB

Salve,
qualcuno sa se esiste un componente (controllo) per VB che permetta di
sfogliare oltre ai dischi soliti del pc anche le unità di rete (risorse di
rete)?
Grazie.

prova su 
http://www.geocities.com/Wellesley/Gazebo/1513
Nello Gaudino ha scritto:



Devi divertirti un po' con le api..... se trovo un pezzo di codice che fa
questo magari te lo riposto.........
Ciao !

Newsgroup: it.comp.lang.visual-basic
Titolo: Salve a tutti

Come e' buona norma quando si comincia a frequentare un nuovo NG, mi
presento.
Mi chiamo Nino, sono di Matera, lavoro da molti anni nel campo della
programmazione passando attraverso svariati tools di sviluppo e approdato da
qualche anno a VB.
Spero di poter contribuire con la mia piccola esperienza ai quesiti che
verranno proposti.
A preso
--
Starman

verranno proposti.
Non hai che da scegliere... ci sono circa 250 post al giorno :)
Ciao

 qualche anno a VB.
Benvenuto :-)
Assa
--
Sito comune del NG: 
http://www.it-lang-vb.net/
http://digilander.iol.it/assatarram/index.html
 (nuova sezione vb ora
disponibile)

 wrote in message
9h74b7$799$1...@fe2.cs.interbusiness.it...


 ampliare la nostra!!  ;-))
Me lo auguro! :)
Per la verita', ero gia' passato da queste parti tempo fa, infatti sul sito
comune c'e' anche una mia piccola classe (Sysinfo) per la cattura delle
informazioni di sistema.
ciao
--
Starman

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini con controllo data, non va....

 
	Ciao, sentite questo.....
son riuscito a passare la password da un controllo data al file .mdb
che chiamo dal mio vb, pero' ora avrei questo problema..... il mio
mdb ha un campo con un'immagine bmp, associo dei textboxt agli altri
campi tramite il controllo data..... e va bene .... quando associo la
picture box al campo bmp ... niente .. si inchioda ....
	Perche' ?!
Grazie
Ciao
Primo

...

Prova a guardare l'esempio Imgdata.zip presente Sito Comune.
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

 scrive:


> son riuscito a passare la password da un controllo data al file .mdb

Newsgroup: it.comp.lang.visual-basic
Titolo: Select

    Data1.DatabaseName = ConTMP1
    Data2.DatabaseName = ConTORN
    '
    sql = "SELECT * FROM ARTICOLI "
    Data1.RecordSource = sql
    Data1.Refresh
    '
SE NON CI SONO RECORD VA IN ERRORE!
COME FACCIOA CONTROLLARE SE C'E' QUALCOSA?
GRAZIE.

 COME FACCIOA CONTROLLARE SE C'E' QUALCOSA?
If Not Data1.Recordset.EOF Then
...
P.S.: se puoi evita di usare i datacontrol.
Ciao 


if data1.recordset.recorcount < 1 then .....
-- 
Greg


Oltre ai validi consigli che ti hanno dato per risolvere il problema, tieni 
conto di altri due consigli:
1) usa subject migliori nei tuoi post; chi legge select potrebbe benissimo 
passare ad un altro post.
2) non scrivere in maiuscolo, equivale ad urlare.
Se puoi leggi il manifesto di questo NG e la netiquette. Grazie
Ciao, Vincenzo

 Ciao
Scusate a tutti... ero in blocca maiuscolo e anche un po rinco##
ho sbagliato pure l'esempio!!
in realtą sono in  "delete" ...
"delete * from TMPARTICOLI"
quindi cerca di cancellare dei record che  non ci sono.
scusate ancora.
Newsgroup: it.comp.lang.visual-basic
Titolo: Inverso di MOD?

Mi sa che probabilmente non e' fattibile, cmq chiedo ugualmente:
All'origine c'e' questo: Valorefinale(x) = (Valoreiniziale(x) + Codice) mod
255
Alla fine vorrei ricalcolare Valoreiniziale conoscendo solo Valorefinale e
Codice.
E' possibile? Se si, come?
In fin dei conti il mod non e' una funzione, quindi non dara' risultati
univoci...
Nel caso, stavo pensando anche ad una propagazione del resto di mod sui
valori successivi, il problema e' che se ad esempio codice e' 10000, anche
solo con due valori mi viene fuori una sequenza enorme...
Eventuali suggerimenti? :-)

 Codice.
Nun se po'. Puoi farlo solo entro certi limiti:
Caso 1:
-------
Valoreiniziale=146;
Codice=30;
ValoreFinale = (146+30)%255 = 176
Valore Iniziale = 176 - Codice
Caso 2:
-------
ValoreIniziale=220
Codice=35
ValoreFinale=(220+35)%255 = 0
Ecco... 0 lo ottieni con una mareeeeea di 'valori iniziali': se 
codice=35, ottieni valorefinale=0 per valoreinizale=220 o 477 o 724 e 
così via...
Oddio non ho studiato i moduli all'uni perchè mi ritirai prima, quindi 
non so quali siano i valori limiti sopra i quali non si può tornare 
indietro. Però so che ci sono, e lascio a qualcuno più esperto di me 
tale spiegazione.
-- 
Rivolterò il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starà nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 tale spiegazione.
Pensandoci su... se R = a%b, puoi riottenere a da R e b se a<b.
Nel tuo caso avevi:
R=(a+a')%b.
deve essere a+a'<b, e cioè a<b-a' o a'<b-a quindi dovresti avere 
valoreiniziale+codice<255, quindi valoreiniziale<255-codice o 
codice<255-valoreiniziale. Allora puoi riottenere valoreiniziale con 
certezza conoscendo codice. In caso contrario no.
Lapidatemi pure se ho detto delle fesserie :)


 Lapidatemi pure se ho detto delle fesserie :)
Nel caso lapidatelo voi, che io non c'ho capito una sega :-D

Ciao,
"Drizzt" scrive:

in pratica credo abbia voluto dire che potresti ottenere il valore iniziale
solo a condizione che il dividendo sia inferiore al divisore (risultato
della divisione = 0).
quindi ti ha implicitamente detto che il problema e' irrisolvibile se non
conosci anche l'intero risultante dalla divisione.
beppe

 conosci anche l'intero risultante dalla divisione.
Esatto :)


Newsgroup: it.comp.lang.visual-basic
Titolo: Corsi on line di programmazione Visual Basic

Impara a Programmare in VBA per Microsoft Access con i corsi on line
di programmazione Access. Impara secondo i tuoi tempi ed i tuoi ritmi.
Inoltre, corsi di Visual Basic ed SQL.
Inizio nuovi corsi il 22 Maggio.
Per informazioni, contattare 
fdif...@mclink.it




Newsgroup: it.comp.lang.visual-basic
Titolo: ?Come si ordina in dbGrid???

come si fa per ordinarre i dati a seconda del campo in un dbgrid???
grazie per l'aiuto
Ciao
C E S A R E

Ci ho provato anch'io: non sono riuscito a far nulla di meglio che
appoggiare la DbGrid su una query che contiene gli stessi dati della tabella
ma ordinati.
Se trovi una altra soluzione, per favore fammelo sapere. Ciao

Un metodo potrebbe essere il seguente:
presuppone che il dbgrid1 sia collegato ad un controllo data2 e che in SSQL
sia memorizzata un espressione "SELECT  ........ FROM TAB1"
Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
Dim SortStr As String
 SortStr = " ORDER BY [" & Data2.Recordset(ColIndex + 1).Name & "]"
  If vbCtrlkey Then
    SortStr = SortStr & " DESC"
    vbCtrlkey = 0
   Else
    SortStr = SortStr & " ASC"
  End If
  SortStr = SSQL & SortStr
  Data2.RecordSource = SortStr
  Data2.Refresh
End Sub
Ciao Marco
-- 
Remove xxx from E-mail.

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

Ciao a tutti!
In un form voglio che non sia possibile il ridimensionamento dello
stesso con il mouse senza pero' modificare la proprietà Borderstyle
come devo fare?? 
Grazie

 Grazie
Beh, con borderstyle=fixedsingle avresti risolto.
-- 
Emanuele Torrenti, Registered Linux User #409659
http://torrenti.altervista.org
http://www.sitolecchino.com/Emanuele.html

Vero ma mi toglie l apossibilità di ridurre ad icona proprietà a cui
non vorrei rinunciare

 non vorrei rinunciare
Qui (linux) non posso avviare vb6, ma so per certo che puoi fornire, in 
alto a dx, i pulsanti "riduci a icona" e "chiudi" e omettere 
"massimizza/ridimensiona".



Si lo sò ma posso ridimensionarla con il mouse ed è proprio questo
che voglio bloccare:
avete presente quando vai sul bordo della form e la freccia bianca del
mouse riventa una freccia nera bidirezionata?

diese...@tin.it
 ha usato la sua tastiera per scrivere :

Non si capisce granchè.
Se vuoi che non sia ridimensionabile, ma che sia minimizzabile, perchè 
non fai come ti ha detto Manuel, ossia metti il border a Fixed Single e 
poi abiliti solo il MinButton?
Se ci sono altri motivi che ti impediscono di farlo, dicceli, 
altrimenti si va avanti a tentativi a dirti una cosa per *poi* sapere 
che non ti va bene...
Alberto

 che non ti va bene...
Cacchio Scusate pensavo che l'attivazione di minbutton con borderstyle
a fixed Single non fosse possibile!!
Ora capisco e funziona pure come voglio.
Grazie ancora

Grazie ancora
Siamo contenti per te che funziona. ;-)
L'unica cosa che ti chiedo/chiediamo e di usare cortesemente dei subject 
attinenti all'argomento e non un generico "help", la prossima volta che 
tornerai a trovarci.
Grazie
Ciao, Vincenzo

 ha scritto nel messaggio 
news:V%VGg.78937$zy5.1...@twister1.libero.it...

..eh dai, non prendetevela subito, capirą la prossima volta: č un diesel ;-)
Ciao,
    Diego
Newsgroup: it.comp.lang.visual-basic
Titolo: disegno griglia

Una volta con il basic si poteva disegnare una griglia con due
istruzioni For...Next e Line
Adesso non capisco come si fa.
C'e qualcuno che mi aiuta ?
Francesco (novizio) . Grazie

Adesso non capisco come si fa.
Praticamente uguale :-)
Option Explicit
Private Sub Form_Paint()
    Dim x As Long, y As Long, step As Long
 
    For x = ScaleLeft To ScaleWidth Step 500
        For y = ScaleTop To ScaleHeight Step 500
            Me.Line (x, y)-(ScaleWidth, y)
            Me.Line (x, y)-(x, ScaleHeight)
        Next y
    Next x
End Sub
-- 
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Creazione file GUIDA con windows 95 in poi

Nella documentazione in linea di VisualBasic 5.0 si dice che nel
pacchetto professional e' incluso un compilatore di file di guida di
windows.
Ma che cavolo di nome ha?
Dove lo trovo?
E se, come credo, non c'e', dove posso trovarlo?
Grazie, Lorenzo
P.S. Ho urgenza di conoscere la risposta, potete mandarmela anche
E-mail?
Grazie di nuovo.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errore su Help Viewer 2.1

Salve a tutti,
installato visual studio community 2013.
Volevo spostare la cartella dell'help
sul disco secondario dal programma di
gestione dell'Help Viewer.
Non ho capito cosa non è andato a buon fine,
ma adesso quando apro l'help mi da errore
di file mancante o danneggiato.
Come posso ripristinare la situazione
di cartelle iniziale oppure controllare quale, secondo
lui, è la cartella usata in questo momento e
nel caso variarla?
Grazie
 
WS
 
-- 
O no ?
 
WS
 
 


http://msdn.microsoft.com/it-it/library/hh492077.aspx
 
 
ciao
stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: AddNew non ne posso piu' (jet)

Ho un grosso problema, che ho gia' esposto precedentemente;
Se due pc connessi in rete condividono lo stesso db, e acquisendo dati,
vanno ad aggiornare la stessa tabella aggiungendovi record si presenta
il problema e' che l' uno blocca l'altro facendo il lock della pagina,
e la gestione degli errori risulta fallimentare perche' ovviamente
il pc che trova la tabella lockata( presumendo che l'aggiunta dati sia
continua),
non riesce mai ad inserire i dati.
Il lockedits=false non funziona con il metodo addNew ma solo con
il metodo edit.
Qualcuno conosce la pozione magica per gestire questo problema.
Un ciao cordiale a tutti.

Un ciao cordiale a tutti.
Fai una routine di controllo errore (on error goto ...)
ErreBi
Newsgroup: it.comp.lang.visual-basic
Titolo: (vb6) inet e risorse

programma minimo, che in base a un timer controlla se c'e' qualcosa in una 
cartella, e non caso lo sposta in un'altra o lo manda in ftp e poi lo 
cancella.
funziona, ma mentre con lo spostamento fra cartelle non ci sono problemi, 
con l'ftp dopo qualche ora che va l'interfaccia di vista impazzisce, 
finestre e icone della barra scompaiono o si spostano, ecc, e l'unica e' 
almeno disconnettersi.
evidentemente chiudo male il controllo dopo averlo usato ogni volta e 
continua ad accumulare risorse.
ha qualcosa di simile a "set rs=nothing" ?
grazie, a.

 ha qualcosa di simile a "set rs=nothing" ?
 Inet1.Cancel
 Inet1.Execute , "CLOSE"
Uno dei due dovrebbe funzionare.
Comunque il controllo Inet per l'FTP mi ha *sempre* dato problemi.
Bye, G. 

 Comunque il controllo Inet per l'FTP mi ha *sempre* dato problemi.
lo usato almeno un paio d'anni per scaricare immagini col codice di
vb2themax, e non ho mai avuto noie. mi sento solo un po' scemo, avendo
toccato con mano che in 2008 le cose internet sono molto piu'
semplici. ma me l'ha chiesto un amico in tempi brevi, e non conosco
2008 abbastanza da fare presto una cosa robusta.
evidentemente, d'altronde, non conosco abbastanza neanche vb6 :))
ciao, a.

 vb2themax, e non ho mai avuto noie.
Dipende dalla connessione, se č instabile a volte l'Inet si pianta
senza errori e senza timeout. A me, eh... ma devo ammettere che
quel mio codice č cresciuto nel tempo come una pianta grassa.
A volte penso che si riproduca da solo mentre non guardo.
Bye, G.

 quel mio codice è cresciuto nel tempo come una pianta grassa.
difficile da maneggiare, intendi? :)
a prop, hai link per fare la cosa con winsock?
ciao, a.

 a prop, hai link per fare la cosa con winsock?
Non recenti.  A casa non tengo l'intera collezione di link
che ho in ditta, ma immagino che si possano trovare con
un 
http://www.google.it/search?q=winsock+ftp+vb
, o anche
http://www.google.it/search?q=wininet+ftp+vb
, spe'..
Intanto ci sono i classici esempi della KB MS:
http://support.microsoft.com/kb/175179
http://support.microsoft.com/kb/195653
Poi, uno è qui:
http://www.freevbcode.com/ShowCode.Asp?ID=1991
Uno era questo, o un codice piuttosto simile:
http://www.paradoxes.info/code/FTPClass.html
e naturalmente PSC e simili. Qui ne trovi una dozzina:
http://tinyurl.com/36kxd5
Bye, G.

 
http://www.google.it/search?q=winsock+ftp+vb
http://www.google.it/search?q=wininet+ftp+vb
in effetti mi era venuto in mente, poi mi sono detto:
perche' digitare? se faccio creare il link al papero devo solo
cliccare :)
grazie
ciao, a.

"Paperino"
novita'. oggi l'ho lasciato qualche ora sullo spostamento dir2dir, e anche 
senza inet vista e' impazzito lo stesso. mi sorge il sospetto che non 
gradisca il timer. per la prima volta in vita mia confido in xp. se anche 
lui da' i numeri, ho scritto codicemmierda :)
ciao, a.