VB.NET質問ｽﾚ (Part24)

acropdf.dllにそういうメソッドはないかの？

ちょっと質問させてください。
ASP.NET 2.0(VB)でブラウザの戻るやページ内でバックスペースを押したときに

Web ページの有効期限が切れています

と表示されるページがありますが、あのように動作させるにはGlobal.asaxあたりに何か設定する必要があるのでしょうか？
それともIISに設定があったりするのでしょうか？
(その画面の時にF5などで更新を押すと　再送信しますか？　と聞かれますがそのあたりも制御できるのでしょうか？)

今一歩そのあたりの深い部分が探しきれないので、ご存知の方がいらっしゃいましたらご教授いただければと思います。

>>953
「あのように」がどのようになのかさっぱりわからん
とりあえず、まずはPOSTリクエストについて調べろ

>>954
レスサンクスです。

動きとしては
ページ表示→遷移→戻るボタン(またはバックスペース)→Web ページの有効期限が切れていますと表示されているIEのエラーページ
この動作を実現させたいのです。

POSTリクエスト・・・とりあえずググってきます。

Expiresヘッダをなんとかして出せばよろし。

>>956
各ページのLoad時
Headerにこのようなものを出力するようにしてみました。

<meta http-equiv="Expires" content="0" />
<meta http-equiv="pragma" content="no-cache" />

実現方法は以下のとおりです。

Dim meta1 As New Web.UI.HtmlControls.HtmlMeta
meta1.HttpEquiv = "Expires"
meta1.Content = "0"
Me.Header.Controls.Add(meta1)

Dim meta2 As New Web.UI.HtmlControls.HtmlMeta
meta2.HttpEquiv = "pragma"
meta2.Content = "no-cache"
Me.Header.Controls.Add(meta2)

'キャッシュ制御は以下のようにGlobal.asaxでリクエスト時に必ず設定するようにしてみました。
With HttpContext.Current.Response
.Cache.SetCacheability(HttpCacheability.ServerAndNoCache)
.Cache.SetAllowResponseInBrowserHistory(False)
End With
これだとキャッシュは作成されず、何かの原因で作成されたとしても有効期限０になると思っているのですが･･･

正常にメタタグは出力されているのですが、どうにも思った動きになりません。
この設定が悪いのでしょうか？それとも何かほかに設定が・・・

ツールストリップに動的にボタンを貼り付けたいと思い、下記のように
AddHandlerに渡すメニューイベントを引数にして関数を呼び出したいのですが
(1)でメニューイベントとして解釈させる方法がわかりません。
DirectCastしようにもXXXXXの部分がわかりません。
ご教授の程よろしくお願いいたします。


Public Sub SetButton(ByVal S As String, MenuEbvent As Object)
Dim item As New ToolStripButton

item.Text = S
AddHandler item.Click, AddressOf DirectCast(MenuEvent, XXXXX) ==>(1)
ToolStrip.Items.Add(item)

End Sub


SetButton("Menu1", ToolStripMenuItem1_Click)
SetButton("Menu2", ToolStripMenuItem2_Click)

初心者ですみません＞＜質問なのですが（ここであってるのかな＾＾；）
今VB2005でwebページを作成しているのですが、
そのなかでデザイナ側でGridViewのitemTemplateにCheckBoxを配置しているのですが
それをソースコード上で記述して再現したいのですが、どのようにすればいいのかご教授願えませんでしょうか？

例えばボタンをGridViewに追加の場合だと

Dim Button1 As ButtonField = New ButtonField
Button1.HeaderText = "選択"
Button1.Text = "選択"
Button1.ButtonType = ButtonType.Button
.Columns.Add(Button1) : Button1 = Nothing

といった感じででうまくいくのですが
TemplateでitemTemplateにCheckBoxを作成の場合ではどう記述すればいいのかわかりません

Dim TemplateF As TemplateField = New TemplateField
TemplateF.ItemTemplate = New ????
TemplateF.HeaderText = "ABC"
TemplateF.????
TemplateF.????
.Columns.Add(TemplateF) : TemplateF = Nothing

あ、上げた方がいいのかな

いきなりの長文もうしわけないです

