comandi visual basic

[NicVeg]

scusate ragazzi sto seguendo la guida di visual basic, ma non mi tornano alcuni comandi ad esempio sulla guida c'è un comando del tipo Me.Print ma quando lo vado a scrivere su visual studio non esiste proprio il comando, mi esce solamente Me.OnPrint ma non è il comando desiderato sbaglio qualcosa o forse la guida è vecchia?

[oregon]

o forse la guida è vecchia?

Quale guida? Quale versione di VB?

[NicVeg]

questa qui? perche ce ne sono altre di guide in visual basic in questo sito?

comunque sto seguendo questa
http://www.html.it/guide/guida-visual-basic/

[SirJo]

Mica possiamo indovinare cosa stai facendo, non ti pare ??

Innanzitutto non hai specificato che si tratta di VB6, io pensavo che parlavi di VB.NET, e poi non hai detto il "Me" a cosa è riferito (potrebbe essere un form, una classe, o altre cose).

Inoltre non hai spiegato cosa vuoi fare e cosa ti serve il Print.

In quale pagina del sito hai trovato il comando Me.Print ???
Sulla pagina che hai segnalato non lo vedo.

E' difficile aiutarti se le cose dobbiamo indovinarle, non credi ??

Sergio

[NicVeg]

scusa hai ragione è che sto alle prime armi e non sono entrato ancora nell'ottica, non so quale sia la differenza tra vb6 e vb.net mi puoi dire come si fa a vederlo? ti posso dire che ho scaricato visual studio ultimate 2013 e programmo da li cmq l'esempio è sul form, praticamente vorrei riportare gli esempi della guida e farli girare su visual studio, la lezione di riferimento è la 6 dove parla degli eventi del mouse il codice che vorrei riprodurre è questo

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Print “E’ stato premuto un tasto del mouse.”
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Print “E’ stato rilasciato un tasto del mouse.” End Sub
ma non mi accetta il Me.Print ecc...

[oregon]

Stai usando VB.NET ma segui una guida per il VB6. Non va bene, ci sono tante differenze che non ha senso farlo.

Compra un libro su VB.NET (ne esistono tantissimi in libreria) e studialo.

[NicVeg]

praticamente mi serve per capire in che linguaggio sono scritti degli algoritmi che mi ha dato il professore se hai tempo potresti darci un occhiata se sono in VB.NET o in VB6, ti mando alcuni degli algoritmi grazie, scusate ma non riesco a mandare gli allegati come posso fare? non fa mandare il codice?

[SirJo]

Prova a scrivere qui alcune righe del codice (non serve tutto, lo si capisce subito) e ti diciamo se è VB6 o VB.NET

[NicVeg]

ok grazie ecco qui:

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "DBInterface"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public connessione As String
Private cn As New ADODB.Connection


Public Function apri()


cn.Open connessione

End Function


Public Function chiudi()


cn.Close


End Function


Public Function leggi_tabelle() As Recordset
'tabelle
Set leggi_tabelle = cn.OpenSchema(adSchemaTables)


End Function


Public Function leggi_campi(tabella As String) As Recordset
'campi
Set leggi_campi = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, tabella))


End Function


Public Function leggi_chiavi(tabella As String) As Recordset
'chiavi
On Error Resume Next
Set leggi_chiavi = cn.OpenSchema(adSchemaPrimaryKeys, Array(Empty, "dbo", tabella))


End Function




Public Function leggi_dati(query As String) As Recordset


Set rec = New ADODB.Recordset
rec.Open query, cn, 1
Set leggi_dati = rec


'Set leggi_dati = cn.Execute(query)


End Function




Public Function aggiungi(ByVal i As Integer, ParamArray dati()) As Boolean
'aggiunge un record
'i =numero di parametri -1
'dati()=nome tabella + coppie(campo, valore)
'esempio: 6, "prova", "id", 6, "valore1", 11, "valore2", 33)


On Error GoTo gesterr


aggiungi = False


query = "select * from " & dati(0)


Set rec = New ADODB.Recordset
rec.Open query, cn, 0, 3


rec.AddNew
For j = 1 To i - 1
rec.Fields(dati(j)).Value = dati(j + 1)
j = j + 1
Next
rec.Update
rec.Close


aggiungi = True
Exit Function


gesterr:
MsgBox "Errore", vbCritical, "DBInterface::Aggiungi"
End Function




Public Function elimina(ByVal i As Integer, ParamArray dati()) As Boolean
'elimina un set di record
On Error GoTo gesterr


elimina = False


Set rec = New ADODB.Recordset


'costruisce il filtro
filtro = " where"
param = dati(2)
If IsNumeric(param) = False Then param = Chr(34) & param & Chr(34)
filtro = filtro & " " & dati(1) & "=" & param


For j = 3 To i - 1
param = dati(j + 1)
If IsNumeric(param) = False Then param = Chr(34) & param & Chr(34)
filtro = filtro & " AND " & dati(j) & "=" & param
j = j + 1
Next


query = "select * from " & dati(0) & filtro


rec.Open query, cn, 0, 3


Do While Not rec.EOF
rec.Delete
rec.MoveNext
Loop
rec.Close
elimina = True
Exit Function


gesterr:
MsgBox "Errore", vbCritical, "DBInterface::Elimina"


End Function

[SirJo]

Questo codice è VB6,
quindi non puoi usare il Visual Studio che hai, devi procurarti il Visual Basic 6.0

Sergio