2011年8月5日金曜日

画像の表示


UIImageViewName.image = [UIImage imageNamed:@"xxxx.jpg"];


これは



$UIImageViewName->image = $UIImage->imageNamed("xxxx.jpg");



と同じ。

2011年8月4日木曜日

背景画像を指定する


- (void)viewDidLoad {
[super viewDidLoad];

self.view.backgroundColor = [UIColor colorWithPatternImage:[UIImage imageNamed:@"xxxxxx.jpg"]];
}

2010年9月13日月曜日

正規表現

' 文字列の間の空白をカンマで置き換える
Function ReplaceSpaceToComma(ByVal strText As String) As String
Return Regex.Replace(strText, "[ ]{1,}", ",")
End Function

ランダムパス生成



Dim wk_buf As String = ""
Dim wk_num As Single

Do Until Len(wk_buf) = 8
Randomize()
wk_num = Int((122 * Rnd()) + 1)
Select Case wk_num
'記号等の排除
Case Is < 49
Case 58, 59, 60, 61, 62, 63, 64
Case 91, 92, 93, 94, 95, 96
'誤認候補の排除
Case 48, 49, 79, 108
Case Else
wk_buf = wk_buf & Chr(wk_num)
End Select
Loop

passwd.Text = wk_buf

2010年9月10日金曜日

発生したイベントを取得する


Private Sub cld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cld1.ValueChanged, cld2.ValueChanged, cld3.ValueChanged, cld4.ValueChanged
Dim cld As DateTimePicker = CType(sender, DateTimePicker)

Select Case cld.Name
Case "cld1"
first_transaction.Text = Format(cld1.Value, "yyyy/MM/dd")
Case "cld2"
contracted.Text = Format(cld2.Value, "yyyy/MM/dd")
End Select

End Sub

2010年8月31日火曜日

エントリポイント作成のリンク

http://dobon.net/vb/dotnet/programing/makeentrypoint.html
http://dobon.net/vb/dotnet/programing/startupobject.html

走らせ方
http://blog.livedoor.jp/akf0/archives/51340773.html

宣言の範囲


  適用範囲 寿命 宣言できる場所
Public すべて クラスが消滅するまで クラス直下
Protected Friend プロジェクト内・派生クラス内 クラスが消滅するまで クラス直下
Protected 派生クラス内 クラスが消滅するまで クラス直下
Friend プロジェクト内 クラスが消滅するまで クラス直下
Private 宣言したクラス内 クラスが消滅するまで クラス直下
クラス(構造体)直下のDim 宣言したクラス内 クラスが消滅するまで クラス直下
プロシージャ内のDim プロシージャ内 プロシージャが実行されている間 プロシージャ内
プロシージャ内のStatic プロシージャ内 クラスが消滅するまで プロシージャ内
ブロック内のDim ブロック内 ブロックを実行されている間 ブロック内
ブロック内のStatic ブロック内 クラスが消滅するまで ブロック内
クラス直下のShared(単体) 宣言したクラス内 不死 クラス直下
構造体直下のShared(単体) すべて 不死 構造体直下