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

Ciao ragazzi è da pochissimo che programmo in Visual Basic e avevo una
domanda da porvi, ho trovato questo esempio in interne, che simula il
blocco note, ecco il listato:
Option Explicit
Dim blnTextChanged As Boolean
Private Sub mnuApri_Click()
Dim strNomeFile As String
Dim strtesto As String
strNomeFile = InputBox("Inserisci ome  del file:")
Open strNomeFile For Input As #1
strtesto = Input(LOF(1), 1)
Close 1
txtFile.Text = strtesto
End Sub
Private Sub mnuSalva_Click()
Dim strNomeFile As String
strNomeFile = InputBox("Inserisci nome del file:")
Open strNomeFile For Output As #1
Print #1, txtFile.Text
Close #1
blnTextChanged = False
End Sub
Private Sub txtFile_Change()
blnTextChanged = True
End Sub
Quando salvo un file non me lo salva e quando lo apro non me lo trova e
viene fuori un messagio  che dice che non ha trovato il file, come mai?
Scusate per l'ignoranza e grazie a chi mi risponderà
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Scusate per l'ignoranza e grazie a chi mi risponderà
L'ignoranza di aver evaso ad almeno 2 o forse 3 regole fondamentali di
quelle documentate nel manifesto del NG, quello che ovviamente tu non hai
letto?
No, non sei scusato.

 ha scritto nel messaggio
news:c7ced3be3e08a10f4f7...@mygate.mailgate.org...

Allora... Effettivamente come ha già fatto Ruscelli David ecc., prima di me,
ti devo riprendere a rispettare le regole di questo news, ma cmq visto che
sei come me una matricola, e che potresti non aver letto il manifesto di
questo ng dal sito comune(manifesto che sono sicuro adesso leggerai) , penso
di poterti aiutare:
il codice che hai postato è buono e, almeno sul mio computer, funziona
benissimo; il problema è che usando una input box devi scrivere l'intero
percorso del file:
ES: se vuoi aprire un file in D:\provafile\file, devi scrivere nella casella
di dialogo l'intero percorso e questo puo' dare dei fastidi
il mio consiglio è inserire un common dialog e usare finestre di dialogo
comuni; se non hai dimestichezza con questo controllo, puoi trovare
informazioni su MSDN, e, se anche lì non ti sarà chiaro come utilizzarlo,
riscrivi qui sul ng.
Un salutone by Ged
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con Collection

Salve ho il seguente problema :
HO DUE COLLECTION (coll1 e coll2)
nella Coll1 ho i seguenti dati : coll1(1) = "Pasquale"
                                            coll1(2) = "Giuseppe"
                                            coll1(3) = "Giovanni"
                                            coll1(4) = "Matteo"
                                            coll1(5) = "Paolo"
nella Coll2 ho i seguenti dati : coll2(1) = "Giacomo"
                                            coll2(2) = "Paolo"
                                            coll2(3) = "Luigi"
                                            coll2(4) = "Matteo"
Considerando che i miei dati sono molto ma molto di piu' rispetto
all'esempio delle collection vorrei ottere una terza collection comprendente
tutti i dati delle due, ovviamente non quelli uguali.
detto cosi sembra semplice farlo, il fatto è che non vorrei usare due FOR
per fare tutte le combinazioni, Un altro METODO ?
GRAZIE

 per fare tutte le combinazioni, Un altro METODO ?
nel popolare la terza collection ti popoli anche una stringa di appoggio che
contiene tutti i valori che inserisci separati da "," e prima di inserire un
nuovo elemento nella collection ne testi la presenza con la funzione INSTR
sulla stringa di appoggio.
----------------------------------------------------------------------------
Esiste un luogo dove tecnologia e arte si incontrano
www.tecnologiaEarte.net
----------------------------------------------------------------------------
Gianluca Pisano

 per fare tutte le combinazioni, Un altro METODO ?
Nessun altro metodo... Sensato... :(
            Ciao
                Allanon

 per fare tutte le combinazioni, Un altro METODO ?
Oggi sono un po' in vena di soluzioni "pasticciate" comunque...
Partendo dal presupposto che nella collection di destinazione tu non debba
usare la Key per altri scopi (nel qual caso cade tutto) potresti fare cosi':
'usiamo i dati delle 2 collection sia come 'Item' che come 'Key'
'della collection di destinazione, in questo modo se un elemento
'esiste gia' viene generato un errore di chiave duplicata,
'che pero' ignoriamo, al termine avremo una collection con i dati
'univoci di entrambe
Dim clDest As Collection, i As Long
With coll1
    For i = 1 To .Count
        On Local Error Resume Next
        clDest.Add .Item(i), .Item(i)
        On Local Error GoTo 0
    Next
End With
With coll2
    For i = 1 To .Count
        On Local Error Resume Next
        clDest.Add .Item(i), .Item(i)
        On Local Error GoTo 0
    Next
End With
Ciao
--
Luca Dormio
luca....@tin.it

 USSURI
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [ADO] aggiungere record ad una tabella senza creare un recordset

salve a tutti,
ho la necessità di riempire una tabella con piu record con 5/6 campi
ciascuno presi da una listview e fin qua l'ho fatto, però mi sono accorto
che popolo un recordset con i dati già presenti nella tabella e poi faccio
l'addnew per tutti i record che voglio inserire, senza minimamente guardare
cosa c'è dentro al rc.
spero che capiate quello che voglio intendere:)
ho provato a cercare qualcosa sul comando execute ma non ci ho capito
moltissimo.
qualcuno è così gentile da spiegarmi come potrei fare??
grazie mille
masc

Devi usare un oggetto connection.
Ti connetti al Db (qualsiasi esso sia)
Poi fai
oggettoConnessione.Execute "Insert Into Tabella (Campo1,Campo2,....CampoN)
Values (Valore1,Valore2,...,ValoreN)
Oppure puoi farlo con una select (al posto di values)..
Ti consiglierei caldamente (visto il periodo :))) di leggerti qualche
documentazione/papiro/Pergamena sul Linguaggio Sql (DDL,DML,DCL).
Se nn hai capito una Ma@@a riposta...
Ciao
oZ

 ha scritto nel messaggio
news:XtF27.27089$rh.5...@news6.giganews.com...

utilizza una query SQL in un Command di ADO
Dim C As ADODB.Command
'
Set C = New ADODB.Command
    C.ActiveConnection = StringaConnessione
        C.CommandText = "INSERT INTO Tabella (Campo1, Campo2, Campo3)
