Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all 2212 articles
Browse latest View live

Leggere un gruppo dai contatti doi outlook

$
0
0

Buonasera a tutti,

ho fatto un programma per importare i contatti della mia rubrica in una dgv.

Adesso, però, avrei la necessita di importare solo un determinato gruppo dai miei contatti che, ad esempio, si chiama "Gruppo personale"

Per importare i contatti ho usato il comando:

[code]

Dim GAL AsAddressList

GAL = mioSpazio.AddressLists("Contatti")

[\code]

Cosa dovrei aggiungere al codice per importare solo il gruppo "Gruppo personale"?

Grazie


gestione errori su connessione ODBC

$
0
0

Ciao,
ho cercato nelle discussioni ma non ho trovato ciò che mi serve.
Ho scritto questo codice:
dim connADO as ADODB.Connection
set connADO = New ADODB.Connection
connAdo.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _& "SERVER="& txt(0) & ";" _& "DATABASE="& "honeydatcom"& ";" _& "UID="& txt(2) & ";" _& "PWD="& txt(3) & ";" _& "PORT="& CLng(txt(1)) & ";" _& "OPTION="& 1 + 2 + 3 + 8 + 32 + 2048 + 16384

connAdo.CursorLocation = adUseClient
connAdo.Open


dove txt(i) sono i parametri di connessione al server

 (ad es.localhost,root,pippo,3306) Funziona bene se il database esiste, altrimenti va in errore, che vorrei gestire da codice. In debug si blocca mostrando la msgbox "Errore di run-time -1xxxxxxxxxxxx(8000-4005) Unknow database 'honeydatcom' con le opzioni Continua,Fine,Debug in complilato invece il programma termina senza altro avviso. Non è un errore ADO, nè un errore di VB gestibile con il classico On error go sub Vorrei gestirlo intanto per non far terminare brutalmente il compilato e poi, passetto in più, per creare il database ove non esistesse. La gestione dell'errore sarà banale per tanti ma io ho un momento di vuoto. Aiutatemi con le Vostre dritte.Grazie,un abbraccio alla comunità Francesco

vb6 - caratteri cambiati nella lettura file txt generato da vb2010

$
0
0
Ciao a tutti.
Scenario :
In vb2010 genero un file di tipo txt con caratteri random, facendo attenzione a non considerare caratteri che possano dare problemi...cmq questo è il codice di vb2010 per la generazione del file

Dim txtStream As IO.StreamWriter txtStream = IO.File.CreateText(Nomefile)
for n=1 to numerorighe
     txtStream.WriteLine(rigaCaratteriRandom)
next
txtStream.Close()

la lunghezza di rigaCaratteriRandom non è fissa.

Ora in vb6 leggo il file

Open nomefile For Input As #4
Line Input #4, record

nella finestra immediata (credo stia proprio qui il problema) di vb6 faccio
? record
e mi mostra in contenuto di record
faccio copia
apro il file genrato con vb2010 con un invio porto giù di un rigo il file
incollo
confronto le due righe è non sono uguali
vedi qui
https://www.dropbox.com/s/7qj2884wpuxfqr9/righe_file_diversi_vb6_vb2010.png?dl=0

Vi allego il file txt

https://www.dropbox.com/s/vio8snd6yhvvc36/file_generato_da_vb2010.txt?dl=0

Provate a leggere la prima riga con vb6 poi aprite con un editor di testo il file e vedete se vb6 legge esattamente la stessa sequenza di caratteri.

PS
Sto implementando un mio sistema di crittografia...se ne esistono free compatibili per vb2010 e vb6..fatemelo sapere per cortesia.
Ciao

Leggere un valore di un elemento in una pagina web

$
0
0

Salve, ho un link in cui viene visualizzata la temperatura letta da un termometro in rete lan.
il pezzo di codice della pagina è:

div class="value" id="s8689">27.7 °C
Come posso leggere la temperatura in vb.net?
Vorrei scriverla su una textbox sul tick di un timer.

Oppure un altro esempio, come posso scrivere in una textbox l'orario da: http://www.oraesattaitalia.it/

Saluti a tutti

Spostamento a Run Time di controlli in controllo contenitore

$
0
0

Buongiorno,
sapete come si fa (se si può fare.....) a spostare un controllo per porlo in un controllo contenitore tipo PictureBox o Frame, non in fase di progettazione ma in fase di esecuzione.
A me serve creare a run time una array di 16 controlli TextBox e mettere i primi quattro nel Frame1, i secondi quattro nel Frame2 etc.