VS2005アカデミック、WindowsXｐで以下のプログラムを
動かしたい。しかし
Imports System.Managementが参照できないのだが、どうしたらいい？

Imports System
Imports System.Management
Imports System.Windows.Forms
Namespace WMISample
Public Class MyWMIQuery
Public Overloads Shared Function Main() As Integer
Try
Dim searcher As New ManagementObjectSearcher( _
"root\WMI", _
"SELECT * FROM ProcessorPerformance")
For Each queryObj As ManagementObject In searcher.Get()
Console.WriteLine("-----------------------------------")
Console.WriteLine("ProcessorPerformance instance")
Console.WriteLine("-----------------------------------")
Console.WriteLine("Active: {0}", queryObj("Active"))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Function
End Class
End Namespace

>>961
参照設定は済ませたか？

＞９６２
　そそれがわからない。
　参照の追加のCOMとか色々みてもない。ない。

　あっといけた。いけた。よろこべ。でけた。

まて、急いでるのはわかるが、後続のために具体的にどうしたのかは書け。

すみません先程の>>959ですが
なんとか以下のプログラム記述でGridView内にCheckBoxを表示する段階まではもっていけたのですが
Public Class MyTemplate
Implements ITemplate
Sub InstantiateIn(ByVal container As Control) Implements ITemplate.InstantiateIn
Dim cb As New CheckBox
cb.ID = "CheckBoxABC"
container.Controls.Add(cb)
End Sub
End Class
---------------
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With Me.GridView1
Dim tmpF As TemplateField = New TemplateField
tmpF.ItemTemplate = New MyTemplate()
tmpF.HeaderText = "あああ"
.Columns.Add(tmpF) : tmpF = Nothing
End With
End Sub
以下のような感じで生成したGridViewのチェックボックスにアクセスしようとすると
------
NullReferenceExceptionはユーザーコードによりハンドルされませんでした
オブジェクト参照がオブジェクト　インスタンスに設定されていません
------
というエラーが発生してしまいます。
↑の通りNULLアクセスになっているようなのですが、CheckBox(?)の
インスタンスをどこでどうやって生成すればよいのでしょうか？今日一日ずっとこれやってますけどもうお手上げだーｗ
For i = 0 To Me.GridView1.Rows.Count - 1
CType(Me.GridView1.Rows(0).FindControl("CheckBoxShop"), CheckBox).Checked = True
Next
あと、名前つけ忘れてました、すみません

うう・・返事がない

そろそろ次立てる頃？

>>958
C#だとそういう記述でできるけど、VBはC#とイベントの取り扱い方が違うからその方法では無理。

今から正解作るからちょっと待ってて

VBで書こうとして気づいた。

C#だと簡単なのにVBだと書けないや。
RaiseEventだと自身のイベント以外は呼び出せないみたいだし。
イベントの取り扱い方に制限が掛かってて無理っぽいよ。

New EventHandler(AddressOf メソッド名)
AddHandler イベント, DirectCast(obj, EventHandler)

そんな説明じゃ968や958にはわからないと思うよ。
まあ要はデリゲートを勉強しろってことだけどさ。

失礼、普通にできたな。
AddressOｆ演算子というものを使うわけだな。
下記のコードで、ButtonクリックでToolStripMenuItem1_Clickメソッドが呼び出されることが可能になった。


Public Class Form1

Public Sub SetButton(ByVal S As String, ByVal MenuEbvent As EventHandler)
Dim item As New Button()
item.Text = S
item.Dock = DockStyle.Fill
AddHandler item.Click, MenuEbvent
Me.Controls.Add(item)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetButton("Menu1", AddressOf ToolStripMenuItem1_Click)
End Sub

Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
MessageBox.Show("OK")
End Sub
End Class

AddreesOf知らないで今までどういう「イベントを使うコード」
書いてたんだろう968はw

というか、だから本当はデリゲートを理解してないのが問題なんだよ。

>>973
あほかと・・・ｗ
C#にAddressOｆなんてないんだよ。
随分必死だなお前ｗ

自作のユーザーコントロールにイベントデリゲートを宣言して、
自作イベントを外から扱ったりしてますけども。
C#と違ってVBだとデリゲートを直接呼び出すことができないことも
分かんないのかね君は

