211
OpenBar / Nuova icona Gambas
« il: 22 Settembre 2015, 13:29:48 »avete visto la nuova icona di gambas?
io la trovo orrenda!
ridateci il gamberetto!
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
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.
Print #SerialPort1, txtSend;
Print FMain.#SerialPort1, txtSend;
' Gambas class file
Public Sub _new()
Dim iwidth As Integer
Dim irowcounter As Integer
Dim icolcounter As Integer
ColumnView1.Columns.count = 3
iwidth = ColumnView1.Width / ColumnView1.Columns.Count
ColumnView1.Columns[0].Alignment = Align.left
ColumnView1.Columns[0].Width = iwidth
ColumnView1.Columns[0].text = "Data"
ColumnView1.Columns[1].Width = iwidth
ColumnView1.Columns[1].text = "Valore"
ColumnView1.Columns[2].Width = iwidth
ColumnView1.Columns[2].text = "Stato"
For irowcounter = 0 To 4 'crea 5 righe
ColumnView1.Add(irowcounter, icolcounter)
For icolcounter = 0 To ColumnView1.Columns.Count - 1 'crea le colonne
ColumnView1[irowcounter][icolcounter] = "Col: " & icolcounter & "Row: " & irowcounter
Next 'column
Next 'row
End 'our constructor
' Gambas class file
Private hMap As New Map
Public Sub _New()
With hMap.AddTile("OpenStreet", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png")
.Copyright = "OpenStreetMap contributors"
End With
End
Public Sub DrawingArea1_Draw()
hMap.Center.Lat = 45
hMap.Center.Lon = 9
'hMap.Zoom = 10
hMap.Width = Draw.Width
hMap.Height = Draw.Height
hMap.Draw()
DrawingArea1.Refresh()
End
Gambas3 - DEVELOPMENT VERSION; USE AT YOUR OWN RISK!
MapPoint.Lat (gb.map)
Property Lat As Float
Return or Set the latitude of the point.
Public Sub _new()
MapView1.Map.AddTile("OpenStreetMap", "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png", Null).Copyright = "© OpenStreetMap contributors"
'MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.fr/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "141"], "gm").SubDomains = ["0", "1", "2"]
End
Public Sub Form_Open()
Me.center
End
Public Sub MapView1_MouseDown()
Print MapPoint.Lat, MapPoint.Lon 'NON FUNZIONA!!
End