[Mono-docs-list] Some examples in VB

Carlos Alberto Cortez is118149@mail.udlap.mx
20 Mar 2003 04:33:28 -0600


--=-gaKqNBHmWBX17OZbIiZ8
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

hello:

I've written some examples in gtk# using visual basic, based on the
monkeyguide tutorial ( I have the intention to write them all in vb ),
you only need to compile it with "mbas the-source.vb -r gtk-sharp.dll"
and presto! :)

Maybe it would be a good idea to include them in the Monkey Guide
tutorial :)

regards,
carlos.
-- 
--------------------------------------------------
/* The definition of myself */
using Cortez;
using GeniusIntelligence;

public class Carlos : Human, IGenius, ILinuxUser {

	static void Main () {
		Me.Born();
	}

}

--------------------------------------------------

--=-gaKqNBHmWBX17OZbIiZ8
Content-Disposition: attachment; filename=buttons-basic.vb
Content-Type: x-directory/normal; name=buttons-basic.vb
Content-Transfer-Encoding: base64

JyBHdGsjIGV4YW1wbGUKJyBCeSBDYXJsb3MgQWxiZXJ0byBDb3J0ZXogR3VldmFyYSA8aXMxMTgx
NDlAbWFpbC51ZGxhcC5teD4KCmltcG9ydHMgU3lzdGVtCmltcG9ydHMgR3RrCmltcG9ydHMgR3Rr
U2hhcnAKCiBQdWJsaWMgTW9kdWxlIEJ1dHRvbnMKCglGdW5jdGlvbiBYcG1MYWJlbEJveCAoIHhw
bUZpbGVuYW1lIGFzIHN0cmluZywgbGFiZWxUZXh0IGFzIHN0cmluZyApIGFzIFdpZGdldAoKCQlE
aW0gYm94IGFzIEhCb3ggPSBuZXcgSEJveChmYWxzZSwgMCkKCQlib3guQm9yZGVyV2lkdGggPSAy
CgoJCURpbSBpbWFnZSBhcyBJbWFnZSA9IG5ldyBJbWFnZSh4cG1GaWxlbmFtZSkKCgkJRGltIGxh
YmVsIGFzIExhYmVsID0gbmV3IExhYmVsKGxhYmVsVGV4dCkKCgkJYm94LlBhY2tTdGFydChpbWFn
ZSwgZmFsc2UsIGZhbHNlLCAzKQoJCWJveC5QYWNrU3RhcnQobGFiZWwsIGZhbHNlLCBmYWxzZSwg
MykKCgkJaW1hZ2UuU2hvdygpCgkJbGFiZWwuU2hvdygpCgoJCXJldHVybiBib3gKCglFbmQgRnVu
Y3Rpb24KCglTdWIgQ2FsbGJhY2sgKCBCeVZhbCBvYmogYXMgb2JqZWN0LCBCeVZhbCBhcmdzIGFz
IEV2ZW50QXJncyApCgoJCUNvbnNvbGUuV3JpdGVMaW5lKCJIZWxvIGFnYWluIC0gY29vbCBidXR0
b24gd2FzIHByZXNzZWQiKQoKCUVuZCBTdWIKCglTdWIgT25EZWxldGVFdmVudCAoIEJ5VmFsIG9i
aiBhcyBvYmplY3QsIEJ5VmFsIGFyZ3MgYXMgRGVsZXRlRXZlbnRBcmdzICkKCgkJQXBwbGljYXRp
b24uUXVpdCgpCgoJRW5kIFN1YgoKCVB1YmxpYyBTdWIgTWFpbiAoKQoKCQlBcHBsaWNhdGlvbi5J
bml0KCkKCgkJRGltIHdpbmRvdyBhcyBXaW5kb3cgPSBuZXcgV2luZG93KCJQaXhtYXAgZCcgQnV0
dG9ucyAhIikKCQlBZGRIYW5kbGVyIHdpbmRvdy5EZWxldGVFdmVudCwgQWRkcmVzc09mIE9uRGVs
ZXRlRXZlbnQKCQl3aW5kb3cuQm9yZGVyV2lkdGggPSAxMAoKCQlEaW0gYnV0dG9uIGFzIEJ1dHRv
biA9IG5ldyBCdXR0b24oKQoJCUFkZEhhbmRsZXIgYnV0dG9uLkNsaWNrZWQsIEFkZHJlc3NPZiBD
YWxsYmFjawoKCQlEaW0gYm94IGFzIFdpZGdldCA9IFhwbUxhYmVsQm94KCJpbmZvLnhwbSIsICJj
b29sIGJ1dHRvbiIpCgkJYm94LlNob3coKQoKCQlidXR0b24uQWRkKGJveCkKCgkJd2luZG93LkFk
ZChidXR0b24pCgoJCXdpbmRvdy5TaG93QWxsKCkKCgkJQXBwbGljYXRpb24uUnVuKCkKCglFbmQg
U3ViCgogRW5kIE1vZHVsZQoK