皆さん、有り難うございました。
すっきりしました。

>>974
統合失調症の人？
俺はエスパーじゃないから君がC#な人かどうかなんて知らない。
っていうか、ここどこ？w

ついでに言えば、
＞C#と違ってVBだとデリゲートを直接呼び出すことができないことも
何これ意味がわからん。

>>968-969みれば彼がC#な人間だということはわかるだろ。
でもなんでVB.NETのスレにいるのかはわからないけど。

なんでC#そんなに好きなのにVBやってんの？
C#の方がいいんなら、そっちでやりゃいいじゃん？

C#使ってる人は質問に回答してはイカンとですか。

はっきりしてることはウザイから他所でやれと言うことだ

少なくともC#では〜なんて回答は何の役にも立たんわけで

まあちゃんと理解できてたらVB.NETもC#も一緒

んだんだ

MSDNを見るとカーソルキーでKeyDownを発生させるためにはIsInputKeyメソッドをオーバーライドする必要があり、
既定の動作は使えなくなります見たいなことが書いてあるけど
DataGridViewで試したらIsInputKeyをオーバーライドしなくてもKeyDownイベントが発生したし
既定の動作（フォーカスの移動）もしっかり生きてるんだけど、これ仕様なのかな？

XP　VB2008

>>976
自作クラスに自作イベントを宣言し、そのインスタンスをForm1で宣言しました。
Form1のButton1がクリックされたときに先のインスタンスの自作イベントが発生するようにしたい。
VBでどうやって書く？RaiseEventを使おうとしてもForm1のイベントじゃないから無理みたいだよ。
ちなみにC#だったらイベントデリゲートを直接呼び出すことが可能だから簡単。
VBでも当然できるんだよね？

Public Class Form1
WithEvents tmp As New EventTest()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ここにコードを書いてください
End Sub
End Class
'ユーザー定義型
Public Class EventTest
'自作イベント
Public Event PropertyChanged(ByVal sender As Object, ByVal e As EventArgs)
'プロパティ
Private newPropertyValue As String
Public Property NewProperty() As String
Get
Return newPropertyValue
End Get
Set(ByVal value As String)
newPropertyValue = value
'PropertyChangedイベントを発生させる
RaiseEvent PropertyChanged(Me, Nothing)
End Set
End Property
End Class

ごめん、寝ぼけていっしょにAlt押してたの忘れてた

やっぱIsInputKeyをオーバーライドしなくてもカーソルキーだけでKeyDown発生した
なんでだー

>>985
VBもC#も全然わかってない感じだ

C#でもクラスの外部から直接イベントを起動するのは無理なんじゃないか？
むしろ出来てしまうといろいろまずいような。
直接DelegateをPublicでさらすなら可能だがそれならVBでも出来る。

具体的に書かないと理解できないだろうからコードを示しておく
Delegate Sub TestCallback(A As Integer, B As Integer)
Class Test
 Public TestChanged As TestCallBack
 Public Sub DoTest
  If TestChanged <> Nothing Then
    TestChanged.Invoke(1, 2)
  End If
 End Sub
End Class
Module Startup
 Sub Main
   Dim Test1 As New Test
   Test1.TestChanged = AddressOf MyCallback
   Test1.DoTest()
   Test1.TestChanged.Invoke(10,20)
 End Sub
 Sub MyCallback(A As Integer, B As Integer)
  Console.WriteLine("{0} {1}", A, B)
 End Sub
End Module

別にそんな面倒なことしなくてもUI部品のPerformClickみたいに「イベントを生成するメソッド」
を公開するだけのことでしょ。

>>991
それなんてトートロジー？

>>959に誰もレスしてないのﾜﾗﾀｗｗｗ
ここの住人もたいしたことね〜なｗｗｗｗｗ

ここの住民と言うより、VBプログラマがたいした事ないんだろう

まあそうカリカリすんなって
今誰かがかいてるから

で、次スレまだ？ｗ

997

１０００００００げっとぉ

>>992
トートロジーって言葉、遣ってみたかったの？

１０００は、こいつです。
↓

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。