参考: Yahoo!知恵袋Web API
メモ帳で作成した文章を自分のユーザーにログインするたびに表示させる方法ってありますか?
私のパソコンはWindows XP Home Edition です。
パソコンゲームについてです咎狗の血とLamentoだったらどっちがおもしろいですか?
買うならどっちがオススメでしょうか!教えてください♪^^
BR-H816FBS-BKをパソコンに搭載して主にブルーレイ〔BD〕観賞に使っているのですが、今わかっている限りで3作品を見ることができませんでした。
フリーズします。
なにか原因があるのでしょうか?
作品名はダークナイト、ベンジャミンバトン、インビジブルです。
症状は同じでBDを挿入後にドライブを認識しなくなりpowerDVDも作動せず固まってしまいます。
他のBDソフトでは同じようなことが起こりません。
ドライブの故障なのか相性の問題なのでしょうか?
OSはvista、モニターもBD対応だと思いますし…。
VBで、複数のパソコンにPINGを投げ、フォーム上のラベルに稼動状況を表示したい初心者なのでお手柔らかにお願いします。
VB2005にて、ラベルのtextを読み取り、PINGを投げた後、コンピュータが接続されていれば、ラベルの色を青に、接続されていなければラベルの色を赤にするプログラムを作ろうとしています。
基本的なことがわかっていないので、お叱りを受けるかもしれませんが、以下のようなプログラムを書いていたのですが、途中で'Text' は 'String' のメンバではありません。
"となってしまいます。
このような場合どのように変更すれば良いか教えていただけませんか?
フォーム上には20個ほどのラベルを配置しており、ボタンを押すとその全てのラベルのTEXTを順番に読み取りPINGしラベルの色を変更させようと思っています。
よろしくお願いします。
使用環境:WindowsXP VB2005Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Long = 1 Do Until i > 21 With "Me.Label" & i If My.Computer.Network.Ping(.Text) Then .BackColor = Color.Blue Else Label1.BackColor = Color.Red MessageBox.Show(TextBox1.Text & "の接続を確認してください") End If i += 1 End With Loop End SubEnd Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each ctrl In Me.Controls If TypeOf ctrl Is Label Then Dim lbl As Label = DirectCast(ctrl, Label) If My.Computer.Network.Ping(lbl.Text) Then lbl.BackColor = Color.Blue Else lbl.BackColor = Color.Red MessageBox.Show(lbl.Text & "の接続を確認してください") End If End If Next End SubEnd Classこーゆーのはどうかな?
labelいくつ増やしても変数の値を20とか21とかいじる必要なくなるっぽ。
(ただしフォーム上のラベル全部に処理しちゃうけど・・・)ping打つラベルをパネルに乗っけるとかすればパネル上のlabelに指定したやつだけ実行とかも出来たと思う。
(未検証)
今回から3回に分けて世代別アセット・ロケーション戦略について具体的…
低リスク型の国内債券&円ヘッジ外債ファンドに千億強の資金流入継続。…