--=-gaKqNBHmWBX17OZbIiZ8
Content-Disposition: attachment; filename=checkbuttons-basic.vb
Content-Type: x-directory/normal; name=checkbuttons-basic.vb
Content-Transfer-Encoding: base64

JyBHdGsjIGV4YW1wbGUKJyBCeSBDYXJsb3MgQWxiZXJ0byBDb3J0ZXogR3VldmFyYSA8aXMxMTgx
NDlAbWFpbC51ZGxhcC5teD4KCmltcG9ydHMgU3lzdGVtCmltcG9ydHMgR3RrCmltcG9ydHMgR3Rr
U2hhcnAKCiBQdWJsaWMgTW9kdWxlIENoZWNrQnV0dG9ucwoKCVN1YiBPbkRlbGV0ZUV2ZW50ICgg
QllWYWwgb2JqIGFzIG9iamVjdCwgQnlWYWwgYXJncyBhcyBEZWxldGVFdmVudEFyZ3MgKQoKCQlB
cHBsaWNhdGlvbi5RdWl0KCkKCglFbmQgU3ViCgoJU3ViIE9uQ2xpY2tlZEV2ZW50ICggQnlWYWwg
b2JqIGFzIG9iamVjdCwgQnlWYWwgYXJncyBhcyBFdmVudEFyZ3MgKQoKCQlpZiAoIChDVHlwZShv
YmosIENoZWNrQnV0dG9uKSkuQWN0aXZlICkgdGhlbgoJCQlDb25zb2xlLldyaXRlTGluZSgiQ2hl
Y2tCdXR0b24gY2xpY2tlZCwgSSdtIGFjdGl2YXRpbmciKQoJCWVsc2UKCQkJQ29uc29sZS5Xcml0
ZUxpbmUoIkNoZWNrQnV0dG9uIGNsaWNrZWQsIEknbSBkZXNhY3RpdmF0aW5nIikKCQllbmQgaWYK
CglFbmQgU3ViCgoJUHVibGljIFN1YiBNYWluICgpCgoJCUFwcGxpY2F0aW9uLkluaXQoKQoKCQlE
aW0gaGJveCBhcyBIQm94ID0gbmV3IEhCb3ggKGZhbHNlLCAwKQoJCWhib3guQm9yZGVyV2lkdGgg
PSAyCgoJCURpbSBjYjEgYXMgQ2hlY2tCdXR0b24gPSBuZXcgQ2hlY2tCdXR0b24oIkNoZWNrQnV0
dG9uIDEiKQoJCUFkZEhhbmRsZXIgY2IxLkNsaWNrZWQsIEFkZHJlc3NPZiBPbkNsaWNrZWRFdmVu
dAoKCQlEaW0gY2IyIGFzIENoZWNrQnV0dG9uID0gbmV3IENoZWNrQnV0dG9uKCJDaGVja0J1dHRv
biAyIikKCQlBZGRIYW5kbGVyIGNiMi5DbGlja2VkLCBBZGRyZXNzT2YgT25DbGlja2VkRXZlbnQK
CgkJaGJveC5QYWNrU3RhcnQoY2IxLCBmYWxzZSwgZmFsc2UsIDMpCgkJaGJveC5QYWNrU3RhcnQo
Y2IyLCBmYWxzZSwgZmFsc2UsIDMpCgoJCURpbSB3aW5kb3cgYXMgV2luZG93ID0gbmV3IFdpbmRv
dygiQ2hlY2sgQnV0dG9ucyIpCgkJd2luZG93LkJvcmRlcldpZHRoID0gMTAKCQlBZGRIYW5kbGVy
IHdpbmRvdy5EZWxldGVFdmVudCwgQWRkcmVzc09mIE9uRGVsZXRlRXZlbnQKCgkJd2luZG93LkFk
ZChoYm94KQoJCXdpbmRvdy5TaG93QWxsKCkKCgkJQXBwbGljYXRpb24uUnVuKCkKCglFbmQgU3Vi
CgogRW5kIE1vZHVsZQo=

