VB.NET質問ｽﾚ (Part12)

VB.NET質問ｽﾚ (Part12 ..

655:デフォルトの名無しさん
05/10/13 10:38:09
>>652
System.Windows.Forms.Timerはその通りだが、全てのタイマがそうというわけではないぞ。

656:デフォルトの名無しさん
05/10/13 10:43:41
>>655
その程度のこと元質問を読めば自明。

657:デフォルトの名無しさん
05/10/13 10:59:50
System.Timers.TimerとSystem.Windows.Forms.Timerは何が違うんﾃﾞｨｽｶ?

658:デフォルトの名無しさん
05/10/13 11:40:20
>>654
じゃあちゃんと書くから追試よろしく。

Visual Studio .NET 2003でVB.NETを使用し、以下のコードをコンパイル。

Public Class Test

Privete Sub TestMethod()
　　'↓改行記号で連結した2040バイトの文字列定数(長くなるので省略)
　　Const TestConst As String = _
　　　"abcdef ..... xyz" & _
　　　....
End Sub

End Class

これだけでコンパイル完了前にVisual Studioが突然死する。

659:デフォルトの名無しさん
05/10/13 12:15:03
>>658
2036バイトまでなら通った。
2037バイトの文字列にすると落ちた。

660:デフォルトの名無しさん
05/10/13 12:42:19
しかし.NETってバグフィックスがちっとも出ないのはなんでかね？
これ以外にも小さな（？）バグって山ほどあるよな
発売以来二年以上経過してるのにフレームワークのSP1がでてそれきり。

661:デフォルトの名無しさん
05/10/13 14:39:12
DataGridに列を追加し、さらに列名（列見出し）を表示させるには
どうしたらよいのでしょうか？
画面の何かのプロパティで追加できるのでしょうか？
手順を教えてください、よろしくお願いします。

662:デフォルトの名無しさん
05/10/13 15:39:02
>>661
入門書を買うか、入門HPを嫁。

663:デフォルトの名無しさん
05/10/13 17:30:34
>>660
バグではありません，それは仕様です，，なのでは？

664:デフォルトの名無しさん
05/10/13 17:31:29
>>661

'Test Data 作成
ds = New DataSet("testDs")
Dim dt As DataTable = ds.Tables.Add("testTable1")
dt.Columns.Add("id", Type.GetType("System.Int32"))
dt.Columns.Add("value", Type.GetType("System.String"))
dt.Columns.Add("date", Type.GetType("System.DateTime"))
Dim row As DataRow
For i As Integer = 1 To 100
row = dt.NewRow()
row.Item("id") = i
row.Item("value") = "Test" & i.ToString
row.Item("date") = Now
dt.Rows.Add(row)
Next

'DataGrid.DataSourceにDataTableを設定
Me.DataGrid1.DataSource = dt

'Columnを1つ追加(この時点でDataGridにはColumnが追加されている)
dt.Columns.Add("addCol", Type.GetType("System.Int32"))
'Columnのキャプション設定(この時点で追加されたColumnのキャプションが変わる)
dt.Columns("addCol").ColumnName = "Add Column"

665:デフォルトの名無しさん
05/10/13 19:07:06
新しいフォームを作ってそれを呼び出し元のフォームより後ろに表示したい
んですが、何とか実現する方法ってないですか？

666:デフォルトの名無しさん
05/10/13 20:02:40
>>665
アブフレックス

667:デフォルトの名無しさん
05/10/14 18:28:18
>>664　さん
661です、サンプル例ありがとうございました。
おかげでできました、助かりました。どもです。

668:647
05/10/15 12:44:49
レスサンクスです。
最近プログラミングの基本を勉強する必要を痛感していただけに・・

System.Timers.Timer・・・いまんとこはやめときます orz

669:デフォルトの名無しさん
05/10/15 15:49:25
クラス内変数なのですが、

private SqlConnection sqlConnection = null ;

と　C#　で書かれていたものをVB.NETで書く場合はどう書けばよろしいのでしょうか？

670:デフォルトの名無しさん
05/10/15 16:05:55
番号　データ
1　　　10
2　　　12
3　　　10

のようなテーブルを作ってDataGridに表示していて、
ボタンを押すと、
4　　　13
などとデータが追加されていきます。

どんどん追加していくと、追加した行が見えなくなってしまいますが、
追加した行にフォーカスを移して、その行が見えるようにする方法を教えてください。

DataGrid1.Select(dataTable1.Rows.Count - 1)
だと選択されるだけで、見えるようにはなりませんでした。

671:670
05/10/15 16:16:23
DataGrid1.CurrentCell = New DataGridCell(dataTable1.Rows.Count - 1, 1)
でした。

672:デフォルトの名無しさん
05/10/15 16:18:15
>>669
君はどの部分が変換できないの？
あと「クラス内変数」って表現は「フィールド」と言った方が良いよ。

673:デフォルトの名無しさん
05/10/15 16:33:27
>>672
レスありがとうございます。

private SqlConnection sqlConnection = null ;
と、C#で書かれているものを

VBNETで書くとこんな感じかなと思ったのですが、これだとエラーになってしまいます。
Private sqlConnection As SqlConnection = New SqlConnection
sqlConnection = null

よろしくお願い致します。

674:デフォルトの名無しさん
05/10/15 16:42:28
>>673
Private sqlConnection As SqlConnection = Nothing
または
Private sqlConnection As SqlConnection

参照無しの状態になるのを明示して欲しいから、上の書き方が良いかな？
意図的にインスタンス生成してませんよって。

675:デフォルトの名無しさん
05/10/15 17:23:56
自分もＣ＃のソースＶＢで書き換えたいのですが、

If color = Color.Empty Then

と書きたい時に、
Color.Empty が color.Empty に（大文字が小文字に）
強制的に代えられてしまうのは何故でしょうか？

知ってる方お願いします。

676:デフォルトの名無しさん
05/10/15 17:28:44
すみません、color は
Dim color As Colorです。

677:デフォルトの名無しさん
05/10/15 18:16:28
VBは大文字小文字が区別されないから。
C#なら大小の区別で別物になるがVB.NETではそうもいかないので、できれば別のネーミングにすることを薦める。

678:デフォルトの名無しさん
05/10/15 20:49:19
>>677
大文字と小文字の区別が無い事は全然知りませんでした。
どうもありがとうございます。

679:673
05/10/15 21:37:36
>>674
大変参考になりました。。
ありがとうございます。

680:デフォルトの名無しさん
05/10/15 23:27:36
でも Dim color As Color ってつい書いちゃうんだよな。
大文字小文字の区別はないけど、
クラス名とインスタンス名はいちおうちゃんと別物として扱われるんで。

681:デフォルトの名無しさん
05/10/16 03:15:24
int, str, bol, tbx, lbx, objとか出来るだけ接頭子付けているが
color は col だとﾌｨｰﾙﾄﾞ関係と間違えそうだし、clr かな？

682:デフォルトの名無しさん
05/10/16 07:55:17
ハンガリアンは捨てたのさ。

683:デフォルトの名無しさん
05/10/16 13:58:11
webbrowserコントロールでエクセルファイル表示するとおもむろにエクセル立ち上がるのって
どうにか出来ないでしょうか？(せめて最小化とか)
そして閉じてもエクセルやワードのプロセスが残ってるのも何とかしたいんです

684:デフォルトの名無しさん
05/10/16 15:53:06
Webブラウザコントロールを使って表示しなければいいんじゃないか？
これってたぶんだけどIEで表示してるのと同じだよね。
関連付けで開いた相手のプロセスはIEの監視下？

レガシーなOLE連携でCreateObjectでやった場合でもプロセスは起動するのはやむなしだな。
でもプロセスは残らない。

単純にファイルの関連付けで開いた場合、プロセスの終了は使用者任せだね。

そうじゃなければ、市販コントロールであると思うよ。

685:デフォルトの名無しさん
05/10/16 18:02:04
>>684
それ言っちゃうと身も蓋も無いんだけどねw
フリーソフト作るのに市販コントロール買ってまでするってのも…
ヘルプ見ようとしても出てこんし
諦めた方がいいかな

686:デフォルトの名無しさん
05/10/16 20:29:09
>>681
その調子で一度すべてのクラスに識別可能なプレフィックスを付けながら
コーディングしてみ？プレフィックスが変数名より長くなるか、
プレフィックスを覚えきれなくなるのが落ち。まともなOOの環境で
コーディングしたことあるやつなら、プレフィックスを付けることの
無理にとっくに気がついている。だから最近はプレフィックスを付けないのが主流。

687:デフォルトの名無しさん
05/10/16 22:59:06
>>685
それを言うならば、フリーソフトでEXCELマクロでもないアプリなのに、要EXCELってのも･･･。
企画原案を変えるべきでは？

688:デフォルトの名無しさん
05/10/17 00:57:28
>>660
Javaやってりゃ分かるが細かいバグもチョコチョコ直されると激しく迷惑

689:デフォルトの名無しさん
05/10/17 13:31:05
IPメッセンジャーのようなメッセージ配信機能を電話オペレータの操作画面の一部にテロップのような形式で配信したいと考えています。
また、配信する人は一部の管理者を想定しているのですが、この管理者の権限でメッセージ表示を削除する機能も付加したいと考えています。

VB.NETのWindowsアプリケーション開発で技術的に可能でしょうか？教えてください。お願いします。

690:デフォルトの名無しさん
05/10/17 13:46:13
可能です

691:デフォルトの名無しさん
05/10/17 13:50:39
すいません、具体的なヒントとか頂けたら嬉しいです。。

692:デフォルトの名無しさん
05/10/17 15:20:36
690じゃないが、具体的じゃない質問に対して具体的なヒントって？
まず、何が疑問なのか。

693:デフォルトの名無しさん
05/10/17 16:18:35
特定のURLから内容を表示するプログラムを造ってますが、ウェブページ上の表形式のデータを取得する場合、
便利な方法は何かないでしょうか。Ezcelのウェブクエリを高速化したかったのですがwebtableのような概念が
見つけられないもので。VB.NETは質問からも分かるように初心者です。本2冊買ってHELPもあたったのですが・・

Imports System.Net
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ""’URLを入力
TextBox2.Text = ""
End Sub

694:デフォルトの名無しさん
05/10/17 16:19:08
693の続き

Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim wreq As HttpWebRequest
Dim wres As HttpWebResponse
'ウェブリクエストでテキスト1の内容表示、エンコード
wreq = HttpWebRequest.Create(TextBox1.Text)
wres = wreq.GetResponse()
Dim enc As System.Text.Encoding = _
System.Text.Encoding.GetEncoding("euc-jp")
Dim s As IO.Stream = wres.GetResponseStream()
Dim sr As New IO.StreamReader(s, enc)

'コンテンツ内容をテキスト2に表示
Dim Textline As String = sr.ReadToEnd()
TextBox2.AppendText(Textline)

sr.Close()
s.Close()

End Sub
End Class

695:デフォルトの名無しさん
05/10/17 21:24:43
>>689
まずはTCP/IPの勉強をして来なさい

696:デフォルトの名無しさん
05/10/17 21:38:51
>>693
整形式XML（のフラグメント）になりうるんであればXmlReaderとかが使えるけど、HTMLだと難しい場合も多いだろうね。
素直なのは、正規表現(System.Text.RegularExpressions名前空間のRegexを中心とする各クラス)を使って整形するとか。
mshtmlを使って解析させるって手もあるけど……。

697:デフォルトの名無しさん
05/10/17 23:41:11
タスクバーを扱うには、どのあたりのクラスを使えばいいんでしょうか。
シンプルにクイックラウンチをON/OFFしたいだけなんですが。

698:デフォルトの名無しさん
05/10/17 23:51:21
他のプロセスのコントロールをいじるってのは.NETのクラスライブラリでは無理。
Win32APIを駆使することになる。
Shell_TrayWnd の ReBarWindow32 に
RB_GETBANDINFO で ToolbarWindow32 のハンドルと一致するの探して
RB_SHOWBAND で操作、かねぇ。
構造体ポインタのやりとりとなるとVirtualAllocExとかCreateFileMappingとか使う必要もあるね。

699:デフォルトの名無しさん
05/10/17 23:54:41
トレイアイコンのこと？
notifyiconをフォームにドロップするだけ
でフォームのresizeとnotifyiconのmousedownあたりにゴニョゴニョ書けばｏｋ

700:デフォルトの名無しさん
05/10/18 00:13:55
>>698
あ、サンキューです。
そのあたりの情報までは見つけていたけど、「.NETならもっと簡単なんじゃねぇの？」と
思ったんですが、できないというのがわかればがんばってAPI叩きます。助かりました。

>>699
いえ、>>698に書いてあるあたりです。

701:デフォルトの名無しさん
05/10/18 00:59:19
>>696
調べを進めていく上でのキーワードがいただけました。ありがとうございます。
（実は何を書いてあるのか殆ど分かりませんがｗ　XMLは聞いたことがあるので、ググリまくります。）

702:デフォルトの名無しさん
05/10/18 02:38:28
>>698

あくまで他スレッドがコントロールを直接操作できないだけ

他スレッドがよんだ自スレッドのメソッドがコントロールをそうさするのはok

703:デフォルトの名無しさん
05/10/18 02:42:19
>>702
？
いつスレッドの話になった？

704:デフォルトの名無しさん
05/10/18 03:46:05
XMLをQueueメモリに保存し、適時取り出して再度Xmlとし、処理していきたい
と考えています。

次のようなコードでQueueに書き込む分にははエラーは出ませんが、

　Dim WriteQueue As Queue = New Queue
　Dim xmlDoc As New System.Xml.XmlDocument
　（ここにXMLを構築するコードを書き込んでいます）
　WriteQueue.Enqueue(xmlDoc)

DequeueメソッドでXMLに書き戻すのがうまくいきません。Queueに書き込んだ
ものとソックリ同じ物を、新しく作成したXmlDocumentとしたい（つまり、コピー
を作る）んですが・・・・・

705:デフォルトの名無しさん
05/10/18 05:52:26
>>702
話がずれてる上に間違ってる。

＞他スレッドがよんだ自スレッドのメソッドがコントロールをそうさするのはok
okじゃないから　Control.Invoke / BeginInvoke を使おうな。

706:デフォルトの名無しさん
05/10/18 06:31:27
>>704
インスタンスとか参照とか理解してなさそうだが……。
取りあえずClonseメソッド。

707:デフォルトの名無しさん
05/10/20 07:09:58
.netではDDE通信が推奨されていないらしいですが
代わりにどのような方法が推奨されているでしょうか？

708:最凶VB厨房
05/10/20 07:12:12
リモチン？

709:デフォルトの名無しさん
05/10/20 09:34:36
>>707
.net Remoting
情報少ないけど、ほぼ唯一でてるオレンジの本見れば、DDE程度はOK。
ただ、自アプリ同士の連携の場合だからね。

昔のOfficeとかがDDEを提供していた（？）のと同じように、OfficeとかがRemoteオブジェクトを提供してるわけじゃないので。
（.netの弱点ってネイティブでOffice連携が無いことなように思える）

710:デフォルトの名無しさん
05/10/20 10:11:43
>>708, 709
thx.調べてみます。
代わりにソケット通信っていうのはありでしょうか？

711:デフォルトの名無しさん
05/10/20 12:13:24
>>710
.NET RemotingはTCP/HTTPをベースにしてる（内部で利用している）。

712:デフォルトの名無しさん
05/10/20 12:46:14
>>711
さんくす。じゃ、簡単にソケット通信でやっちゃおうかな

713:デフォルトの名無しさん
05/10/20 13:01:00
ソケットは単なる文字列の送受信。
リモーティングはシリアル化されたオブジェクトのやり取り。

目的が全く違います。

714:デフォルトの名無しさん
05/10/20 13:27:10
質問です。
スタートアップに指定したフォームを判断することはできますか？

　if Form1 = Application.StartupForm then

みたいなことをしたいんですがー。。

715:デフォルトの名無しさん
05/10/20 14:00:22
画面から『閉じる（×）』ボタンを非表示にしたいです。
最大化・最小化は残したいので、ControlBoxでは実現できませんでした。
何かいい方法はないでしょうか

716:デフォルトの名無しさん
05/10/20 14:54:17
Visual Studio の操作？に関してになるのですが、

C# の場合メソッドのオーバーライドを行なう際は

Protected Override とタイプすると、インテリセンスが開き、
その中からオーバーライド可能なメソッドを選択すると自動的に
シグネチャ含めてコードが追加されるのですが、VB.NET の場合は

Protected Overrides とタイプしてもインテリセンスが開きません。
VB.NET の場合は、エディタの左上から (overrides) を選択し、
その右からオーバーライドしたいメソッドを選択する、といったように
マウスでカチカチやるのが一般的なのでしょうか？

717:デフォルトの名無しさん
05/10/20 18:28:22
>>715
無効化なら
URLﾘﾝｸ(www.atmarkit.co.jp)
だが、さて非表示にはできたかねぇ……。

718:デフォルトの名無しさん
05/10/20 19:06:49
>>714
プログラマがどれで起動したか把握できないってのはどうよ？

719:デフォルトの名無しさん
05/10/20 19:44:58
ASP.NET、VB.NETで開発しております。
ログをテキストファイルに出力するような共通関数を作成したいのですが
どうにも行き詰って困っております。

wwwroot下にフォルダを作成し、その下に動的にログファイルを作成したいのですが
何かいい方法ありますでしょうか？
よろしくお願いします。

720:デフォルトの名無しさん
05/10/20 19:46:50
どこで行き詰まったの？

721:デフォルトの名無しさん
05/10/20 23:03:31
>ソケットは単なる文字列の送受信。
やはりそういうことか！

722:デフォルトの名無しさん
05/10/21 09:28:57
でも簡単なやり取りだけならソケット通信でもいいよね？

723:デフォルトの名無しさん
05/10/21 09:51:56
>>722
だから自分で目的を考えてでしょ。
単なる非同期・同期での通信ならばソケットでコマンドで十分。
イベント＋情報の送受信ならばリモーティング。

724:デフォルトの名無しさん
05/10/21 13:32:37
VB.NETの勉強としてTextBoxクラスを継承して
書式チェック機能を持ったTextBoxを作成しようとしています。

Validatingイベント内で、書式チェックエラーとなった場合に
フォーカスの移動をさせないようにしたのですが
Formの閉じるボタンを押しても同イベントが発生して
閉じるボタンが無効になってしまいます。

イベント内でイベントをキャンセルしているので当然なのですが
チェックを行ってエラー時はフォーカスを移動させないが
特定の処理（画面を閉じるなど）の場合はチェックしない
という機能を作ろうとした場合、どのようにすればいいでしょうか？
先人達の知恵を貸してください。

725:デフォルトの名無しさん
05/10/21 20:28:20
>>724
＞閉じるボタンが無効になってしまいます。
普通そんな事にはならないと思うけど。
閉じるボタンってウィンドウの右上のＸのことだよねえ？

フォーム上にフォームを閉じるためのコマンドボタンが用意してあって、
それをクリックしようとしてもクリックできない、なんてオチだったりして。

726:デフォルトの名無しさん
05/10/22 08:06:42
＞何かいい方法ありますでしょうか？

log4net
EntLib/LoggingAB

727:デフォルトの名無しさん
05/10/22 16:45:43
TextBox1 - TextBox10 の .Text　にすべて"*"を表示させたいのですが、

それぞれに
TextBox1.Text ＝ "*"
TextBox2.Text ＝ "*"
：
：
；
TextBox10.Text ＝ "*"

より頭のいい方法を教えていただきたいのですが、

728:デフォルトの名無しさん
05/10/22 17:03:24
>>727
TextBox配列にいったん格納してからループで値セット、ってあまり手間は変わらんか。

729:最凶VB厨房
05/10/22 17:14:01
TextBox型のものに"*"をFor Eachでセットしていくとか。

730:デフォルトの名無しさん
05/10/22 18:00:23
>>728, >>729

727ですが、私は初心者ですので、
具体的にお願いできますでしょうか？

教えていただいてるのにすみません。。。

731:デフォルトの名無しさん
05/10/22 18:09:10
初心者ならまずは地道にやっとけってこった

732:デフォルトの名無しさん
05/10/22 18:54:52
>>727
URLﾘﾝｸ(dobon.net)
↑のようなことをやりたいってわけじゃないってこと？

733:最凶VB厨房
05/10/22 20:51:25
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Const kome As String = "*"
　　　　Dim c As Control
　　　　For Each c In Me.Controls'フォームのコントロール全部に対して
　　　　　　If c.GetType() Is GetType(TextBox) Then'テキストボックス型のものなら
　　　　　　　　Dim t As TextBox
　　　　　　　　t = CType(c, TextBox)'コントロールをテキストボックスとして扱って
　　　　　　　　t.Text = kome'テキストプロパティに*をセット
　　　　　　End If
　　　　Next'していく
　　End Sub'とかネ

734:デフォルトの名無しさん
05/10/22 21:00:24
>>733
ControlにTextがあるんだからCType(c, TextBox)は必要ないぜ。
それより「結果を表示するTextBox11まで*になってしまいましたどうしたらいいですか」とか返されそうだな。

735:デフォルトの名無しさん
05/10/22 21:01:41
あ、それと型判定は
If TypeOf c Is TextBox Then
な。

736:最凶VB厨房
05/10/22 21:06:09
具体的な指摘どもども。
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Const kome As String = "*"
　　　　Dim c As Control
　　　　For Each c In Me.Controls　　 'フォームのコントロール全部に対して
　　　　　　If TypeOf c Is TextBox Then　　　　　　 'テキストボックス型のものなら
　　　　　　　　c.Text = kome　　　　　　　　 'テキストプロパティに*をセット
　　　　　　End If
　　　　Next　　　　 'していく
　　End Sub 'とか

737:デフォルトの名無しさん
05/10/22 21:07:10
>>733
そんな気張って答えるような質問とも思えんが。。

>>734
突っ込む奴が馬鹿だと萎えるなw

738:最凶VB厨房
05/10/22 21:09:46
>>737
最近コードを書いてなかったので
ちょっとしたリハビリや。

739:デフォルトの名無しさん
05/10/22 21:15:06
第一さ、そういうの「頭のいい方法」って呼んでよいものかどうか。。
サンプルコードとしてもあまり良質と思えないし。
俺がサンプルかくならせめて、

(1) Nameが"TextBox*"に一致するTextBoxのコレクションを作る関数を示す

(2) Nameが"TextBox*"に一致するTextBoxのコレクションを内部的に作って、それを
　　操作するクラスを示す

このぐらいするよ。

740:デフォルトの名無しさん
05/10/22 21:17:31
>>739
先生、VSを使ってないのでNameプロパティは基本的に空です！　どうしたらいいですか！

741:先生
05/10/22 21:23:20
>>727

742:デフォルトの名無しさん
05/10/22 23:04:42
10個くらいなら手で書いちゃえよ

743:デフォルトの名無しさん
05/10/22 23:27:21
初回しか埋めないってんなら、>>742で。
何度か＊でクリアするってんなら、>>728で。

744:デフォルトの名無しさん
05/10/22 23:29:20
>>743
いや、複数回クリアするならメソッドに切り出せばいいと思うんだな

745:初心者
05/10/23 11:48:58
USBドライブを差し込んだことを検知する方法ありますでしょうか？

746:初心者自己レス
05/10/23 12:11:14
７４５　自己レス
Ｃ＃ですけど、URLﾘﾝｸ(www.publicjoe.f9.co.uk)にありました。
お騒がせ

747:デフォルトの名無しさん
05/10/23 12:54:15
Range("D2:D6").Value = Array("国", "数", "理", "社", "英")

エクセルのマクロでこうやって入力すると全部国ってなってしまいます
Ｄ２が国Ｄ３が数Ｄ４が理って具合になればいいんですが
どうすればいいんですか？

748:デフォルトの名無しさん
05/10/23 13:04:09
>>747
URLﾘﾝｸ(oshiete1.goo.ne.jp)

749:デフォルトの名無しさん
05/10/23 13:13:32
>>748
マルチだっていいたいのかな？
嫌味な奴w
マルチの何が悪いのかサッパリわからんが、マルチが気に入らないなら放っときゃいいのに。

>>747
自分で答え見つけた方が楽しいだろうからヒントだけ。
ヒント：直線は平面の特殊ケースだと考えよう。

750:デフォルトの名無しさん
05/10/23 14:02:28
ＶＢでスロットのプログラム作ってるのですが、「スタート」ボタンを押したら
０．１秒単位でラベルの数字が回転しているように見せるにはどうしたらいいのでしょうか。
お願いします。

751:デフォルトの名無しさん
05/10/23 14:04:46
>>749
お前馬鹿ですね。

「 V B . N E T 質問スレ」

752:デフォルトの名無しさん
05/10/23 14:06:22
＞０．１秒単位でラベルの数字が回転しているように見せる
まず日本語の勉強をした方がいいね。意味不明。

753:デフォルトの名無しさん
05/10/23 14:36:06
>>750
数字をパラパラ切り替えるんじゃなくて、リアルに上下スクロール
しているように見せたいってこと？　けっこう面倒だと思うよ。

すべての数字や絵柄をピクチャ扱いで配列に入れて、乱数を元にス
タックしたシリンダ用の配列を使って、Ｙ軸方向に詰めながらスラ
イド表示させるくらいかな？

0.1秒を刻むならEnvironment.TickCountプロパティでどうにかな
るかと。数字の全体が表示されるまでに0.1秒かかるようにしたい
ってのは、自分で管理する必要あり。

754:デフォルトの名無しさん
05/10/23 14:40:56
>>753
おいおい750も750だが、あんたもあんただなあ。。
いったい750のどこをどう読めばそういう解釈がw

755:デフォルトの名無しさん
05/10/23 17:56:30
>>719
そういや俺もできなかったわ
結局トレースログのテキストをそのまま使った記憶あるな
そもそもファイル自体が作れなくない？
ファイル作れない、既存ファイルへの書き込みができないみたいな状態になって
すげぇ困ってトレースログをそのまま使ったな。できるのかな、これ

756:デフォルトの名無しさん
05/10/23 20:10:17
IISのセキュリティー設定とかきちんとやった？
プロセスの所有者が書き込み権限あるかとか。

757:デフォルトの名無しさん
05/10/23 21:00:45
VB.NETを使用して、Winアプリを開発しています。
アプリは、画像アップローダなんですが、VB.NETでサーバにファイルを
アップロードする方法がわかりません。
どなたかわかる方がいたらお教えください。

758:デフォルトの名無しさん
05/10/23 21:06:36
サーバによる。

759:757
05/10/23 21:09:24
言葉が足らず申し訳ございません。
サーバは、webサーバです。

760:757
05/10/23 21:14:06
まだ足りませんでした、ＩＩＳではないです。
よろしくお願いします。

761:デフォルトの名無しさん
05/10/23 21:35:34
>757
相手がWebサーバーなら受け取る側もアプリが必要だが・・・

アプリが必要かどうかはアップする方法やサーバーの設定による。

762:デフォルトの名無しさん
05/10/23 21:38:16
>>757
ヒント：<input type="file">
　　　　HttpWebRequest

763:757
05/10/23 21:55:18
ヒントありがとうございます。現在はこのように処理をしてるんですが
req = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
req.Method = "POST"
req.ContentType = "multipart/form-data"
reqStream = req.GetRequestStream()
reqStream.Write(data, 0, data.Length)

さて？こっからファイルのアップロードは
どうやるんだろうとなってしまっています。

もう少しヒントを頂けたら幸いです。

764:デフォルトの名無しさん
05/10/23 22:06:37
つうかね、入門書かってこいよ。
ファイルのアップロードなんて入門書に載ってる。

765:デフォルトの名無しさん
05/10/23 23:32:18
winXP、vb.net2003、office2003使用です。

vb.net側で、「Imports Microsoft.Office.Interop」と「Dim ThisApplication As New Excel.Application」を利用してエクセルを起動した後、エクセル側で「ファイル」→「終了」の操作をしてエクセルを終わらせた場合に、
「エクセルが終了した」ことをvb.net側で情報として捉えることができるコマンドはありませんか？

766:デフォルトの名無しさん
05/10/23 23:39:36
>>765
それってVB4+Office95時代からある問題だけど今でも出来ないんじゃない？

767:デフォルトの名無しさん
05/10/23 23:55:41
どうしても必要ならタイマ使ってポーリングすればいいじゃん。
エクセルが生きているかどうかの確認は工夫すれば出来たはずだよやった記憶があるから。

768:デフォルトの名無しさん
05/10/23 23:56:15
MSDN2のVSTOのリファレンスにWorkbook.Shutdownイベントなんてのがあったけどこの辺？
解説読むと違う気もするけど。

769:765
05/10/23 23:57:16
>>766
ホエ！やっぱムリなのか～？
ネットで調べても、VB側ですべて処理させたら、プロセスの終了まで出来ることはわかってんだけどね。。
やってることは、VB側でマクロを含んだエクセルを起動させて、あとの処理はエクセルのマクロまかせでエクセル側で終了まで処理させるのよ。。
マクロでやらせてるのは、定型の様式への入力支援で、文字の入力まですれば、罫線や結合や印刷範囲の指定までマクロで一気にやらせてます。ただ、そのほかの処理もあるんでエクセル側での終了は必須なんだよな～
で、エクセル側で終了しても、VB側のフォームが終了するまで起動したエクセルのプロセスが残るもので、それを何とか終了できないかと。。

>>766
回答サンクスです。も少し研究してみます。

770:デフォルトの名無しさん
05/10/24 00:05:07
ポーリングしてたら、もしExcelファイル開いていたら保存ダイアログ出る場合に固まっちゃうぞ

771:765
05/10/24 00:18:17
ThisApplication.ActiveWorkbook.Nameで既存ファイルを呼び出した場合でも、起動したworkbookの名前は取得できるんで、それから何とかできないかと考えてるんですが。。
「ポーリング」はよくわからないですが、一定時間ごとに監視するというやり方ですかね？だとしたらなるべくパソコンには余計な負担はかけたくないですが。。
できれば、「エクセルが終了した時点で」その情報を取得する方法がないかと。。

明日もあるんで今日は寝ます。レスくれた皆さんありがとうございました。。

772:765
05/10/24 00:26:32
>>768
Visual Studio Tools for Office..
たかがこんなプログラムにこんな高い製品は買えない。。
今の.netも個人持ちなのよ。。

773:デフォルトの名無しさん
05/10/24 09:27:56
お世話になります。
データセットのDataRowの値が｢H｣だった場合には、データグリッドに、｢ハードディスク｣と表示するというような処理をしたいのですが、MSDNで調べても方法が分かりません。
できれば、データグリッドの値だけを変えるようにしたいのですが、どなたか方法をご存じないでしょうか？
よろしくお願いします。

774:デフォルトの名無しさん
05/10/24 09:33:39
WinFormかASP.NETかどっちだ？

775:デフォルトの名無しさん
05/10/24 09:51:01
すいません。WINDOWSのFORMです。

776:デフォルトの名無しさん
05/10/24 09:57:59
あげ

777:724
05/10/24 14:16:12
返事が遅れてすみません

>>725
×ボタンの事であってます
Validatingイベント内で

If IsNumeric(CType(sender, TextBox).Text) = False Then
e.Cancel = True
Exit Sub
End If

のようにしているだけです
Validatingイベント内でキャンセルしているので
フォーカスは移動できないのですが（これが当然の動作という事は判ってます）
Formの×ボタンを押そうとした時はValidatingを発生させないような事はできますでしょうか？

778:デフォルトの名無しさん
05/10/24 15:30:11
>>777
.NETフレームワークのアップデート汁

779:デフォルトの名無しさん
05/10/24 15:39:26
>718
そのレスはもしかしてVB.NETで派生フォームとか使ってないの？

フォームAからフォームB、フォームC、フォームDを派生させたとして、
B～Dのいずれかがスタートフォーム。
それをフォームAの中で判断したい。

フォームAの記述

　If ( me = StartupForm) Then
　　・・・
End If

780:デフォルトの名無しさん
05/10/24 19:40:10
ユーザーコントロールを派生したくラスの
デフォルトのイベントを OnLoad 以外にすることって可能ですか？

781:デフォルトの名無しさん
05/10/24 19:53:11
デフォルトのイベントって何？

782:デフォルトの名無しさん
05/10/24 20:43:47
>>777
あ、なるほど確かにそうなるね。
確信はないけどコントロール側で対処するのは正攻法では難しいんじゃないかな。

フォームのClosingイベントハンドラで引数のeの値をヲチすると、
コントロール側でそういうことをしている場合これのCandelメンバが
Trueに設定されるようだから、これをFalseに書き戻してやれば
いいんじゃないかな。

とりあえず俺の環境ではうまくいった。

783:デフォルトの名無しさん
05/10/24 22:09:58
先生、0除算をしたら、DivideByZeroExceptionが投げられると思ったら、
なんか無限記号が表示されるんですけど、どういうことなのでしょうか？

784:デフォルトの名無しさん
05/10/24 22:39:32
>>783
浮動小数を使った場合のデフォルトの動作。
で、VB.NETは特に指定しなかったら除算は大体Doubleとして計算されるから。
判断はDouble.IsInfinityメソッドとか。

785:最凶VB厨房
05/10/24 23:30:36
無限記号だって？
よっこらせーっと

786:最凶VB厨房
05/10/24 23:36:36
Dim a As Single = 30
a = a / 0
MessageBox.Show(a)
+∞

ぽっかーん

787:757
05/10/25 00:46:32
もう一度質問させてください。
VB.NETを使用して、Windows Applicationを開発しています。
POSTによりWebサーバに画像ファイルをアップロード(PHP使用)する方法がどうしてもわかりません。
どなたか教えていただけませんか？

現在はこのように書いています。
Dim req As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
req.Method = "POST"
req.ContentType = "multipart/form-data"
Dim reqStream As System.IO.Stream = req.GetRequestStream()
↓ ここにが画像を入れるのかなと思っていますが…
Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes("?key=11&gazou='バイナリ？'")
reqStream.Write(data, 0, data.Length)
Dim res As System.Net.WebResponse = req.GetResponse()
Dim resStream As System.IO.Stream = res.GetResponseStream()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(resStream, enc)
Dim html As String = sr.ReadToEnd()

788:757
05/10/25 00:49:30
追記させてください。
PHP使用とは、受け取り側のWEBサーバーはPHPを使用しています。

789:デフォルトの名無しさん
05/10/25 00:49:59
FileStreamで読み出せば

790:757
05/10/25 01:02:37
レスありがとうございます。
ほんとに最近こればかりに時間を割かれているので・・・。泣きそうです。
Dim wkStream As New System.IO.FileStream("C:\gazou.jpg", System.IO.FileMode.Open)
のように読み込んで、
dim inData as byte = new byte(4096)
dim bytesRead integer = wkStream.Read(inData, 0, inData.Length);
while (bytesRead > 0)
reqStream.Write(inData, 0, bytesRead);
bytesRead = wkStream.Read(inData, 0, inData.Length);
end while

って感じになるのですか？

791:757
05/10/25 01:52:37
やっぱりだめでした。
Dim reqStream As System.IO.Stream = req.GetRequestStream()
reqStream.Write(data, 0, data.Length)
Dim wkStream As New System.IO.FileStream("c:\gazou.jpg", System.IO.FileMode.Open)
Dim inData(wkStream.Length) As Byte
Dim bytesRead As Integer = wkStream.Read(inData, 0, inData.Length)
While (bytesRead > 0)
↓ここでバイト数オーバーとでます、。
reqStream.Write(inData, 0, bytesRead)
bytesRead = wkStream.Read(inData, 0, inData.Length)
End While
reqStream.Close()

すでに画像のアップロードに成功された方、
どうか教えてください。

792:デフォルトの名無しさん
05/10/25 08:31:58
普通にHTMLページでそのファイルアップロード画面へアップした場合と、
なにか悩んでるプログラムでの、
HTTP通信の差を見た？
ログとるなり、他のツール使うなりすれば見れるでしょ。

つうか、サーバもいじれるならFTP立ち上げたほうが早いし問題ないし。
HTTPのファイルアップロードは所詮オマケというか無理がある仕様だし。

793:デフォルトの名無しさん
05/10/25 08:36:29
ところでGetRequestStreamの解説を読んだことがなさそうだな＞質問者

794:デフォルトの名無しさん
05/10/25 16:07:35
DataColumnCollectionの列順を変えたいのですが、どなたかよい方法をご存じないですか？
MSDNで調べても、方法が載っていません。
よろしくお願いします。

795:デフォルトの名無しさん
05/10/25 17:26:38
新しいDataTableを作る

796:デフォルトの名無しさん
05/10/25 19:13:31
その並び順を気にする発想が理解できん。

797:デフォルトの名無しさん
05/10/25 19:59:06
一度取得したテーブルをどうこうするより、希望する列順で取得できる
クエリを出したほうが楽かと。

798:デフォルトの名無しさん
05/10/25 23:39:21
どうもこんばんわ。
VB.NETでクォータービューの、FFTみたいなのを考えているんですが、アルゴリズムに
いまいち自信がもてません。
今は、Form1Paintに2次元配列から取得したマップデータをもとに、DrawImageで
全てのマップチップを描画しています。コントロール配列でピクチャーボックスにしなかったのは
重いかなぁとおもったからです。DrawImageでも普通にちらつきますのでバックバッファいれなきゃなりませんが。

今は、iとｊで2重ループで回して左奥から順番に右手前まで描画しています。
マップ回転は描画する順番を変えてやっています。

それでとりあえずはそれっぽいマップが出来上がったのですが、その上にキャラを
置いたり、カーソルを表示したりする時に、その座標をどのように取得するべきなのかが
よくわかりません･･･。

DrawImageだと座標が取れないので、自分でxとyを決めるのでしょうか。
でもそういうのだとなんだか･･･単に座標は合っていて、見た目は正しいけれど、
実際はそこに見えているだけで配列データにリンクしていないので、どうもしっくりこないなぁ。
と感じます。

すみません・・自分で書いてても判りにくいんですが、正しいアルゴリズムの
ヒントでも結構ですので教えていただけないでしょうか。

799:デフォルトの名無しさん
05/10/26 00:05:28
>>798
ヒント: 内部的に2次元で処理して、クォータービューはDirect3Dまかせ

800:デフォルトの名無しさん
05/10/26 00:14:16
>>798
なんて事は無い質問だな
３次元クリッピングっていう奴だ

801:デフォルトの名無しさん
05/10/26 09:59:20
例えば、
On Error Goto ErrHandler
　　　　：
　　　　：
ErrHandler:

で、ErrHandlerに飛んできた時に、呼び出し元の行番号を取得する方法ってあります？
現在の行番号を取得することはできるんだけど・・・

802:デフォルトの名無しさん
05/10/26 10:47:43
>>801

そんなんも考えつかない or 調べられないのだったら、
プログラマー辞めたら？

803:デフォルトの名無しさん
05/10/26 10:51:59
>>802
うはｗ
なにコイツｗ
プログラミング以外人に誇るモノがない人ですか？

804:801
05/10/26 11:05:45
New StackFrame(True).GetFileLineNumber
で現在の行番号を取得したり、

Reflection.MethodBase.GetCurrentMethod.Name
で現在実行中のメソッド名を取得はできたんですけどね・・・

これくらいしか調べられなかったオレって・・・

805:デフォルトの名無しさん
05/10/26 12:10:12
行番号？？？
まあ、ログ吐きたい場合などにほしくなるけど、結論的には不可です。
デバックコンパイルすれば例外の中に履歴的に出るから見れるけど、実行時はありません

806:デフォルトの名無しさん
05/10/26 12:26:07
>>801
On Errorより、Try～Catchを使った方がいいのでは？

807:デフォルトの名無しさん
05/10/26 12:30:01
そそ
ワシもtry-catchでexception.stacktraceじゃいかんのか？とｵﾓﾀ

808:駆け出しのＰＧ
05/10/27 00:41:10
Windowsフォームで作ったアプリに簡単なプロテクトを掛けたいのですが、良い方法はありませんか？

809:デフォルトの名無しさん
05/10/27 00:41:56
プロテクトって何をプロテクトするのよ

810:駆け出しのＰＧ
05/10/27 00:44:12
EXEコピーを防止したいです。
もちろんユーザーが素人に限定されますが。

811:デフォルトの名無しさん
05/10/27 00:50:50
それは何故？

812:駆け出しのＰＧ
05/10/27 00:56:34
依頼されてアプリを作りましたが、依頼者の仕事仲間で需要があるそうです。
依頼者は業務上の使用ですので著作権を完全には放棄したくありません。

813:デフォルトの名無しさん
05/10/27 00:58:20
＞もちろんユーザーが素人に限定されますが。
＞それは何故？
という意味でしたか？

814:デフォルトの名無しさん
05/10/27 01:57:54
ん、取りあえず思いついたいい加減なやり方。

ライブラリプロジェクトHogeを作って、ライセンスドクラス一つだけ用意。メンバはライセンスキーだけ。取りあえず空。
メインのプロジェクトはそれを参照。
Hoge.dllを除いてユーザに配布。
ユーザのLANアダプタのMACアドレスのMD5を取得。
送信して貰う。
そのMD5をライセンスキーと言うことにして、それをHogeのライセンスドクラスのライセンスキーに設定。
Hogeを再コンパイルして、単独で配布。
あとは起動時にHogeのライセンスキーとユーザのLANアダプタのMACアドレスのMD5が一致するか確認。
毎回ユーザのLANアダプタのMACアドレスのMD5を取得するのは面倒なのでレジストリに取っておくとか。

.NETの知識が多少でもある人ならすぐあれこれできてしまうな。
許可の取消もできないし。

いずれにせよユーザの何らかの情報を元に制限を加える必要がある。
単なるパスワードじゃ教えて終了だし、バイナリごとに異なるキーでも実行ファイルのコピーには無力だし。

815:デフォルトの名無しさん
05/10/27 06:50:09
>814
ありがとうございます。
試してみてまたここにカキコします。
数日下さい。

816:デフォルトの名無しさん
05/10/27 08:42:19
不思議な日本語を見た

817:デフォルトの名無しさん
05/10/27 14:59:47
あるファイルが他のプロセスにロックされているかどうかを知る方法はありますでしょうか？

818:デフォルトの名無しさん
05/10/27 15:06:09
実際に開いてみる

819:デフォルトの名無しさん
05/10/27 15:51:31
2005 Express Edition Beta 2を使ってツールを使ってるんだけど、結構いい感じ。
ヘルプが日本語で無いのは残念だけど。
製品版では日本語ヘルプがちゃんと用意されるだろうから、オレみたいなホビーユーザーなら、Expressで不足は無いと思う。

んで、質問。
Expressで作ったブツは自由に配布できるの？
完全に学習用限定な「Borland C#Builder Personal ダウンロード版 1.0」みたいな例があるから、ちょっと不安になる。

820:デフォルトの名無しさん
05/10/27 16:46:51
>>819
Go-Liveの申請をすれば、配布は出来る。
諸注意等は、ググって調べてくれ。

821:デフォルトの名無しさん
05/10/27 20:24:38
VB.NET のお試し版をダウンロードできるサイト、教えてもらえませんか。

822:デフォルトの名無しさん
05/10/27 21:22:41
URLﾘﾝｸ(www.microsoft.com)

823:デフォルトの名無しさん
05/10/27 21:48:17
NDOCでソリューションファイルの読み込み方教えろや！
ニートども！

824:デフォルトの名無しさん
05/10/27 22:21:18
>>820
製品版についての話だと思うんだが＞配布

825:デフォルトの名無しさん
05/10/27 22:22:54
>>824
??脳が不自由な方？

826:デフォルトの名無しさん
05/10/27 22:33:35
>>825
ほへ？
>819「Expressで作ったブツ」の"Express"はベータでない製品版で、
それで作ったものを配布可能かどうかを聞いてる、と読んだんだが。
そうなるとGo-Liveとは関係ない。

827:819
05/10/27 23:43:31
どちらとも解釈できる書き方して申し訳ない m(_ _)m
実は、オレ自身、同じエディションでもベータ版と製品版でライセンスが違うとは知らなかったよ。

製品版Expressなら、ブツは配布できるって事でＯＫ？

>821
URLﾘﾝｸ(www.microsoft.com)
一応、復元ポイントを作成してからインストールする方がいいかも。

828:デフォルトの名無しさん
05/10/27 23:51:31
>>826
「ほへ？」はねぇべ？
わやきもいじゃ。

829:デフォルトの名無しさん
05/10/28 01:17:27
>>828
824と823を間違えてるのに気づけよ

830:801
05/10/28 10:29:57
>806
>807
exception.stacktraceでこんな情報を取得できるって気づきませんでしたw
Try～Catchは場合によって使用していたのに・・・。

遅ﾚｽｽﾏｿ。

831:デフォルトの名無しさん
05/10/29 08:26:33
教えてください。
URLﾘﾝｸ(mbm.livewiredev.com)
[INFORMATION]で[SHARED MEMORY]の項目を選び、[C CODE]の中の
:: VB.NET Code
» VB.NET code can be downloaded here, thanks to Pedro Navarro
を選んでダウンロードし解凍してＶＢ 2005 Express Edition Betaで[ビルド]し、[デバッグ開始]したら、
[sensor 2]のほうの[name]での表示(“CPU”)が“PU”に化けたり、”U”だけになったりする。
また[sensor2]の[Current value]の表示が整数できちんと出ることもあるが、しばらくすると、
Eの型で表示されてしまう。時々（っていうか、なりっぱなしになってしまうこともある）、
まるで表示されなくなってしまうこともある。何故なんだろうか。

VB.netは持ってないんで、ベータ版でしかテストできないので、誰か他のバージョンで
動作確認をして報告してもらえるとありがたいです。
（尚、上記は、”Mother Boardmonitor５が動いている状態でないとテストできません。）

832:デフォルトの名無しさん
05/10/29 08:35:49
Cでのchar[]を全部Char()で宣言してる……。

833:デフォルトの名無しさん
05/10/29 10:24:40
>>832
レス、どうも
ちょっと､その意味がわかりません

834:デフォルトの名無しさん
05/10/29 12:59:16
「bitmapinfo構造体のメモリハンドルとビットマップデータのメモリハンドル」が
与えられて、そのデータをピクチャボックスに表示したいのですが、どうやったら
いいのかさっぱり分かりません
ヒントだけでもお教え頂けませんでしょうか

835:デフォルトの名無しさん
05/10/29 13:37:14
簡単に言えばー、
Win32APIのCreateDIBitmap関数でHBITMAP作ってー、
Image.FromHbitmapメソッドでBitmapにする。
メモリハンドルというのがHLOCALならアドレス取得にはLocalLock関数。そうでないのならそれに応じた関数。
Win32APIでは使い終わったGDIオブジェクトやメモリ領域の後かたづけに気を付けて。

836:デフォルトの名無しさん
05/10/29 13:37:57
ヒント

(1) MSDN（ドキュメントビュア）を起動して、"bitmapinfo"を検索する

(2) 検索結果の「場所」のカラムヘッダをクリックしてソートし、
　　「場所」が「プラットフォームSDK: GDI」になっている適当な項を表示する。

(3) 表示されたページ、およびその一番下の「参照」にリンクされているページを
　　注意深く読む。ドキュメントビュアのツールバーの「同期」ボタン(←→)を押して、
　　関連するページも読む。

(4) このスレのテンプレに紹介されているウェブサイトなどで、グラフィックを
　　扱っているサンプルを探してピクチャーボックスに画像を描画する一般的な方法を掴んでおく。

(5) Graphicsクラスのメンバを見て、デバイスコンテキストを取得する方法はないか調べる。

837:831,833
05/10/29 17:23:14
>>832->>836
尚、サンプルコードでは、Refresh() した直後には、senssor1のデータ関数を読んでるだけで、
Sensor2のほうはしてないようなので、タイムラグによるデータの変質なのかなとも思いました。
なので、sensor2のほうもsensor1と同時に新たに宣言したstring変数に代入し、更に、sensor2の
データがtext表示される直前に、その変数（温度データ）の長さが２バイトかどうかでデータチェック
して、２バイト以外の場合は、もう一度、refresh()してから変数にとりこむようにしたら、表示
そのもとしては、なんとか格好はついたようです。

次ページ