Programmazione.it v6.4
Ciao, per farti riconoscere devi fare il login. Non ti sei ancora iscritto? Che aspetti, registrati adesso!
Info Pubblicit� Collabora Autori Sottoscrizioni Preferiti Bozze Scheda personale Privacy Archivio Libri Corsi per principianti Forum
Forum :: Programmazione.it :: Visual Basic :: [Risolto] VB6: come impostare il codice per una picture box
Scritto da kickoff il 08-01-2017 ore 21:32
Salve comunity, posto la soluzione del thread precedente:
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Calcolo della potenza elettrica "
  5.    ClientHeight    =   5100
  6.    ClientLeft      =   150
  7.    ClientTop       =   720
  8.    ClientWidth     =   8565
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   5100
  13.    ScaleWidth      =   8565
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command3 
  16.       Caption         =   "Esci"
  17.       Height          =   855
  18.       Left            =   6600
  19.       Picture         =   "Form1.frx":0000
  20.       Style           =   1  'Graphical
  21.       TabIndex        =   12
  22.       ToolTipText     =   "Termina il programma"
  23.       Top             =   3600
  24.       Width           =   1455
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "Calcola P [W]"
  28.       Height          =   615
  29.       Left            =   2280
  30.       TabIndex        =   11
  31.       Top             =   3840
  32.       Width           =   1335
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "Azzera"
  36.       Height          =   615
  37.       Left            =   4200
  38.       TabIndex        =   10
  39.       Top             =   3840
  40.       Width           =   1335
  41.    End
  42.    Begin VB.Frame Frame2 
  43.       Caption         =   "Risultato"
  44.       Height          =   1215
  45.       Left            =   2040
  46.       TabIndex        =   7
  47.       Top             =   2280
  48.       Width           =   3735
  49.       Begin VB.TextBox Text3 
  50.          Height          =   375
  51.          Left            =   2160
  52.          TabIndex        =   8
  53.          Top             =   360
  54.          Width           =   1335
  55.       End
  56.       Begin VB.Label Label3 
  57.          Caption         =   "P [Watt]"
  58.          Height          =   255
  59.          Left            =   600
  60.          TabIndex        =   9
  61.          Top             =   360
  62.          Width           =   975
  63.       End
  64.    End
  65.    Begin VB.Timer Timer2 
  66.       Interval        =   1000
  67.       Left            =   7920
  68.       Top             =   0
  69.    End
  70.    Begin VB.TextBox Time1 
  71.       Height          =   285
  72.       Left            =   6600
  73.       TabIndex        =   3
  74.       Top             =   120
  75.       Width           =   1215
  76.    End
  77.    Begin VB.Timer Timer1 
  78.       Interval        =   1000
  79.       Left            =   8640
  80.       Top             =   840
  81.    End
  82.    Begin VB.Frame Frame1 
  83.       Caption         =   "Inserimento valori"
  84.       Height          =   1575
  85.       Left            =   2040
  86.       TabIndex        =   0
  87.       Top             =   600
  88.       Width           =   3735
  89.       Begin VB.TextBox Text1 
  90.          Height          =   375
  91.          Left            =   2160
  92.          TabIndex        =   2
  93.          Top             =   360
  94.          Width           =   1335
  95.       End
  96.       Begin VB.TextBox Text2 
  97.          Height          =   375
  98.          Left            =   2160
  99.          TabIndex        =   1
  100.          Top             =   960
  101.          Width           =   1335
  102.       End
  103.       Begin VB.Label Label1 
  104.          Caption         =   "R [Ohm]"
  105.          Height          =   255
  106.          Index           =   0
  107.          Left            =   600
  108.          TabIndex        =   6
  109.          Top             =   360
  110.          Width           =   975
  111.       End
  112.       Begin VB.Label Label2 
  113.          Caption         =   "I   [Ampre]"
  114.          Height          =   255
  115.          Index           =   1
  116.          Left            =   600
  117.          TabIndex        =   5
  118.          Top             =   960
  119.          Width           =   975
  120.       End
  121.    End
  122.    Begin VB.Label Label4 
  123.       Caption         =   "Time of system"
  124.       Height          =   255
  125.       Left            =   5400
  126.       TabIndex        =   4
  127.       Top             =   120
  128.       Width           =   1215
  129.    End
  130.    Begin VB.Menu mnFile 
  131.       Caption         =   "&File"
  132.       Begin VB.Menu mnCalcola 
  133.          Caption         =   "&Calcola"
  134.       End
  135.       Begin VB.Menu mnAzzera 
  136.          Caption         =   "&Azzera"
  137.       End
  138.       Begin VB.Menu mnSepara 
  139.          Caption         =   "-"
  140.       End
  141.       Begin VB.Menu mnEsci 
  142.          Caption         =   "&Esci"
  143.          Shortcut        =   ^E
  144.       End
  145.    End
  146.    Begin VB.Menu mnAbout 
  147.       Caption         =   "&About"
  148.    End
  149.    Begin VB.Menu mnLicenza 
  150.       Caption         =   "&Licenza"
  151.    End
  152. End
  153. Attribute VB_Name = "Form1"
  154. Attribute VB_GlobalNameSpace = False
  155. Attribute VB_Creatable = False
  156. Attribute VB_PredeclaredId = True
  157. Attribute VB_Exposed = False
  158. Private Sub Form_Load()
  159. Form1.Visible = True
  160. frmSplash.Hide
  161. 'sposta il cursore sulla prima casella di testo
  162. Form1.Show
  163. Text1.SetFocus
  164. End Sub
  165. Private Sub Command1_Click()
  166. 'calcola i valori inseriti nelle caselle di testo text1 e text2
  167.   Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
  168. End Sub
  169. Private Sub Command2_Click()
  170. 'azzera le caselle di testo
  171. ' e riporta il cursore sulla prima
  172. Text1.Text = ""
  173. Text2.Text = ""
  174. Text3.Text = ""
  175. Text1.SetFocus
  176. End Sub
  177. Private Sub Command3_Click()
  178. 'esce dal programma quando viene premuto il tasto "esci"
  179.   Unload Me
  180. End Sub
  181. Private Sub mnAbout_Click()
  182.  frmAbout.Show vbModal
  183. End Sub
  184.  
  185. Private Sub mnAzzera_Click()
  186. 'azzera le caselle di testo
  187. ' e riporta il cursore sulla prima
  188. Text1.Text = ""
  189. Text2.Text = ""
  190. Text3.Text = ""
  191. Text1.SetFocus
  192. End Sub
  193.  
  194. Private Sub mnCalcola_Click()
  195. 'calcola i valori inseriti nelle caselle di testo text1 e text2
  196.   Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
  197. End Sub
  198.  
  199. Private Sub mnLicenza_Click()
  200. frmLicense.Show vbModal
  201. End Sub
  202. Private Sub mnEsci_Click()
  203. 'esce dal programma mediante il comando "Esci" presente nel men "File"
  204. Unload Me
  205. End Sub
  206.  
  207. Private Sub Text3_Change()
  208. 'porta il cursore sul pulante "Azzera"
  209. Command3.SetFocus
  210. End Sub
  211.  
  212. Private Sub Timer1_Timer()
  213. 'visualizza l'ora di sistema da quando  stata_
  214. 'avviata l'applicazione
  215. Time1.Text = Time()
  216. End Sub
Precedente: Neolaureati in Informatica, Ingegneria, Matematica
Intervento di kickoff del 08-01-2017 ore 21:39
Plebeo
Plebeo

(3 interventi)
Iscritto il 20-05-2015
Scusatemi, ho dimenticato di dirvi che il codice sviluppato in ambiente Visual Basic 6.0 Enterprise edition.
Ho potuto provarlo sia nella versione inglese che in italiano.
Mi piacerebbe postare anche il file rar, ma non vi modo di farlo qui.

Comunque vi saluto per adesso.
Copyright Programmazione.it™ 1999-2017. Alcuni diritti riservati. Testata giornalistica iscritta col n. 569 presso il Tribunale di Milano in data 14/10/2002. Pagina generata in 0.153 secondi.