VALUES(" & Valore1 & ", " & Valore2 & ", " & Valore3
        C.Execute
    C.ActiveConnection = Nothing
Set C = Nothing
spero di esserti stato d'aiuto
ciao

Ho capito, ora ho ancora queste tre cosette da chiedere:
    1. che differenze ci sono fra le due soluzioni che mi avete dato?
    2. con che stringa mi collego al db, premesso che io uso i dsn?
    3. che significano le sigle DDL,DML,DCL?
grazie grazie
ciao ciao
masc


     3. che significano le sigle DDL,DML,DCL?
DDL = Data definition language= linguaggio di definizione dati ovvero
linguaggio per la definizione della struttura dati
DML = Data manipulation language = linguaggio di manipolazione dati
ovvero linguaggio per l'aggiunta, modifica ed eliminazione dei record
presenti nei recordset
DCL = Data Control Language - non la sapevo.. l'ho imparata al volo :)
linguaggio di controllo dei dati..
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

esistono manuali e/o guide cartacee che trattano solo questi argomenti???

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestire valori Null in ReportViewer

Salve a tutti,
ho un realizzato un report con  ReportViewer.
E ogni volta che trova un valore "null" nel database, nel report, invece del 
valore vuoto compare "#Error". Gli altri valori li  scrive normalemente.
Praticamente ogni volta che tenta di leggere il valore null  va in errore.
Come posso rimediare a questo problema?.
Grazie in anticipio... 

 Grazie in anticipio...
ReportViewer non lo conosco, ma in fase di select puoi fare
SELECT COALESCE(CAMPO,'') AS CAMPO, COALESCE(NUMERO,0) AS NUMERO
ecc.
Ma mi pare impossibile non ci sia un'opzione per i null nel report.

Anche io non lo conosco. -E anche a me sembra strano che non gestica i 
valori null.
Ogni volta che inserisco   la condizionale in fase di report mi da errore. 
Le uniche funzioni che esistono IsDate, IsNumeric, IsNothing..., insieme al 
condizionale IIf.
Però mi da errore nella fase di lettura e quindi le funzione non le 
considera nemmeno.
Scusa ma la funzione Coalesce funziona anche in sql?
"Andrea [Work]" <nos...@invalid.invalid> ha scritto nel messaggio 
news:25nvy519rllh$.1pxe3k0ey1ms2.dlg@40tude.net...


 ha scritto nel messaggio 
news:47289ed9$0$10621$4faf...@reader2.news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: I 2000 di Microsoft !

Ciao ragazzi c'è qualcuno in grado di utilizzare office 2000 con visual
basic 5 ? O meglio, qualcuno è già riuscito ad aprire con vb5 un database
access 2000 ?
Se si farei qualsiasi cosa per sapere come si fa !
Grazie
Ciao
RobeRaf

 ha scritto

non vedendo altre risposte, e rimanendo fedele a office97, parlo per sentito
dire ( o meglio, per visto scrivere, sul ng :)
credo tu debba installare il mdac:
 Directory di C:\ftp\ms\mdac
MDAC_TYP EXE     7.856.352  22/02/00  18.03 mdac_typ.exe
MDAC_T~2 EXE     6.560.224  08/01/00   8.57 mdac_typxit.exe
e usare dao 3.6, che -- come dice roaldus maximus --
"JET 4.0 _non_ e' DAO 3.6
"JET e' il motore di Access, DAO e' "solo" una libreria di oggetti
(interfacce) "COM che semplifica l'utilizzo di JET.
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: MaskedBox e win2000

Salve a tutti
ho un problema: su un pc nuovo ho installato win2000 pro e poi vb6; ho
aperto un progetto esistente (creato in win98 con lo stesso vb6) e win2000
mi dice che il controllo msmask32 non ha la licenza corretta per essere
eseguito.
Anche creando un progetto exe nuovo in vb6 non mi pemette di posizionare sul
form un controllo maskedit (naturalmente l'originale di microsoft) e mi
continua a dire che non ha la licenza. Anche facendo il regsvr32
msmask32.ocx continua  a negarmi la licenza.
Qualcuno sa dirmi come risolvere il pb sennò non so come finire un progetto.
Grazie di cuore.
Rollo

 ha scritto nel messaggio
news:F6Ud6.43879$Up.4...@twister1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Access

Una domanda,
Vi è mai capitato di accodare una tabella Access con un'altra?
L'istruzione che uso è questa:
                db.Execute "INSERT INTO TABELLA_A SELECT * FROM TABELLA_B"
L'inconveniente è che i primi tre record accodati me li ritrovo alla fine.
Qualcuno mi può dare una mano?
Grazie per le risposte, Saluti Amedeo

 ha scritto nel messaggio
news:N3clc.165265$Kc3.5...@twister2.libero.it...

Ciao,
metti una bella Order By in base al campo che vuoi ordinare
----------------------------
INSERT INTO TABELLA_A
SELECT *
FROM TABELLA_B
ORDER BY TuoCampo
---------------------------
Ciao Giorgio

 > Qualcuno mi puň dare una mano?


L'inconveniente č che i primi tre record accodati me li ritrovo alla fine.
non ha senso. I primi tre record o gli ultimi sono la stessa cosa se i dati
sono uguali.
Ciao Giorgio

Newsgroup: it.comp.lang.visual-basic
Titolo: CheckBox in DBGrid

Ciao a tutti,
    qualcuno sa per caso come visualizzare una checkbox all'interno di una
dbgrid
che faccia riferimento ad un valore booleano sul DB?
Grazie ciao.

Cerca il post con oggetto DBGRID... CHE CASINO!!!
Ciao Luciano.

 wrote in message
8qt1db$lat$1...@fe2.cs.interbusiness.it...


Scusami, ma non vedo la differenza, anche se usi ADO e riempi la griglia a
run-time, comunque non puoi mettere i Checks nella griglia.
Ciao Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: VB 2008 - upgrade

alcuni venditori citano la possibilita' di upgrade da una qualunque versione
di Visual Studio Visual Basic, Borland Delphi.
altri invece prevedono solo l'aggiornamento da Visual Studio.
da parte mia ho licenze di Visual Basic 5, e Delphi dalla 1 alla 2007, 
mentre
non ho licenze di Visual Studio e solo con abbonamento MSDN.
prima di acquistare un upgrade, che non posso attivare, preferirei essere 
piu'
che sicuro, io credo che sia possibili aggiornare sia da Visual Basic che d
Delphi (fino ad ub paio di anni fa era possibile) , vi risultano che siano 
cambiate
le politiche Ms di upgrade.
poi e' ovvio che aspettero' l'uscita di Vs2010 per'acquisto.
Maurizio 

Maurizio ha scritto:

Ciao
che mi risulti puoi fare l'upgrade sia da prodotti Microsoft che da 
alcuni competitors tra i quali figura anche Borland
qui il dettaglio:
http://msdn.microsoft.com/it-it/vstudio/cc301303.aspx#E6
questo per la v.2008, nulla per� so dirti se lo stesso varr� anche per 
la 2010, tra il vedere e il non vedere una telefonatina al call-center 
la farei (sono sempre gentilissimi):
http://www.microsoft.com/italy/info/numeriverdi.mspx
ciao
stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Da minuscolo a maiuscolo

Come si fa a trasformare il valore di questa variabile:
stringa = "Testo Prova"
tutto in maiuscolo
stringa = "TESTO PROVA"
Grazie a chi risponderŕ.

 Grazie a chi risponderà.
stringa = UCase(stringa)
ovviamente anche il contrario
stringa = LCase(stringa) tutto minuscolo
controlla anche strconv sulla guida per ulteriori formattazioni
Fabio

Newsgroup: it.comp.lang.visual-basic
Titolo: Data Report di visual Basic

Ciao a tutti
Ho sempre usato Datareport di VB6 passandogli un sono recordset (ex: righe 
bolla. La testata  viene aggiunta dato per dato in intestazione report).
La domanda è semplice: è possibile passare 2 rs, uno relativo alla testata 
della bolle e l'altro per le righe, creando dei raggruppamenti, in modo da 
generare un report che mi riepiloghi tutte le bolle con le relative righe 
(testata bolla e subito dopo relative righe)
Grazie
Marco

Sembra che Troy abbia detto :

Certo.
E' il classico datareport a gruppi, devi appunto aggiungere le sezioni 
di testata e piè di gruppo, con in mezzo i dettagli.
Poi gli colleghi il recordset (che ovviamente sarà gerarchico, ossia in 
sostanza contenente entrambi i recordset di testata e dettagli, col 
RELATE che indica quale sia la relazione di gerarchia.
Se cerchi su google gruppi "datareport gerarchico" trovi il codice già 
pronto.
Alberto
-- 
Ho spiegato a mio nipote cos'è il compromesso: se per le vacanze tua 
madre vuole andare al mare e tuo padre invece in montagna, il 
compromesso è che si va al mare, ma il papà può portarsi gli sci.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] NewsReader e Mail Reader

Scusate l'OT ma se chiedo questa cosa a voi ho un perchè (mi fido della
competenza di colleghi)!
Cosa mi consigliate per leggere la posta (che non sia Outlook o Outlook
Express) che abbia le funzionalità di creare regole come outlook?
E invece come lettore di news?
Alessandro

 Alessandro
Andrea

 Preparatevi al nuovo :)
