コミュニティでの活動の履歴として、自身(Orator/魔界の仮面弁士)が掲示板・Mailing List・Newsgroup等へ発言した内容の中で、再利用できそうな物を拾い出して、掲載しています。

« 2004年07月 | Main | 2004年09月 »
[VB.NET] スマートデバイスでBeepを鳴らす / 2004年08月27日(金)

CE環境だと、Microsoft.VisualBasic.Interaction.Beep()が鳴らないので。


[08/30/2004]Programming Library(VB掲示板)

Friend Enum MessageBeepType As Integer
    [Default] = &HFFFFFFFF  'SystemDefault
    MB_ICONHAND = 16        'SystemHand
    MB_ICONQUESTION = 32    'SystemQuestion
    MB_ICONEXCLAMATION = 48 'SystemExclamation
    MB_ICONASTERISK = 64    'SystemAsterisk
End Enum
Friend Declare Function MessageBeep Lib "Coredll" (Optional ByVal uType As MessageBeepType = MessageBeepType.Default) As Integer

 
Posted at 20:18 / .NET / この記事のURL
コメント(0)
何を書くかな / 2004年08月25日(水)
さて。blogを作っては見たものの、何を書くかを決めて無かった。

とりあえず、コミュニティ等への発言の中で、後から再利用できそうな物でも書き留めていこうかな…。
最終的には、本人の「備忘録」として使えるだろうし。

 
Posted at 21:19 / 雑記 / この記事のURL
コメント(4)
[VB6] API: クリップボードにUnicode文字を格納 / 2004年08月25日(水)

『U+3004: 』『U+33A5: 』といった文字は、VB6 標準の Clipboard オブジェクでは化けてしまうため、ここでは SetClipboardData API を利用しています。


[08/25/2004]VB初心者友の会(一般掲示板)

Private Sub Command1_Click()
	Dim wb() As Byte
	wb = "JIS=[" & ChrW(&H3004) & "]" & vbCrLf _
	   & "m^3=[" & ChrW(&H33A5) & "]" & vbNullChar
	OpenClipboard Me.hWnd
	EmptyClipboard
	SetBinaryData CF_UNICODETEXT, wb
	CloseClipboard
End Sub
Public Function SetBinaryData(ByVal lFormatId As Long, ByRef bData() As Byte) As Boolean
	Dim lSize As Long
	Dim lLow As Long
	Dim lPtr As Long
	Dim hMem As Long
	lLow = LBound(bData)
	lSize = UBound(bData) - lLow + 1
	hMem = GlobalAlloc(GMEM_DDESHARE, lSize)
	If (hMem <> 0) Then
		lPtr = GlobalLock(hMem)
		RtlMoveMemory lPtr, VarPtr(bData(lLow)), lSize
		GlobalUnlock hMem
		SetBinaryData = CBool(SetClipboardData(lFormatId, hMem) <> 0)
		Rem GlobalFree hMem
	End If
End Function

続きを読む...  
Posted at 04:04 / Visual Basic / この記事のURL
コメント(0)
[VB6] MSHTML: クリップボードにUnicode文字を格納 / 2004年08月25日(水)

『U+3004: 』『U+33A5: 』といった文字は、VB6 標準の Clipboard オブジェクでは化けてしまうため、ここでは clipboardData オブジェクトを利用しています。


[08/25/2004]VB初心者友の会(一般掲示板)

Dim Text As String

Text = "JIS=[" & ChrW(&H3004) & "]" & vbCrLf _
     & "m^3=[" & ChrW(&H33A5) & "]"

With GetObject(App.Path, "htmlfile")
	Do Until .readyState = "complete"
		DoEvents
	Loop
	.parentWindow.ClipboardData.SetData "TEXT", CVar(Text)
End With

 
Posted at 01:05 / Visual Basic / この記事のURL
コメント(0)
[T-SQL] テーブルや列にコメントを定義する / 2004年08月13日(金)

拡張プロパティの指定が面倒なので、PROCEDUREにしてみました。

呼び出す際には、
    EXECUTE setcomment N'テーブル名', NULL, N'コメント'
とか
    EXECUTE setcomment N'テーブル名', N'列名', N'コメント'
のようにします。

[08/13/2004]ももらぼっ!(きびだんご)


続きを読む...  
Posted at 21:04 / SQL Server/MSDE / この記事のURL
コメント(2)
P R

Microsoft Most Valuable Professional, Visual Developer - Visual BasicMSMVP for Visual Basic


Global Media Online INC.