--=-gaKqNBHmWBX17OZbIiZ8
Content-Disposition: attachment; filename=hello-basic.vb
Content-Type: x-directory/normal; name=hello-basic.vb
Content-Transfer-Encoding: base64

JyBHdGsjIGV4YW1wbGUKJyBCeSBDYXJsb3MgQWxiZXJ0byBDb3J0ZXogR3VldmFyYSA8aXMxMTgx
NDlAbWFpbC51ZGxhcC5teD4KCmltcG9ydHMgU3lzdGVtCmltcG9ydHMgR3RrCmltcG9ydHMgR3Rr
U2hhcnAKCiBQdWJsaWMgTW9kdWxlIEhlbGxvV29ybGQKCglTdWIgSGVsbG8gKCBCeVZhbCBvYmog
YXMgb2JqZWN0LCBCeVZhbCBhcmdzIGFzIEV2ZW50QXJncyApCgoJCUNvbnNvbGUuV3JpdGVMaW5l
KCJIZWxsbyBXb3JsZCIpCgkJQXBwbGljYXRpb24uUXVpdCgpCgoJRW5kIFN1YgoKCVN1YiBPbkRl
bGV0ZUV2ZW50ICggQnlWYWwgb2JqIGFzIG9iamVjdCwgQnlWYWwgYXJncyBhcyBEZWxldGVFdmVu
dEFyZ3MgKQoKCQlDb25zb2xlLldyaXRlTGluZSgiRGVsZXRlIEV2ZW50IG9jY3VycmVkXG4iKQoJ
CUFwcGxpY2F0aW9uLlF1aXQoKQoKCUVuZCBTdWIKCglQdWJsaWMgU3ViIE1haW4gKCkKCgkJQXBw
bGljYXRpb24uSW5pdCgpCgoJCQlEaW0gd2luZG93IGFzIFdpbmRvdyA9IG5ldyBXaW5kb3coIkhl
bGxvIFdvcmxkIikKCQkJQWRkSGFuZGxlciB3aW5kb3cuRGVsZXRlRXZlbnQsIEFkZHJlc3NPZiBP
bkRlbGV0ZUV2ZW50CgkJCXdpbmRvdy5Cb3JkZXJXaWR0aCA9IDEwCgoJCQlEaW0gYnV0dG9uIGFz
IEJ1dHRvbiA9IG5ldyBCdXR0b24oIkhlbGxvIFdvcmxkIikKCQkJQWRkSGFuZGxlciBidXR0b24u
Q2xpY2tlZCwgQWRkcmVzc09mIEhlbGxvCgoJCQl3aW5kb3cuQWRkKGJ1dHRvbikKCQkJd2luZG93
LlNob3dBbGwoKQoKCQlBcHBsaWNhdGlvbi5SdW4oKQoKCUVuZCBTdWIKCiBFbmQgTW9kdWxlCgo=