E' possibile?

Grazie e ciao

Filippo

VS 2015 Community, controlli DATI non selezionabili

$
0
0
Buongiorno a tutti, Vorrei aggiungere al mio windows form un controllo Chart e non riesco a selezionarlo, tutti i controlli della sezione dati non sono selezionabili salvo DataGridView

da VS 2015 a VS 2017 problemi con il setup

$
0
0

Buongiorno

Ho appena acquistato VS 2017 .

Nel caricare un progetto creato con VS 2015 dove ho un setup creato con (Altri tipi di progetti) in VS 2017 mi compare la scritta Non Compatibile.   Perché ?

Inoltre provo ad aggiungere di nuovo un altro setup (eliminando quello precedente ) ma non trovo altri tipi di progetti (si ferma a Giochi) . Se invece crea un nuovo progetto altri tipi di progetti compare ma non trovo Installazione e Distribuzione    perche?    

Marco Rossi

 

 

Errore di permessi su Win10

$
0
0

Salve ho fatto un piccolo programma che scrive su un file access mdb, tutto funziona bene, l'unica cosa è che nel caso in cui copio il database di backup (quello di prova) o semplicemente lo sposto e lo rinomino in modo tale che il programma lo riconosca, la prima volta ( quasi sempre solo la prima volta) in cui ci scrivo mi da un errore di permessi sotto riportato per intero. Tale errore non si ripresenta poi più. Il problema è che dopo l'errore, se apro scopro che ha scritto nel file access, solo che non ha terminato di farlo, si blocca in un punto non fisso quindi mi è difficile capirne il motivo. Credo sia legato al sistema operativo in uso.

Errore di run-time '-2147217887(80040e21)':

Impossibile aggiornare. Attualmente bloccato dall' utente Admin sulla macchina "Nome del computer"

 

Mi si blocca in un punto qualsiasi in cui vi è (non sempre lo stesso punto):

 rs.update

Il database lo tengo chiuso durante l'operazione.



Problemi di visualizzazione in fase di esecuzione applicazione

$
0
0
Buonasera,
Sto iniziando una nuova applicazione (è la prima che faccio in vb .net), durante la creazione dell'interfaccia visualizzo tutto perfettamente, ho cambiato i font e qualche colore alle textbox all'interno dei TabControl. Quando effettuo lo START dell'applicazione visualizzo correttamente il MENU ma quando passo il cursore del mouse sopra, appare un cursore bianco e la scritta del menu non ritorna. Se clicco su un menu, mi apre la seconda form di inserimento dati ma anche qui le Etichette appaiono come dei blocchetti bianchi senza visualizzare niente.
COsa potrei aver toccato o impostato ? Generalmente non tocco niente se non so cosa faccio, comunque anche se completamente differenti vengo dall'ambiente Access e VBA, un po' di proprietà le conosco. Grazie mille.

[Installazione VS6] Dove posso trovare CD Librere MSDN?

$
0
0
Ciao a tutti,

Devo installare Visual Studio 6 Enterprise su Windows 10, ho trovato un wizard di installazione che dovrebbe facilitarmi la risoluzione di eventuali problemi di compatibilità:
Visual Studio Installer Wizard 6.0 v4.7 di Giorgio Brausi

Durante il Wizard mi vengono richiesti 2 CD delle MSDN Library, io però ho solamente i 3CD di VS6 e sul sito Microsoft le MSDS Library per VS6 sono state rimosse.

Qualcuno sa dove posso reperirle? altrimenti è possibile saltarne l'installazione?

Grazie in anticipo.

Uso di Using End Using per chiusura connessione db

$
0
0
Nel gestionale che sto sviluppando (o che almeno sto provando a fare) fin'ora ho utilizzato, così come piu' spesso suggeritomi e con cui effettivamente mi sono trovato benissimo, "Using End Using" per la connessione ai dati. Pare però che nonostante il "pooling" , aprire e chiudere continuamente le connessioni rallentano le prestazioni dello stesso e quindi vorrei limitare tali aperture. Ora premesso "End Using" provvede anche a chiudere automaticamente le connessioni, dovrei in teoria farne a meno, è possibbile ovviare a cio' ? Spero di essere stato chiaro, grazie e saluti a tutti.

Gestione telecamera Axis

$
0
0

Buongiorno a tutti,

