Post recenti

Pagine: [1] 2 3 ... 10
2
Programmazione / Re:Menù popup
« Ultimo post da tornu il 24 Settembre 2017, 21:05:46 »
Presupponendo che il Menu Popup per l'oggetto ListView sia stato creato con l'Editor-Menu dell'IDE con le modalità descritte in questa pagina:
http://www.gambas-it.org/wiki/index.php?title=Creare_Menu_popup_utilizzando_l%E2%80%99editor_di_menu
suggerirei allora il seguente codice:
...

Che dire vuott.... grazie grazie grazie
3
Programmazione / Re:Menù popup
« Ultimo post da Gianluigi il 24 Settembre 2017, 11:59:58 »
Presupponendo che il Menu Popup per l'oggetto ListView sia ...

Quindi si può usare FindAt anche con un menu "preconfezionato", ottimo.  :ok:
Bene a sapersi, però mi chiedo: Una volta che mi hai fatto conoscere FindAt perché non ci ho pensato?
Mi vergogno molto  :-[

 :ciao: :ciao:
4
Programmazione / Re:Menù popup
« Ultimo post da vuott il 24 Settembre 2017, 01:16:17 »
Mi sono arreso, con il menù popup creato con l'Editor Menu non sono riuscito ad avere il controllo che mi serviva.



Presupponendo che il Menu Popup per l'oggetto ListView sia stato creato con l'Editor-Menu dell'IDE con le modalità descritte in questa pagina:
http://www.gambas-it.org/wiki/index.php?title=Creare_Menu_popup_utilizzando_l%E2%80%99editor_di_menu
suggerirei allora il seguente codice:

Codice: [Seleziona]
Public Sub Form_Open()

  With ListView1
    .Add("chiave0", "aaaaa")
    .Add("chiave1", "bbbbb")
    .Add("chiave2", "ccccc")
  End With
 
End

Public Sub ListView1_MouseDown()

  ListView1.PopupMenu = Null
  If ListView1.FindAt(Mouse.X, Mouse.Y) Then Return
  ListView1.PopupMenu = "mnuPopup"
 
End


Public Sub Action_Activate(sKey As String) As Boolean

 Select Case sKey
   Case "popup-taglia"
     PopupTaglia()
   Case "popup-copia"
     PopupCopia()
   Case "popup-incolla"
     PopupIncolla()
 End Select
 
End

Private Sub PopupTaglia()
 
 Clipboard.Current = 0

   Clipboard.Copy(ListView1.Current.Text)
   ListView1.Current.Text = Null

 
End

Private Sub PopupCopia()

 Clipboard.Current = 0
 If ListView1.Current.Text Then Clipboard.Copy(ListView1.Current.Text)
 
End

Private Sub PopupIncolla()

 Clipboard.Current = 0
 ListView1.Current.Text = Clipboard.Paste()
 
End
5
Programmazione / Re:Menù popup
« Ultimo post da tornu il 23 Settembre 2017, 22:10:20 »
Mi sono arreso, con il menù popup creato con l'Editor Menu non sono riuscito ad avere il controllo che mi serviva.
Con il codice suggeritomi da vuott ho ottenuto ciò che mi serviva, ora il menu popup viene visualizzato solo
se clicco con il tasto destro sui dati visualizzati nella TableView e non in qualsiasi parte della stessa.
Solo alcune indicazioni aggiuntive (vedi commenti sulle righe) se qualcuno dovesse utilizzare questo codice:
Codice: [Seleziona]
Public Sub Form_Open()

  With ListView1
    .Add("chiave0", "aaaaa")
    .Add("chiave1", "bbbbb")
    .Add("chiave2", "ccccc")
  End With

End


Public Sub ListView1_MouseUp()

  Dim menu1, submenu1, submenu2 As Menu
  Dim j, k, b As Byte

   If Mouse.Right Then
     If ListView1.FindAt(Mouse.X, Mouse.Y) Then Return
    ' Crea innanzitutto il Menu principale:
       menu1 = New Menu(Me, False)  'La variabile booleana in questo caso non è indispensabile

' Poi crea quattro sotto-Menu:
       For j = 1 To 4
         submenu1 = New Menu(menu1) As "submenu1"  'Senza non viene sollevato l'evento submenu1_click()
' Mostra il testo per ciascuno dei quattro sotto-Menu:
         submenu1.Text = "submenu1_" & CStr(j)
         
' Poi crea tre sotto-Menu per ciascun precedente sotto-Menu:
         For k = 1 To 3
           submenu2 = New Menu(submenu1)
           b += 1
' Mostra il testo per ciascuno dei tre sotto-Menu:
           submenu2.Text = "submenu2_" & CStr(b)
' Assegna all'azione, quando si cliccherà su uno dei secondi sotto-Menu,
' il testo del secondo sotto-Menu medesimo:
           submenu2.Action = submenu2.Text
         Next
       Next

' Mostra quindi le finestre di ciascun Menu:
       menu1.Popup

   Endif

End
6
OpenBar / Re:Stampa 3D possibile per almeno 4.500 leghe metalliche
« Ultimo post da splugenbrau il 23 Settembre 2017, 17:58:15 »
Forse avremo presto una stampante 3D per basette circuitali,
invece di buttare nel lavandino tutti quegli acidi.
7
Programmazione / Re:Problema con PdfWriter
« Ultimo post da Gianluigi il 23 Settembre 2017, 13:54:35 »
Ciao Franco,
ho capito quale è il problema, le combobox nel progetto di Golia vengono erroneamente chiamate con Me.ComboQualsiasi.
Si tratta di un errore in questo modo possono solo essere chiamati gli oggetti pubblici mentre invece gli oggetti (controlli) di un form sono di default privati.
Puoi cambiare i controlli a public cosa deprecata e che ti sconsiglio oppure eliminare tutti i "Me." presenti nel codice, cosa auspicabile.
Ti invito a fare questa semplice prova in un nuovo progetto grafico con una combo (cbProva), prima provi ad avviare questo codice senza cambiare la proprietà public della combo, vedrai cosa ti dice Gambas, e dopo prova con public a true:

Codice: [Seleziona]
Public Sub Form_Open()

  Me.cbProva.Add("Pippo")

End
:ciao:
8
Programmazione / Re:Problema con PdfWriter
« Ultimo post da Franco_da_vc il 23 Settembre 2017, 12:29:45 »
puoi allegarmi il progetto?, basta solo la parte della stampa

Va bene, ti ho tolto tutto ciò che non riguarda la parte di stampa, ma penso che ciò non influenzerà la problematica perché non avevo ancora inserito mie variabili nella routine di stampa

Ti ringrazio Golia, ciaoooooo :ciao:
9
Programmazione / Re:Problema con PdfWriter
« Ultimo post da Golia il 22 Settembre 2017, 22:37:27 »
puoi allegarmi il progetto?, basta solo la parte della stampa
10
Programmazione / Re:Problema con PdfWriter
« Ultimo post da Franco_da_vc il 22 Settembre 2017, 20:38:27 »
Grazie Golia,

forse ho intuito.
Nella classe di stampa che hai creato non devi omettere anche se non usi, le tre opzioni
Citazione
Public Function Data(Optional data1 As Variant[], Optional data2 As Variant, Optional data3 As Variant)

Dunque, fammi capire: il mio codice che porta alla stampa del documento è, anche se per ora molto scarno ed incompleto:
Codice: [Seleziona]
Public Sub ButtonStampaNorm_Click()

'  SceltaStampante.Show
  STAMPA_NORMALE()

End

Public Procedure STAMPA_NORMALE()
'#################################################################### Procedura di stampa di un D.D.T. (NON FACIT)#####
  Dim sw_stampa As Boolean '##### Switch stampa                                                                   #####
  Dim lin As Integer '##### Contatore di linea                                                                    #####
  Dim filler$ As String '##### Comodo per contenere gli spazi prima di una stampa                                 #####
  Dim lung As Integer '##### Variabile per immagazzinare la lunghezza di una stringa                              #####
  Dim var1$ As String '##### Variabile trasporto numero di capi                                                   #####
  Dim var2$ As String '##### Variabile trasporto tipo capo                                                        #####
  Dim var3$ As String '##### Variabile di trasporto -= campo vuoto =-                                             #####
  Dim var4$ As String '##### Variabile di trasporto tipo lavorazione                                              #####
  Dim var5$ As String '##### Variabile di trasporto prezzo totale lavorazione                                     #####
  Dim var6$ As String '##### Variabile di trasporto prezzo netto totale lavorazione                               #####
  Dim var7$ As String '##### Variabile di trasporto iva totale lavorazione                                        #####

'######################################################################################################################
'##### D.D.T. per negozi "NORMALI"                                                                                #####
'#####                                                                                                            #####
'##### visual$(0) ===> Numero di capi                                                                             #####
'##### visual$(1) ===> Tipo capo                                                                                  #####
'##### visual$(2) ===> Empty                                                                                      #####
'##### visual$(3) ===> Tipo lavorazione                                                                           #####
'##### visual$(4) ===> Prezzo                                                                                     #####
'#####                                                                                                            #####
'######################################################################################################################

  PrintPdf.Run("DDTNormale", ["portrait", "mm", "A4"])
End
dopo di cui le routine sono quelle originali di PdfWriter, anche la routine DDTNormale che vedi nel richiamo a PrintPdf.run non è altri che PDFDDT del pacchetto originale rinominata perchè il programma che sto traducendo deve poter fare stampare due tipi di bolle diverse, quindi
Codice: [Seleziona]
Public Function Data(Optional data1 As Variant[], Optional data2 As Variant, Optional data3 As Variant)
in DDTNormale e comunque contenuto; oltretutto l'errore che si verifica
Codice: [Seleziona]
Unknowm symbol 'cbformato' in class container in PrintPdf
più che dirmi che non trova l'oggetto cbformato che comunque è presente nel form PrintPdf.Form, mi da l'idea che sia causato dalla non formazione dell'oggetto "Me", infatti la riga è:
Codice: [Seleziona]
Me.cbFormato.Index = 1
A meno che le variabili che hai citato non debbano essere inserite nelle dichiarazioni all'inizio della procedura stampa normale o nella chiamata della stessa procedura.
Che ne dici? (mi rendo conto di avervi piazzato una pizza un po' enorme  :rolleyes: :rolleyes:)

Vi ringrazio, Ciaoooooo :ciao: :ciao:
Pagine: [1] 2 3 ... 10