--=-gaKqNBHmWBX17OZbIiZ8
Content-Disposition: attachment; filename=hello2-basic.vb
Content-Type: x-directory/normal; name=hello2-basic.vb
Content-Transfer-Encoding: base64

JyBHdGsjIGV4YW1wbGUKJyBCeSBDYXJsb3MgQWxiZXJ0byBDb3J0ZXogR3VldmFyYSA8aXMxMTgx
NDlAbWFpbC51ZGxhcC5teD4KCmltcG9ydHMgU3lzdGVtCmltcG9ydHMgR3RrCmltcG9ydHMgR3Rr
U2hhcnAKCiBQdWJsaWMgTW9kdWxlIEhlbGxvV29ybGQyCgoJU3ViIENhbGxiYWNrICggQnlWYWwg
b2JqIGFzIG9iamVjdCwgQnlWYWwgYXJncyBhcyBFdmVudEFyZ3MgKQoKCQlEaW0gbXlidXR0b24g
YXMgQnV0dG9uCgkJbXlidXR0b24gPSAgQ1R5cGUob2JqLCBCdXR0b24pCgkJQ29uc29sZS5Xcml0
ZUxpbmUoIkhlbGxvIGFnYWluIC0gezB9IHdhcyBwcmVzc2VkIiwgbXlidXR0b24uTGFiZWwpCgoJ
RW5kIFN1YgoKCVN1YiBPbkRlbGV0ZUV2ZW50ICggQnlWYWwgb2JqIGFzIG9iamVjdCwgQnlWYWwg
YXJncyBhcyBEZWxldGVFdmVudEFyZ3MgKQoKCQlBcHBsaWNhdGlvbi5RdWl0KCkKCglFbmQgU3Vi
CgoJUHVibGljIFN1YiBNYWluICgpCgoJCUFwcGxpY2F0aW9uLkluaXQoKQoKCQlEaW0gd2luZG93
IGFzIFdpbmRvdyA9IG5ldyBXaW5kb3coIkhlbGxvV29ybGQiKQoJCXdpbmRvdy5UaXRsZSA9ICJI
ZWxsbyBCdXR0b25zICEiCgkJQWRkSGFuZGxlciB3aW5kb3cuRGVsZXRlRXZlbnQsIEFkZHJlc3NP
ZiBPbkRlbGV0ZUV2ZW50CgkJd2luZG93LkJvcmRlcldpZHRoID0gMTAKCgkJRGltIGJveDEgYXMg
SEJveCA9IG5ldyBIQm94KGZhbHNlLCAwKQoJCXdpbmRvdy5BZGQoYm94MSkKCgkJRGltIGJ1dHRv
bjEgYXMgVG9nZ2xlQnV0dG9uID0gbmV3IFRvZ2dsZUJ1dHRvbigiQnV0dG9uIDEiKQoJCUFkZEhh
bmRsZXIgYnV0dG9uMS5DbGlja2VkLCBBZGRyZXNzT2YgQ2FsbGJhY2sKCQlib3gxLlBhY2tTdGFy
dChidXR0b24xLCB0cnVlLCB0cnVlLCAwKQoJCWJ1dHRvbjEuU2hvdygpCgoJCURpbSBidXR0b24y
IGFzIEJ1dHRvbiA9IG5ldyBCdXR0b24oIkJ1dHRvbiAyIikKCQlBZGRIYW5kbGVyIGJ1dHRvbjIu
Q2xpY2tlZCwgQWRkcmVzc09mIENhbGxiYWNrCgkJYm94MS5QYWNrU3RhcnQoYnV0dG9uMiwgdHJ1
ZSwgdHJ1ZSwgMCkKCgkJd2luZG93LlNob3dBbGwoKQoKCQlBcHBsaWNhdGlvbi5SdW4oKQoKCUVu
ZCBTdWIKCiBFbmQgTW9kdWxlCgo=

--=-gaKqNBHmWBX17OZbIiZ8--