tramite vb net (visual studio 2008), devo gestire una telecamera Axis, in pratica, quando l'operatore esegue un determinato comando, devo salvare l'immagine.

Fino a qui non ho grossi problemi, ho visto che Axis mette a disposizione un componente AMC (Axis Media Control), che dovrebbe fare questa cosa.

Adesso il cliente mi chiede di scrivere delle righe di testo sull'immagine (volume calcolato del pallet, peso del pallet....che sono dati che il software ha a disposizione).

Ho cercato un po in rete, e si parla do text overlay, qualcuno ha avuto delle esperienze in questo senso ?

Grazie a tutti

Daniele G

 

Installare Visual Studio 6

$
0
0

Al seguente link chi è interessato trova una semplice procedura per installare VS6 su Win10

https://www.codeproject.com/Articles/1191047/Install-Visual-Studio-on-Windows

Aggiungere testo formattato su word con vb.net

$
0
0

ciao a tutti, premetto che ho cercato sia nel forum che sul web, ed in particolare ho visto il post http://www.visual-basic.it/Forum/tabid/151/aft/23831/Default.aspx#102195 , ho ancora un problema da risolvere in quanto sebbene riesca ad aprire il file di word, sostituire dei testi al suo interno, ed aggiungerne altri in un posto specifico con il metodo del post (usando i bookmarks) non ho capito come posso fare a far sì che il mio testo che vado ad aggiungere possa contenere delle parti formattate (nella fattispecie corsivo e caratteri in apice), come nell'esempio che segue : 

Parametri microbiologici:

Valori di Escherichia coli compresi fra 102 UFC/g e 103 UFC/g

Valori di Stafilococchi coagulasi compresi fra 101 UFC/g e 102 UFC/g


per comodità riporto un estratto del mio codice del


Dim objDoc As Word.Document = objWordApp.Documents.Open(TmpFILE.ToString)

objDoc = objWordApp.ActiveDocument

Dim oPara As Word.Paragraph
oPara = objDoc.Content.Paragraphs.Add(objDoc.Bookmarks.Item("mybookmark").Range)
oPara.Range.Text = "Questo è il mio testo aggiunto"
oPara.Range.Font.Bold = False
oPara.Range.InsertParagraphAfter()

objDoc.SaveAs(TmpFILENEW.ToString)

 

Grazie a tutti per la pazienza e per l'aiuto, che spero arrivi :-) 

ps: uso vb.net 2017 

 

Intercettare eccezione da thread diverso

$
0
0

Buonasera a tutti. Nella mia applicazione apro una form in un nuovo thread (con un proprio ciclo di messaggi di Windows). Il codice è simile a quello riportato di seguito. Quello che non riesco ad ottenere è l'intercettazione dal thread chiamante, di eventuali errori non gestiti nel nuovo thread.

Dim T As New Threading.Thread(AddressOf RunNewForm)
T.SetApartmentState(Threading.ApartmentState.STA)
Try
    T.Start()
Catch ex As Exception
    'Questo punto non viene mai raggiunto.
End Try
.
.
.

Private Sub RunNewForm()
    Windows.Forms.Application.Run(New Form1)
End Sub


VB6

$
0
0

Numero progressivo azzerato alla mezzanotte

$
0
0

Ciao a tutti,

Ho un programma (vb net 2008) che gestisce delle pesate, e ad ognuna di queste devo assegnare un numero progressivo azzerato automaticamente alla mezzanotte, in pratica deve ripartire da 1 al cambio della data.

Avrei pensato a gestirlo tramite un file ini, con chiave la data del giorno.

Secondo voi esistono dei metodi più "snelli" ?

Grazie a tutti

Saluti

 

Daniele G

WEB SERVICE - IMPOSSIBILE ACCEDERE A UN FLUSSO CHIUSO

$
0
0

