C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: Webフォームのオブジェクト


(過去ログ 64 を表示中)

[トピック内 2 記事 (1 - 2 表示)]  << 0 >>

■37312 / inTopicNo.1)  Webフォームのオブジェクト
  
□投稿者/ EarthIsland (12回)-(2009/06/17(Wed) 00:28:03)

分類:[.NET 全般] 

質問いたします。下記のプロシージャをWindows フォームでなくWebでも実現したいのですが、
Webのオブジェクトが参照できません。
ご教授お願いします。


'*-----------------------------------------------------------------------------
'* 名前 :gsubFrmClearSeek
'* 記述 :検索条件を消去します(テキストボックスのみです)。。
'* パラメータ
'* ・objFrm :フォーム
'* 戻り値 :無し
'* 作成者 :ひろのしま
'* 変更 :2007/05/15
'*-----------------------------------------------------------------------------
Public Sub gsubFrmClearSeek(ByVal objWebFrm As Form)
On Error GoTo Err_Trap
With objFrm
For gintCnt = 1 To .Controls.Count
If .Controls(gintCnt - 1).Name Like "txtSeek*" Or .Controls(gintCnt - 1).Name Like "cboSeek*" Or .Controls(gintCnt - 1).Name Like "chkSeek*" Then
.Controls(gintCnt - 1).Text = Nothing
End If
Next
End With
Exit_Trap:
Exit Sub
Err_Trap:
''''Call gsubDspMessByErrNumber(Err.Number, Err.Description)
GoTo Exit_Trap
End Sub
引用返信 編集キー/
■37313 / inTopicNo.2)  Re[1]: Webフォームのオブジェクト
□投稿者/ EarthIsland (13回)-(2009/06/17(Wed) 01:56:10)
すみません。追加いたします。
(ByVal objWebFrm As Form)これをWindowsでなくWebのフォームにしたいってことです。
失礼しました。

No37312 (EarthIsland さん) に返信
> 質問いたします。下記のプロシージャをWindows フォームでなくWebでも実現したいのですが、
> Webのオブジェクトが参照できません。
> ご教授お願いします。
>
>
> '*-----------------------------------------------------------------------------
> '* 名前 :gsubFrmClearSeek
> '* 記述 :検索条件を消去します(テキストボックスのみです)。。
> '* パラメータ
> '* ・objFrm :フォーム
> '* 戻り値 :無し
> '* 作成者 :ひろのしま
> '* 変更 :2007/05/15
> '*-----------------------------------------------------------------------------
> Public Sub gsubFrmClearSeek(ByVal objWebFrm As Form)
> On Error GoTo Err_Trap
> With objFrm
> For gintCnt = 1 To .Controls.Count
> If .Controls(gintCnt - 1).Name Like "txtSeek*" Or .Controls(gintCnt - 1).Name Like "cboSeek*" Or .Controls(gintCnt - 1).Name Like "chkSeek*" Then
> .Controls(gintCnt - 1).Text = Nothing
> End If
> Next
> End With
> Exit_Trap:
> Exit Sub
> Err_Trap:
> ''''Call gsubDspMessByErrNumber(Err.Number, Err.Description)
> GoTo Exit_Trap
> End Sub
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -