VirtualBox

source: vbox/trunk/src/VBox/Frontends/VBoxShell/vboxinfo.vb@ 85836

Last change on this file since 85836 was 82968, checked in by vboxsync, 5 years ago

Copyright year updates by scm.

  • Property svn:eol-style set to CRLF
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1' $Id: vboxinfo.vb 82968 2020-02-04 10:35:17Z vboxsync $
2'' @file
3' ???
4'
5
6'
7' Copyright (C) 2009-2020 Oracle Corporation
8'
9' This file is part of VirtualBox Open Source Edition (OSE), as
10' available from http://www.virtualbox.org. This file is free software;
11' you can redistribute it and/or modify it under the terms of the GNU
12' General Public License (GPL) as published by the Free Software
13' Foundation, in version 2 as it comes in the "COPYING" file of the
14' VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15' hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16'
17
18Imports System
19Imports System.Drawing
20Imports System.Windows.Forms
21
22Module Module1
23
24 Sub Main()
25 Dim vb As VirtualBox.IVirtualBox
26 Dim listBox As New ListBox()
27 Dim form As New Form
28
29 vb = CreateObject("VirtualBox.VirtualBox")
30
31 form.Text = "VirtualBox version " & vb.Version
32 form.Size = New System.Drawing.Size(400, 320)
33 form.Location = New System.Drawing.Point(10, 10)
34
35 listBox.Size = New System.Drawing.Size(350, 200)
36 listBox.Location = New System.Drawing.Point(10, 10)
37
38 For Each m In vb.Machines
39 listBox.Items.Add(m.Name & " [" & m.Id & "]")
40 Next
41
42 form.Controls.Add(listBox)
43
44 'form.ShowDialog()
45 form.Show()
46 MsgBox("OK")
47 End Sub
48
49End Module
50
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette