19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Installata la 3.19.0 sulla mia Debian, un controllo Dirview non mi mostra piu' i link simbolici: mi sono perso qualcosa?
Perché a me non funzionaA me funziona.......siete voi evidentemente che state antipatici a quel codice !
path = "/path/of/file"
mi sembri toppo avanti , ho provato a copiare incollare il codice dove dici ma non va mi da erroreQuale errore, puoi riportarlo qui?
ma non c-e- la possibilità di aggiungere le colonne da interfaccia grafica ?? va fatto solo cosi ??Come già detto Gambas è un linguaggio di programmazione e normalmente ci sono molti modi di ottenere un risultato e quasi sempre (come in questo caso) attraverso il codice
qualche prova ancora e mi avventuro nella wiki.....
...ma la mia proposta perché non va bene ?
mi sembri toppo avanti , ho provato a copiare incollare il codice dove dici ma non va mi da errore , mi sembra particolarmente difficile , ma non c-e- la possibilita di aggiungere le colonne da interfaccia grafica ?? va fatto solo cosi ??
Private hColumnView As ColumnView
Public Sub Form_Open()
Dim hHBox As HBox
Dim hButton As Button
Me.Arrangement = Arrange.Vertical
Me.Margin = True
With hColumnView = New ColumnView(Me) As "ColumnView1"
.Expand = True
.Columns.count = 4
'.Header = False
.Columns[0].Alignment = Align.Center
.Columns[0].Title = "Nome"
.Columns[1].Title = "Amici 1"
.Columns[2].Title = "Amici 2"
.Columns[3].Title = "In competizione con"
.add("first", "Pippo", Picture["icon:/16/clock"])
hColumnView["first"][1] = "Pluto"
hColumnView["first"][2] = "Paperino"
hColumnView["first"][3] = "Gastone"
.add("second", "Topolino", Picture["icon:/16/group"])
hColumnView["second"][1] = "Minnie"
hColumnView["second"][2] = "Basettoni"
hColumnView["second"][3] = "Gamba di legno"
.Columns[1].Width = -1
.Columns[2].Width = -1
.Columns[3].Width = -1
End With
With hHBox = New HBox(Me)
.H = 35
End With
With hButton = New Button(hHBox) As "Button1"
.W = 120
.Text = "Add Column"
End With
End
Public Sub ColumnView1_Click()
Dim hGrid As GridView = hColumnView.Children[0]
Print "Colonna "; hGrid.Column
Print "Chiave "; Quote(hColumnView.Current.Key)
Print "Valore "; Quote(hColumnView[hColumnView.Current.Key][hGrid.Column]); "\n"
Print hColumnView.Item[hGrid.Column]
End
Public Sub Button1_Click()
With hColumnView
.Columns.Count = 5
.Columns[4].Title = "Age"
hColumnView["first"][4] = "31"
hColumnView["second"][4] = "28"
End With
End
Public Sub Main()
Dim sPath, sFM As String
Dim aFM As String[] = ["konqueror", "nautilus", "dolphin", "mc", "krusader", "pcmanfm-qt", "pcmanfm", "xfe", "nemo", "thunar", "spacefm", "caja", "ranger", "deepin", "polo", "cfiles", "emacs", "vifm", "worker", "nnn", "wcm", "4panel", "lf", "jfileprocessor", "qtfm", "fman", "ytree", "liri", "pantheon", "doublecmd"]
Dim aInstallFM As New String[]
For i As Integer = 0 To aFM.Max
sPath = "/usr/bin" &/ aFM[i]
If Exist(sPath) Then
aInstallFM.Push(aFM[i])
Endif
Next
For Each sFM In aInstallFM
Print sFM
Next
EndDa qualche tempo, noto una limitazione nel webview che mi da' un po' fastidio. Uso questo componente in una applicazione che mi serve per trovare alcune tag per i miei file multimediali, e mi e' comodo usare discogs.com. Il fatto e' che, a causa di Gambas o del sito, parte della pagina e' dinamicamente composta, e non me la riporta nel controllo. Mostro un semplice esempio nell'immagine allegata: a sinistra la pagina (https://www.discogs.com/artist/1038288-King-Salami-The-Cumberland-Three) come e' visualizzata da Firefox, a destra come la monta il mio webview. Come si vede, barra sopra ma sopratutto la parte sotto non c'e'
Mi viene il dubbio che ci sia un qualche sistema veloce per ovviare a questa cosa, ma mi vengono in mente solo cose dalle complicazioni inversamente proporzionate al mio tempo libero
Public Sub Form_Open()
WebView1.Url = "https://www.discogs.com/artist/1038288-King-Salami-The-Cumberland-Three"
EndMinisini l'ha sistemata con il commit: 8d934932
Succede che per PosLavori=0 viene eseguita correttamente la IF, ma il controllo non esce dal CASE (come io pensavo) e continua nelle righe sottostanti andando ad eseguire il secondo SetFocus; in effetti però, non ho inserito il Wait, pensi che questo possa essere il problema.
Comenque ti ringrazio Gianluigi, sei sempre solerte e proattivo come tuo solito.
Il ragionamento che avevo impostato era: dopo essere entra nel Case 1 se PosLavori è uguale a 0 il programma deve eseguire il primo SetFocus, mentre per valori di PosLavori diversi si sarebbe passato all'esecuzione delle linee sotto la IF incontrando il secondo SetFocus ed agendo di conseguenza.
Succede che per PosLavori=0 viene eseguita correttamente la IF, ma il controllo non esce dal CASE (come io pensavo) e continua nelle righe sottostanti andando ad eseguire il secondo SetFocus