Mi sarei aspettato ogni risposta...ma questa no....
Alex

 Alessandro
gravity. il sito era scomparso, ma ne ho messa da me una versione free
trovata da qualche parte. links -> web.comms.
ogni tanto lo uso per i binari e mi piace. ha miriadi di opzioni e
molte possibilita' di regole.
--
ciao
www.sundaysw.com

 E invece come lettore di news?
Forte Agent (ormai vecchiotto come design), xnews (per i binari ma non lo
utilizzo da un paio di anni ormai non so come sia diventato)... ho sentito
parlar bene di altri prodotti ma non ho avuto tempčo per provarli...
attualmente uso ciň che mi capita compreso mozilla che perň non mi piace
molto...

 E invece come lettore di news?
Gravity ( in italiano )

> E invece come lettore di news?
Free Agent.

Newsgroup: it.comp.lang.visual-basic
Titolo: Avvio di programa esterno con path contenente spazi caricata su  variabile VB.net

Ciao a tutti,
Con 
vb.net
 devo cercare di aprire un eseguibile passandogli dei
parametri, fino adesso ho fatto tutte le prove appoggiandomi su una
cartella creata C:\pippo\
Per ovvi motivi ho deciso di parametrizzare la cartella ed ho fatto
una cosa del genere:
   Dim command As String = My.Application.Info.DirectoryPath &
