vbsの作法 その57

概要

vbsの作法、調べてみた。
vbsから操れるUIコンポーネントをC#で書いてみた。
練習問題、やってみた。

練習問題

湯婆婆を実装せよ。

写真

サンプルコード

Dim o
Set o = CreateObject("Ohi.Compo7")
str = "契約書" & vbCrLf & "甲は油屋当主として、乙を油屋に雇用することを契約し、" & vbCrLf & "労働に伴う対価の支払いを右の通り、約定する。" & vbCrLf 
str = str & "なお、一日の労働の対価は金百円とする。" & vbCrLf & "甲　油屋当主　湯婆婆" & vbCrLf & "乙" & vbCrLf & "契約書だよ。そこに名前を書きな。"
o.Put str
Dim name
name = o.Open()
If Len(name) = 0 Then
    Wscript.Arguments(-1)
End If
str = "フン。" & name & "というのかい。贅沢な名だねぇ。"
Dim newName
Randomize
newName = Mid(name, Int(Len(name) * Rnd + 1), 1)
o.Put str & "今からお前の名前は" & newName & "だ。いいかい、" & newName & "だよ。分かったら返事をするんだ、" & newName & "!!"
a = o.Open()
Set o = Nothing

以上。