Buongiorno, riapro una mia discussione di un po di tempo fa sui web services per la ricetat dematerializzata delal regione lazio.(http://www.visual-basic.it/Forum/tabid/151/aft/43404/Default.aspx#.WUEJj5Dyhpg)

 

Da un po ricevo l'errore in oggetto: impossibile accedere a un flusso chiuso 

Dim b As New BasicHttpBinding()
        With b
            .TransferMode = TransferMode.Streamed
            .MessageEncoding = WSMessageEncoding.Mtom
            .Security.Mode = BasicHttpSecurityMode.Transport
            .SendTimeout = New TimeSpan(0, 1, 30)
        End With

        Dim ea As EndpointAddress
        Try
            ea = New EndpointAddress(endpointAddressX)
        Catch ex As Exception
            MessageBox.Show("Errore 2: "& ex.Message & ""& ex.ToString)
            Me.Close()
        End Try

        Dim client As WsVisualizzaErogato.visualizzaErogatoPTClient = New WsVisualizzaErogato.visualizzaErogatoPTClient(b, ea)

        client.Endpoint.Behaviors.Add(New ClasseBasicAut.BasicAuthenticationBehavior(username:=utente.Text, password:=password.Text))

        ' Permette di annullare/Bypassare l'errore di certificato non conforme
        System.Net.ServicePointManager.ServerCertificateValidationCallback = Function(sende, certificate, chain, sslPolicyErrors) True


        Dim Req As New WsVisualizzaErogato.visualizzaErogatoRequest
        Dim Resp As New WsVisualizzaErogato.visualizzaErogatoResponse
        Dim Richi As New WsVisualizzaErogato.VisualizzaErogatoRichiesta


        Dim ric As WsVisualizzaErogato.VisualizzaErogatoRicevuta

        Try
            ric = client.visualizzaErogato(er)

        Catch ex As ServiceModel.EndpointNotFoundException
            Dim msg As New StringBuilder
            msg.AppendLine("Controllare la connessione internet")
            msg.AppendLine("")
            msg.AppendLine("Errore: "& ex.Message)
            If Not ex.InnerException Is Nothing Then

                msg.AppendLine("Eccezione: "& ex.ToString())
                'Me.Close() questo
            End If
            MessageBox.Show(msg.ToString, "Messaggio di errore", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception
            ' ERRORE GENERICO
            MessageBox.Show("Errore 3: "& ReadException(ex) & ""& ex.ToString)
            Me.Close()
        End Try

 

questo la parte di codice dove da l errore.

La cosa strana e' che prima con gli endpoint di prova funzionava tutto. ora con gli endpoint  da quest errore.

questo l'endpoint di prova: https://sismed-collaudo.test.laitspa.it/erode-ws/service/VisualizzaErogatoService

questo qeullo definitivo: https://prescrizione.poslazio.it/erode-ws/service/VisualizzaErogatoService

 

Quelli della regione Lazio non rispondono..spero che qualcuno qui mi possa aiutare.

 

Grazie

 

 

Data Report Orientation con Windows 10

$
0
0

Ho montato il mio VB6 in Windows 10, compreso il Service Package 6.

Ho notato che funziona tutto tranne che se aggiungo un nuovo Data Report la proprieta' Orientation non e' riconosciuta (Errore: Impossibile trovare il metodo o il menbro dei dati)

Se invece lancio un vecchio Progetto preparato con Windows 7, esso gira normalmente, compresa la proprieta' Orientation (Landscape).

Ho controllato i Riferimenti del nuovo Progetto in Windows 10 e sono identici a quelli del vecchio Progetto in Windows 7.

So che il problema e' legato al Service Package ma, come detto, l'ho installato.

Ho visto su alcuni Forum che Microsoft in passato ha prodotto una Libreria "PageSet.dll" . Sono riuscito a trovarla (Microsoft l'ha dismessa) ma non riesco a registrarla nel Windows 10 (Syswow64) con Regsvr.exe. L'ho inclusa ugualmente nei Riferimenti ma naturalmente non sorte effetto.

Certamente si possono fare dei Reports anche senza il Data Report ma mi chiedo se qualcuno ha avuto lo stesso problema ?

Grazie.

 

 

MultilingualResource refresh form WPF

$
0
0

Buongiorno

Nella procedura che sto scrivendo mi hanno chiesto di permettere agli utenti di cambiare la lingua del programma a piacimento (bho.... non so il perch&egrave. Ho inserito un combobox con le lingue gestibili ma il problema è che quando scateno la selezione della nuova voce nel combo io cambio la lingua  con CULTUREINFO (utilizzo il MultilingualResources di Microsoft) ma non riesco scatenare il refresh della form per cambiare la descrizione nelle varie label e menu nella lingua richiesta.

Ho cercato nella rete per diversi giorni ma non trovo nulla che funzioni. Volevo sapere se qualcuno ha una soluzione a questo problema.

Un augurio di buon lavoro a tutti

Perini Luca

Viewing all 2212 articles
Browse latest View live