"\FotoElaborata.jpg"
Il problema che riscontro è che se ho cartelle nominate con spazi,
quando lancio l'eseguibile, le cose dopo gli spazi vengono colte come
parametri all'eseguibile, su google ho visto che si può risolvere
utilizzando 3 apici attaccati """C:\pippo e pluto\""", come faccio
però se ho una variabile string passatami da my.application come nel
mio caso?
Per avviare l'applicazione faccio una cosa del genere:
        Try
            Dim p As New Process
            p.StartInfo.UseShellExecute = True
            p.StartInfo.FileName = _directory & "\DTwain.exe"
            p.StartInfo.Arguments = command
            [...]
      end try
Grazie a chiunque vuole aiutarmi.
Marcelo


Ho trovato, basta mettere 4 " ed il carattere c, esempio:
dim pathFile as string = "C:\pippo e pluto\a\
[apri il programma] = """"cpathFilec""""
ed il gioco è fatto....
sperando di aver fatto cosa gradita vi saluto
ciao ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare file vecchi

E' possibile fare in modo che file vecchi più di tot giorni vengano
automaticamente spostati da una cartella ad un'altra?
Con VB sono all'inizio, quindi vi prego di portare pazienza.
Grazie mille e buone feste.
Riccardo

 Con VB sono all'inizio, quindi vi prego di portare pazienza.
Non esiste una funzione già fatta però te la puoi costruire
Considera
FileDateTime("    PERCORSOENOMEFILE")
Kill ("PERCORSOENOMEFILE")
Dir restituisce gli elementi contenuti in una cartella
Allora semplicemente
(non testato, buttato giù al volo in questyo momento, però ho avuto la
decenza di usare l'ide:-))
Private Sub fnCancellaFile(sDataLimite As String, sPercorso As String)
'passare sDatalimite in format dd/MM/yyyy
Dim MyFile As String
MyFile = Dir(sPercorso)  ' Recupera la prima voce.
Do While MyFile <> ""   ' Avvia il ciclo.
       If Format(FileDateTime(sPercorso & "\" & MyFile), "dd/MM/yyyy") <=
sDataLimite Then
            Kill (sPercorso & "\" & MyFile)
        End If
     MyFile = Dir 'legge la voce successiva
    Loop
End Sub
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli


Ops! La funzione che ti ho scritto li cancella, basterà modificarla
aggiungendo il parametro sPercorsoDestinaz e prima del killFile usare la
funzione FileCopy... tutto è ampiamente documentato su MSDN.


 automaticamente spostati da una cartella ad un'altra?
'*vbs  >> 20 giorni
' se vuoi automatizzarlo richiamalo con C:\WINDOWS\Tasks
'inizio
 Dim fso, f, f1, fc
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder("C:\doc")
   Set fc = f.Files
   For Each f1 in fc
  If DateDiff("d", f1.DateLastModified, Now) > 20 Then
    fso.CopyFile f1 , "c:\Backup\"
     End If
   Next
'fine
object.CopyFile ( source, destination[, overwrite] )
overwrite
Optional.
Boolean value that indicates if existing files are to be overwritten. If true, files are overwritten; if false, they are not. The
default is true. Note that CopyFile will fail if destination has the read-only attribute set, regardless of the value of overwrite
--
Fosco

    Set fso = CreateObject("Scripting.FileSystemObject")
[...]
Questo sistema prevede il file system object, che non è un componente di
base di Vb, quando posso per lavorare sui file prediligo sempre soluzioni
senza il fso.


 senza il fso.
Molti (tutti ? )la pensano cosi' .. e forse e' anche giusto
Io invece faccio tutto il possibile col fso perche lavoro
contemporaneamente col VB e col vbs ed il sistema e' di
facile utilizzo (intuitivo) ed interscambio in entrambi
In caso di distribuzione ci penserei bene prima di utilizzarlo
--
Fosco

 In caso di distribuzione ci penserei bene prima di utilizzarlo
... bip, info insufficienti, bip, prego riformulare, bip ...
Newsgroup: it.comp.lang.visual-basic
Titolo: Come inserire l'help

Come faccio ad richiamare l'help (in formato chm) del mio programma?
CiaoZ

> Come faccio ad richiamare l'help (in formato chm) del mio programma?
Per richiamare help in formato CHM io uso il seguente codice:
Private Declare Function HtmlHelp Lib "hhctrl.ocx" _
    Alias "HtmlHelpA" (ByVal hwnd As Long, _
    ByVal lpHelpFile As String, _
    ByVal wCommand As Long, _
    ByVal dwData As String) As Long
Private Sub cmdHelp_Click()
'Apre la pagina iniziale di default
    HtmlHelp Me.hwnd, "TitoloHelp.chm", 1, ""
End Sub
Private Sub cmdHelpTopic_Click()
'Apre il topic indicato
    HtmlHelp Me.hwnd, "TitoloHelp.chm", 0, "TitoloTopic.htm"
End Sub
ALOHA!
Rogis
* ANTI-SPAM:
Rimuovi "ABC" dall'indirizzo per rispondermi
Remove "ABC" from my address to reply.

Newsgroup: it.comp.lang.visual-basic
Titolo: Indirizzo IP, spedire

Salve,
vi chiedo se è possibile scrivere un file bat o qualsiasi riga di
comando che visualizzi l'indirizzo ip della connessione e lo spedisca
per posta elettronica ad un destinatario.
Grazie.

 per posta elettronica ad un destinatario.
Mi sa tanto di lamerata :\
-- 
Quando noi ignoranti eravamo di piů, tutto era piů bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 Mi sa tanto di lamerata :\
chiamato ?
Ipconfig /all > C:\ip.txt
oppure basta un sito internet come questo che ti da in risposta l'ip da
spedire : 
http://www.arternet.it/ip.asp
-- 
- Gigio @ Work (?) -
NG: it-alt.comp.hardware.modding - Ingresso libero per gli
scartavetratori folli Site: 
http://www.g2kweb.it/ichm
Chat: #ichm 
irc.azzurra.org



Si' e' possibile, ma i bat non sono visual basic.
Per rimanere in topic, si potrebbe discuterne usando vbscript,
ma la scelta tra script di shell e scriping host probabilmente
dipende dal contesto in cui va eseguita l'operazione.
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset dissociato

premetto che programmo in vb6.
Ho il seguente problema: Devo fare la stampa di N nominativi scelti da 
un elenco.
Ho un recordset con 100 elementi
Devo caricare questo recordset in una listview o un controllo similare e
selezionare tramite una check box quali recorset stampare tramite il 
controllo di stampa di vb.
Avevo pensato la seguente soluzione
supponiamo che frmRicercaClienti.AdoCtrl.RecordSource sia il recordset 
con tutti i miei nominativi.
Vado a caricare tutti questi record in una listview che visualizzi le 
checkbox.
Poi riporto tutto in un recorset dissociato e lo passo alla stampa.
Avete altri suggerimenti ??
thanks

 Avete altri suggerimenti ??
Personalmente una volta che hai la tua griglia/listview e confermi la
stampa io farei cosě:
1) Scorro tutti gli item e verifico che siano VbChecked, in tal caso gli
accodo ad una stringa del tipo
Dim element as string
element=""
Ciclo
  if xxx=vbChecked then
    element=element & IDCLIENTE & ","'qui metti l'id che ti identifica quel
rigo, un contatore o quello che č
  end if
Fine ciclo
if len(element)>0 then element=left(element,len(element)-1)'tolgo virgola
finale
SQLStr$="SELECT * FROM TABELLA WHERE IDCLIENTE IN (" & element & ")"
A questo punto passi la stringa al report o la usi come vuoi.
-- 
DBMS Firebird
VB6 + Ado

Newsgroup: it.comp.lang.visual-basic
Titolo: API senza miele

Come posso sapere qualcosa sulle API!
Esistono oltre e MSDN delle risorse tipo siti web
da cui attingere?
Ho visto sul sito comune la recensione di un libro, ma
è specifico di VB5, vorrei un qualcosa di più generico.
          Danilo
                                    Grazie Ciao

 ha scritto

p.f., non postare ripetutamente, specie senza aver letto le risposte che ti
hanno dato.
oltre a quanto ti ha detto moreno:
* apiguide online e scaricabile, con esempi, free, in inglese:
http://users.turboline.be/btl10148
* raccolta con spiegazioni, in italiano:
http://members.xoom.it/cesarerizzi
* raccolta in html, con spiegazioni, in inglese:
http://skyscraper.fortunecity.com/transmission/45/api/index.html
altro: nei miei vblinks, cerca "api".
ciao, a.
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/

 hanno dato.
C'e' l'enorme (1000+ pagine) libro di Appleman (il titolo non lo ricordo, cerca
VB+Appleman e lo trovi).
Spiega bene le API ed ha accluso del codice.
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] IDE PrimalCode

Tra le solite tonnellate di SPAM mi e' caduto l'occhio su PrimalCode, un IDE
della Sapien per .NET che dalle caratteristiche dichiarate sembra non avere
nulla di meno di 
VS.NET
.
http://www.sapien.com/primalcode.htm
Qualcuno l'ha provato?
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

 Qualcuno l'ha provato?
Per inciso, per un errore interno del server, non sono riuscito a scaricare
la Trial 30gg.


Personalmente non ho ancora visto il 
VS.NET
, ma ho scaricato Primal Code...
cosě al volo posso dire che mi sembra un bel prodottino...
ora lo faccio girare un po' e vediamo come si comporta
Ciao
Pixel

 ha scritto nel messaggio news:lxRU9.2966

Gestisce anche il debug?
--
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 Qualcuno l'ha provato?
No, ma se qualcuno ne fa una recensione sarei interessato a leggerla..
-- 
Ale
La RFD originale per it.comp.dotnet su
http://www.sen.it/stoa/articles.asp?id=10
Se vuoi discuterne, vai su it.news.gruppi

 Gestisce anche il debug?
Sto guardando ora il trial... no, non ha un debugger integrato, cosi' come
per #Develop ti devi appoggiare al CLR Debugger del SDK
L'intellisense non e' male e, sempre paragonato a #D, e' molto piu'
generico, dato che riconosce una gran quantita' di linguaggi, non
necessariamente .NET
Supporta Source Safe e altri strumenti di gestine dei sorgenti (non
provato), ha un registratore di macro, insomma le sue "cosine al posto
giusto" le ha.
E' ancora su un'altro pianeta rispetto a Visual Studio, come lo e' #D
d'altronde, perde pero' anche rispetto a quest'ultimo, nonostante
all'apparenza l'IDE si presenti piu' completa rispetto alle scarne toolbar
di #D, in primis soffre per la mancanza di un editor di finestre visuale,
che li invece c'e' anche se un po' traballante
IMHO, ad una prima impressione veloce, non giustifica la spesa rispetto
all'offerta open source attuale.
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Icona Menu Alt-Tab

Allora allora innanziPRIMA :DD grazie per le prontissime risposte sulla
minimizzazione aliena...ci sto ancora combattendo ma qualcosa risolvo sicuro
:D
Altro problemino che mi sovviene ora ..
Come mai nel menu di scelta che appare quando si preme ALt + Tab
L'icona del mio POvero Virtual DeeJay è quella di un applicazione DOS ?
eppure l'icona sotto Windows è un bel CdRom Scintillante !!!
Mi date una manina ? :D

Edaajeeeeee datemi una manooo!!

 Mi date una manina ? :D
ho compilato adesso un exe.
l'icona e' doppia, 16px una A su fondo rosso, 32 px una A su fondo
bianco.
in gestione risorse, icone piccole, vedo quella rossa.
con alt-tab quella bianca, come se mettessi explorer su visualizza
icone grandi.
non so se puo' esserti utile.
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Service Pack x VB5

Ciao a tutti,
non riesco a trovare il S.P. x VB5, e qualcuno as se esiste VB6 Italiano?
Ciao a tutti e grazie ancora


certo VB6 esiste già in commercio e ti assicuro che non è niente male nel
pacchetto VS6 enterprise !!
ciao Edoardo

Newsgroup: it.comp.lang.visual-basic
Titolo: DrawState e icone disabilitate

Debbo visualizzare "come disabilitata" l'icona contenuta in un
controllo Image di un OCX che sto scrivendo (quando la proprietà
Enabled dell'OCX viene impostata su false).
DrawState funziona benissimo nell'alterare l'immagine dell'icona, ma
poi me la "disegna" (con il nuovo aspetto) sullo schermo, anziché
"restituirmi" una picture che io possa inserire nel controllo Image al
posto dell'altra.
Risultato: sto diventando matto da due ore (!) per sincronizzare
l'effetto visivo, senza riuscirci. Anche perché debbo interagire con
l'evento Paint di Usercontrol, altrimenti dopo avere disegnato sopra
l'icona originale l'icona disabilitata basta poi coprirla con
qualunque cosa (es. un'altra finestra di Windows) e poi scoprirla, per
ritrovarsela di nuovo in versione originale.
E interagire con l'evento Paint mi dà risultati instabili: il disegno
"disabilitato" finisce dietro l'altro, a meno di non impostare un
timer con un minimo ritardo, ma in questo caso si vedono sfarfallii di
ogni tipo (... o sono io che a 'sto punto ho le visioni??).
Prima che con l'OCX mi metta a distribuire etichette da appiccicare
sullo schermo, qualcuno sa come cavolo si può ottenere un oggetto
Picture "disabilitato" dall'immagine di un'icona normale? ... così
sostituisco l'immagine nel controllo Image e al resto ci pensa
Windows.
Grazie!!!
Filippo

posto dell'altra.
Magari puo' servire questo:
DC to StdPicture 
http://oldlook.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20744924.html
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Marcare il carattere

Salve a tutti,
faccio una stampa su una stampante a aghi senza passare per i driver di
windows cioč invio i dati direttamente sulla porta lpt1. Vorrei sapere se
qualcono conosce il codice per dire alla stampante di farmi il carattere piů
marcato (per esempio srciverlo 2 volte sempre nello stesso punto).
Grazie.

Come al solito le infomazioni sono poche, quindi, improvviso................
Facciamo finta che la tua stampante ad aghi abbia il protocollo compatibile
Epson (le più diffuse),
quindi per marcare il carattere puoi usare o il Bold o l'Enfatize (chi ca**o
si ricorda come si chiama!).
il codice per il bold è ESC G e per toglierlo ESC H
il codice per l'enfatize è ESC F e per toglierlo ESC G
vado a memoria quindi non ci giurerei.
Fai delle prove e se non funziona andrò a riprendere i vecchi sorgenti DOS
Ciao
P.S: per fare il codice ESC usa chr(27), quindi ad esempio invii alla
stampante chr(27) & "G"
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: [un pò OT] problema con MSDE, trusted connection = yes

Per la mia applicazione in 
VB.NET
 utilizzo come database MSDE (Sql Server
Desktop Edition)
Ho installato MSDE sul PC che farà da Server con la modalità di
autenticazione utenti di Windows.
L' applicazione si connette al database tramite ODBC e sul Server tutto
funziona perfettamente.
Veniamo ora al problema:
Non riesco a creare l'origine dati ODBC su un PC client; in ODBC immetto il
nome del server, scelgo "Autenticazione Windows NT tramite ID di rete" e non
mi fa più andare avanti dandomi errore di connessione...
Da quello che ho capito leggendo qualche post sulla rete è un problema di
utenti di Windows e se non ho capito male devo creare gli utenti anche in
SqlServer...ma non ho capito dove e come...
Help Help
Grazie in anticipo.
 
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 SqlServer...ma non ho capito dove e come...
Innanzitutto, devi verificare che sia possibile accedere a MSDE da 
rete.
Accertati di avere utilizzato, durante l'installazione del servizio, il 
DISABLENETWORKPROTOCOLS=0.
Poi devi controllare che non ci sia un firewall sul server a bloccare 
la porta (normalmente 1433).
Puoi verificarlo ad esempio tentando di aprire una banale sessione 
Telnet dal client alla 1433 del server. Se è possibile, ottieni una 
schermata tutta nera).
A questo punto puoi tentare di lavorare dai client.
Se hai scelto l'autenticazione NT, occorrono due cose:
1) l'utente che si autentica sul client DEVE essere un utente del 
dominio NT a cui appartiene il server (al limite anche del dominio 
implicito del server stesso).
2) l'utente del dominio deve essere autorizzato ad accedere a MSDE e, 
all'interno di questo, al database che ti serve. Per effettuare questa 
autorizzazione, puoi usare l'Enterprise Manager (pratica non del tutto 
lecita ma prassi comune), o l'utility a linea di comando OSQL che viene 
installata assieme a MSDE. Vedi sui Books On Line per il dettaglio dei 
comandi di OSQL.
Ciao
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come forzare la chiusura di un mio oggetto?

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
 
Navigate...
Quit
 
Se dopo qualche secondo pigio di nuovo il bottone per ricrearlo ottengo:
Errore di automazione. Arresto sistema già pianificato.
 
Come fare perchè l'oggetto si chiuda immediatamente?
 
Avrei anche pensato di metterlo Invisible invece di chiuderlo, purtroppo alla seconda chiamata non c'è modo di portarlo 
in primo piano: non funziona SetFocus e neanche ZOrder.
Grazie per ogni info
 
-- 
Greg

 Come fare perchè l'oggetto si chiuda immediatamente?
 
Andando a memoria :
 
Set IE = Nothing
 
Sempre a memoria:
 
If IE <> Nothing then ' oggetto non chiuso

 If IE <> Nothing then ' oggetto non chiuso
 
Grazie Artiglio, è proprio cosi.
 
Ma adesso ho un comportamento strano: quando lancio il browser appare giustamente in primo piano, ma nel compilato mi 
rimane invece in secondo piano.
 
Setfocus non va, allora ho provato con SendMessage ma non sembra funzionare:
 
k = SendMessage(IE.hwnd, WM_SETFOCUS, 0&, 0&)
 
Ti viene in mente qualcosa? Grazie ancora :)
 
-- 
Greg

 k = SendMessage(IE.hwnd, WM_SETFOCUS, 0&, 0&)
 
L'hai reso visibile ?
 
IE.Visible = True
 
Altrimenti è ovvio che setfocus fallisce....


Certo, infatti lo vedo anche.
L'errore è Proprietà o metodo non supportato dall'oggetto.
Infatti andando a vedere alla fonte, il SetFocus non c'è, per questo mi ero messo ad usare SendMessage, che però non da 
risultati, per adesso.
 
https://msdn.microsoft.com/en-us/library/aa752084(v=vs.85).aspx
 
 
-- 
Greg

 
https://msdn.microsoft.com/en-us/library/aa752084(v=vs.85).aspx
 
 
Riassumo
premesso che creo la finestra browser in questo modo:
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
 
Ho usato la SendMessage con l'handle di un mio form  in secondo piano e il focus viene inviato.
Quidi ho usato la sendmessage sia con l'handle dell'oggetto IE, sia con l'handle dell'oggetto "Internet Explorer" ma il 
focus non viene ancora inviato.
Domani proverò ancora, anche se adesso non so bene cosa
 
-- 
Greg

 Altrimenti è ovvio che setfocus fallisce....
 
Dopo la SendMessage ho provato oggi con SetActiveWindow, mi restituisce 0, in progettazione porta la finestra di 
explorer in primo piano, ma dopo aver compilato non più. Non so più cosa fare, da cosa può dipendere? Grazie a tutti
 
Private Sub Command5_Click()
 Set IE = CreateObject("InternetExplorer.Application")
 
 IE.Visible = True
 IE.Left = 200
 IE.Top = 400
 
 IE.Navigate "https://www.google.it/maps/place/Via+Nicolò+Tommaseo+15,+Brescia,+BS,+25100"
 r = SetActiveWindow(IE.hwnd)
End Sub
 
-- 
Greg


NOn sono riuscito ad usarla, domani proverò di nuovo
 
-- 
Greg

Il 04/11/2016 16:48:05 Franz_aRTiglio ha scritto:

Ok, sono riuscito ad usarla a dovere, questa riporta il mio oggetto explorer in primo piano, senza ricorrere ad altre 
api
Grazie Franz e grazie anche a Luca D
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: textbox multiline : andare a capo

Scusate sono un neofita.
Ho creato una piccola Forma con un bottone e una TextBox con la proprietą
Multiline.
Quando premo il bottone vorrei che la texbox mi scrivesse una serie di
stringhe una sotto l'altra andando a Capo
Come faccio a scrivere un testo e poi andare a capo ?
Drake

 stringhe una sotto l'altra andando a Capo
String1$="Ciao"
String2$="Questo e' su un'altra riga!"
Private Sub Command1_Click()
    Text1.Text=String1$ & vbCRLF & String2$
End Sub
Ciao,
- SonicBoom -

 Ho creato una piccola Forma con un bottone e una TextBox con la proprietà





Newsgroup: it.comp.lang.visual-basic
Titolo: inet prelevare da LAN

ciao, con inet usando
private sub trasferisci()
Dim b() As Byte
Dim strURL As String
'Set the strURL to a valid address.
strURL = "***"
b() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\prova.jpg" For Binary Access Write As #1
 Put #1, , b()
Close #1
end sub
dovrei prelevare un file "prova.jpg" presente sul PC ad esempio 192.168.0.1
in C:\prova.jpg sapete dirmi cosa devo mettere dove ho lasciato gli
asterischi *** in strURL ho provatro a mettere 
192.168.0.1/prova.jpg
 ma mi
crea un file che se lo apre mi dice impossibile aprire il file.
grazie ciao

 crea un file che se lo apre mi dice impossibile aprire il file.
Se utilizzi l'oggetto INET è indispensabile che sulla macchina dove vai a
cercare i files (es. 192.168.0.1) ci sia un webserver installato...e che il
file che cerchi sia in una delle cartelle condivise come web.
Gianni


ah grazie...!



Ma non fai prima con 
filecopy "\\192.168.0.1\c\prova.jpg","c:\dest.jpg"
Che copia il file c:\prova.jpg dal computer 192.168.0.1 al computer in
uso nel file c:\dest.jpg
Ciao,
	Negus

"Stojkovic" ha scritto nel messaggio

A quel punto, chi glie lo fa fare ad usare un FTP ?
Condivide la cartella, con password ovviamente, e accede
con \\nomeserver\nomecartella\nomefile.ext, e può usare
per esempio filecopy.
Ovviamente usare FTP ha senso se il server è Unix/Linux,
e non ha Samba installato, o se è su Internet.
Bye, G.

 uso nel file c:\dest.jpg
Giuro che non l'avevo letto prima di mandare il mio post :-)
Bye, G.

 Giuro che non l'avevo letto prima di mandare il mio post :-)
hai vinto tu, là manca un :
;-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Assegnare NOME VARIABILE durante l'esecuzione

Ciao a tutti,
da poco preso in mano il VB4, ma mi sono trovato di fronte ad un
problema.
Se dichiaro una variabile scrivendo il programma faccio:
Dim Pippo = 10
Ora, come faccio per inserire un nome arbitrario durante l'esecuzione
del programma? Cioe' a cambiare il nome Pippo con un altro?
In altre parole vorrei creare, "durante l'esecuzione" del programma
una serie di tabelle il cui nome inserire sempre durante
 l'esecuzione.
Ho provato con una :
Dim Textbox.text (5,10) 
ma ovviamete non funziona :))
Ciao e grazie in anticipo.
Vittorio

 ma ovviamete non funziona :))
Non ho capito bene quello che intendi fare. Però se il problema è che non
sai in anticipo di quante variabili ("righe") sarà composta la tabella,
devi utilizzare gli array:
Dim MyArray(1 to 50) as Long		'O quello che vuoi
Tieni conto che la clausola Preserve ti permette di ridimensionare un array
a runtime senza doverlo distruggere (e perdere così i valori
precedentemente assegnati).
Domenico


No, e' il nome che non so in anticipo, nel caso da te indicato 
 "MyArray" viene scritto in fase di stesura del programma, io invece 
volevo poterlo decidere in esecuzione, tipo inserendolo con una 
 textbox.
Intanto ti ringrazio gia'  dell'attenzione.
Ciao,
Vittorio

 textbox.
Scusa la domanda: ma che ti frega di cambiare il nome di una variabile? :-)
Cos'e', sei ancora legato al "caro e vecchio" Clipper dove con le macro
potevi fare quello che ti pareva? :-)))
Scherzi a parte, non vedo proprio a cosa possa servire permettere di
definire a runtime il nome di una variabile, se non per permettere
all'utente di creare variabili ed usarle poi per espressioni da valutare
anch'esse a runtime. In questo caso fai prima a farti un array apposito (es
"Dim NomeVar() As String" e "Dim ValoreVar() As Variant") e quindi accedere
alle variabili utente cercandole prima in NomeVar() e poi recuperarne il
valore da valoreVar().
E' questo che intendi?
----------------------------------------------------------------
Alex Palmese
Internet: 
al...@programatic.it
 
http://www.programatic.it/~alex/
Newsgroup: it.comp.lang.visual-basic
Titolo: Sostuitire caratteri accentati

Salve  a tutti!!
Ho bisogno di sostituire i caratteri accentati ŕčěňů con caratteri non
accentati a' e' e' i' o' ů'. La sostituzione deve avvenire sia
automaticamente man mano che il testo viene inserito in una textbox sia
quando il testo non č stato inserito manualmente ma incollato nella textbox.
Qual'č il modo migliore per realizzare tutto ciň?
Grazie per l'aiuto.
A presto, Andrea.

 Qual'č il modo migliore per realizzare tutto ciň?
Questo senz'altro NON E' IL MODO MIGLIORE ma dovrebbe funzionare:
Private Sub Text1_Change()
    stringa$ = Text1.Text
      For a = 1 To Len(stringa)
        If Mid$(stringa$, a, 1) = "ŕ" Then Mid$(stringa$, a, 1) = "a"
        If Mid$(stringa$, a, 1) = "ě" Then Mid$(stringa$, a, 1) = "i"
        If Mid$(stringa$, a, 1) = "č" Then Mid$(stringa$, a, 1) = "e"
        If Mid$(stringa$, a, 1) = "ň" Then Mid$(stringa$, a, 1) = "o"
        If Mid$(stringa$, a, 1) = "ů" Then Mid$(stringa$, a, 1) = "u"
      Next a
    Text1.Text = stringa$
    Text1.SelStart = a
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Recordset vuoto

Qual'è il metodo migliore (più sicuro) per verificare se un recordset è
vuoto o è diventato vuoto dopo eliminazioni? Verificare BOF ed EOF, oppure
se recordcount = 0
Grazie per l'attenzione.
Ciao.

 wrote in message
7up6na$2ap$1...@news.flashnet.it...



La 1a..............
recordcount non e' sempre affidabile......
Ciao
Ven

...


In base a quello che ho letto nell'help in linea a suo tempo, la
soluzione migliore e'
If Not (<nome recordset>.BOF And <nome recordset>.EOF) Then
Come gia' da piu' parti detto, la proprieta' RecordCount non e' sempre
correttamente aggiornata, per cui o usi 'sta tecnica qui, o usi un bel
SELECT COUNT.... 
Ciao!
Luca Menegotto.


Concordo!!!! :-)
Ciao!
--
http://web.tiscalinet.it/minorchio

SELECT COUNT.... 
Il fatto e' che la proprieta' recordcount conta solo i record del
recordset fino a cui ci si e' spostati, per cui per avere il giusto
valore in recordcount occorre dare un bel
<recordset>.movelast
dopodiche' recordcount riportera' il giusto valore, ma se il recordset
e' vuoto il comando sopra riportato da' inesorabilmente errore.
Per cui conviene usare .eof.
saluti, Andrea.
Newsgroup: it.comp.lang.visual-basic
Titolo: Funzioni

Premetto che sono un principiante in Visual Basic.
Ma ho un problema da risolvere.
Ho una funzione implicita in due variabili es: (x^2)y+3xy+2y^2x+3=0
Come fare per disegnarla a video?
Grazie a chi vorrà rispondere.
By Ric

Riccardo:
  visto che nessun altro ti risponde con un' idea
risolutiva, almeno dai messaggi che riesco a vedere,
ti faccio la mia modesta proposta (mia figlia mi
chiama Orco...).
Nel tuo caso la funzione e' quadratica in Y e quindi
comincierei con il risolverla ottenendo due funzioni
di forma:
  y = G(x) + Sqr(F(x))
  y = G(x) - Sqr(F(x))
che poi potrei, comodamente, disegnare separatamente.
Certo che se la tua funzione non e' cosi' semplicemente
risolvibile, si dovrebbe, di volta in volta, trovare
qualche altro trucchetto.
Un' altro sistema, leggerissimamente piu' complesso, e'
quello di mettere in una matrice i valori della superficie
 z = (x^2)y+3xy+2y^2x+3
e poi di disegnare solo il livello 0 con una routine tipo
CONREC.
Ciao e se poi ti servisse aiuto ("sono un principiante in
Visual Basic") per fare un progettino, contattami pure.
Franco
Web: 
http://www.flanguasco.org/


Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa un report ???

via Mailgate Server - 
http://www.mailgate.org



Cos'e' cristal Report e come si usa ?? :(


Newsgroup: it.comp.lang.visual-basic
Titolo: Scorrere DbGrid 6.0 con tasti freccia

Salve a tutti,
mi farebbe piacere se qualcuno di voi sa come posso risolvere il seguente
problema:
dovrei scorrere le righe di una dbgrid 6.0 con i tasti freccia SU e GIU
facendo in modo che mi risulti sempre interamente evidenziata in negativo la
riga sulla quale sono in quel momento. Spero di essermi spiegato bene.
Vi ringrazio anticipatamente per una eventuale risposta e vi mando i miei
piu' cordiali saluti
--
Ciao
Roberto
Email:
r.l...@tiscalinet.it

 riga sulla quale sono in quel momento. Spero di essermi spiegato bene.
dbgrid.MarqueeStyle = 3 penso funzioni anche con la 6 ma uso ancora vb5
ciao stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: ..che succede?

..ho cambiato da poco computer...quando ho ricaricato un mio codice che
 apriva un file Excel 97..ora ho Excel2000..il programma ha funzionato una
volta...dopodichè ogni qual volta che cerco di rilanciarlo mi dà un
errore..dicendo "classe non registrata..si sta cercando di aprire un file
con....." e menziona una stringa numerica
Che fare?
Aiuto!!!!!!!
Grazie atutto il NG

 ha scritto nel messaggio
news:9sc4c2$97t$1...@pegasus.tiscalinet.it...

Il tuo sw ti dà l'errore? a che riga? hai provato a metterlo a debug per
vedere dove si ferma? Forse basta vedere dove si ferma per capirci qualcosa
di più... almeno spero:-)
Newsgroup: it.comp.lang.visual-basic
Titolo: Manca il tempo..................

Siccome ho gia' scritto a questo NG e mi e' stato risolto un problemone, vi
risottopongo l' altro per questoini che....... vedi oggetto email:-)
............
Ho fatto un programma in Visual Basic per mia figlia che ha problemi di
dislessia (problemi di lettura-scrittra) che estrae una parola a caso da un
vocabolario, la visualizza per un certo tempo e permette poi alla bambina di
scriverla controllandone l'esattezza (e' un po' piu' complicato ma per
spiegarsi va bene cosi')
La logopedista della bambina mi ha chiesto ora di aggiungere la seguenti
funzioni:
1-Divisione in sillabe (se ci fosse una funzione gia' scritta da qualcuno
perderei meno tempo :) )
Grazie tante

 perderei meno tempo :) )
Cercando nel codice che ho salvato negli anni ho trovato questo.
http://www.nicolaottomano.it/public/Sillabazione.zip
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: Testo verticale in MSFlexGrid

Salve volevo sapere se posso scrivere del testo verticale nelle celle
della MSFlexGrid. 
se la risposta è affermativa, come????
Grazie
Salvatore
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Salvatore
-- 
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

 ma perchč???
comunque visto che ci siamo....
con un po di intuito ci arrivi anche tu......
evvabbč!
in una form mettici una flexgrid e chiamala MiaGriglia ed un command button
poi incollaci
Option Explicit
Private Sub Command1_Click()
Dim Atext As String
Atext = "L" + vbCrLf + "A" + vbCrLf + "M" + vbCrLf + "E" + vbCrLf + "R" +
vbCrLf + "A" + vbCrLf + "T" + vbCrLf + "A"
miaGriglia.WordWrap = True
miaGriglia.Col = 1
miaGriglia.Row = 3
miaGriglia.Text = Atext
miaGriglia.RowHeight(3) = 1720
Atext = "Pinco " & Chr(13) & "pallino ojhnoih ioh oi oi h oih oihoih oih oih
oih "
miaGriglia.Col = 1
miaGriglia.Row = 2
miaGriglia.Text = Atext
End Sub
.....la vedi la differenza?...
ora il prossimo compitino che lascio a te...
Come fare a dire in base al testo inserito quanto allargare la riga???
Studiaci un po....
Buon Lavoro!
;-)


 con un po di intuito ci arrivi anche tu......
[cut]
Dando una letturina al volo mi pare che tu abbia realizzato un testo in
verticale, ma con la singole lettere che rimangono dritte: a me occorrerebbe
mettere in verticale le lettere, un po come se tu pigliassi questa scritta e
la ruotassi di 90°!!!
Se puņ fa?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/