VB.NET質問ｽﾚ (Part7) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part7) at TECH

[前50を表示]
950:デフォルトの名無しさん
04/12/07 02:16:59
だいぶ作り直してしまいました・・・
でもありがとうございます！！！(TT)

951:デフォルトの名無しさん
04/12/07 08:10:20
VB.NETで作ったＰＧのＩＣＯＮはどのツールで作るんですか？

952:デフォルトの名無しさん
04/12/07 08:21:02
>>951
VB.NET

953:デフォルトの名無しさん
04/12/07 08:35:36
VB.NET のどこにＩＣＯＮ作るツールがある？　
えっプログラムでつくるのか？
　ＢＭＰともフォーマット違うみたいだし。
ＢＭＰ＋＠だろけどね。だれかフォーマットの規格どこにあるか
おしえてくれ。

954:デフォルトの名無しさん
04/12/07 08:58:43
VB.NETににはICON作成はできない。そういうツールはない。
ICOとBMPのファイルをStreamで開いて解析する。どうせ２，３バイトの
ヘッダーが付いてるぐらいだから、BMPにそのヘッダーをつければいい。

955:デフォルトの名無しさん
04/12/07 09:18:22
>954
やってみました、なんだ簡単なんだね。

956:デフォルトの名無しさん
04/12/07 09:27:18
VS.NETならファイル→新規作成→ファイルにアイコンファイルがあるんだがな。
VB.NET単体にはなかったのかorz

957:最凶VB厨房
04/12/07 20:40:24
App.icoだぼぉくぃっくしたら編集できるぞ。
2002。
VB.NET2003単体にはなかったのかorz

958:デフォルトの名無しさん
04/12/07 21:10:45
［Ｔｅｘｔ１］に入力した文字（アルファベット）を
［Ｔｅｘｔ２］（数値）文字分マイナス転置（アスキーコードで）する
プログラムを作っています。
例：cde⇒abc　2文字動かす

下のプログラムだと最初の１文字しか表示されません。
入力した数だけ表示させるにはどうすればいいでしょうか？
お願いします。

Private Sub Command1_Click()
i = Len(Text1.Text)
Text3.Text = Chr(Asc(Mid(Text1.Text, i, 1)) - Val(Text2.Text))
End Sub

959:デフォルトの名無しさん
04/12/07 21:11:28
Dim num As Integer
If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)
これでボタン押すたびに1になったり0になったりするはずなのに！！！
ならないのは何故ですか('A｀)

960:デフォルトの名無しさん
04/12/07 21:24:18
num の定義を public とかにする。

961:デフォルトの名無しさん
04/12/07 21:26:19
定義というのは型という事ですか？

962:デフォルトの名無しさん
04/12/07 21:35:53
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim num As Integer

If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)

無理でした、MsgBoxに1しか出ません！

963:デフォルトの名無しさん
04/12/07 21:42:45
最近vb.net始めました。２つの質問です。お願いします。

（１）ﾃｷｽﾄﾌｧｲﾙの指定行の値を変更するのに、

　　ﾌｧｲﾙの全部を読み出して配列に格納。
　　変更したい行に相当する配列を変更
　　配列を　for で、vbcrlfを & して結合
　　ﾌｧｲﾙを元のﾌｧｲﾙに書き出し

という手順でやっています。
でも何かもっといいやり方がありそうな気がして成りません。
もっといい方法はないのでしょうか。

（２）コンマで区切られた文字列を配列に格納するやりかたで、

str_ary(3)="1,2,3"
みたいにしたら
str_ary(0)←1 str_ary(1)←2　str_ary(2)←3
とコンマで区切られた文字列が自動的に配列に格納されるやり方を
どこかで見たような気がするのですが、見あたらなくなりました。
（もちろん上のやり方ではうまくいきません）
そのような方法がありましたらどうぞご教示願います。

　　　

964:デフォルトの名無しさん
04/12/07 21:42:52
Dim numをクラスのPublicだと思う

965:デフォルトの名無しさん
04/12/07 21:43:45
バカすぎ。

966:デフォルトの名無しさん
04/12/07 21:44:47
Public num As Integer

private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If num = 0 Then
num = 1
Else
num = 0

End If
MsgBox(num)

967:デフォルトの名無しさん
04/12/07 22:06:19
Ifの中にIfを書くことは不可能ですか？

968:デフォルトの名無しさん
04/12/07 22:07:48
可能

969:デフォルトの名無しさん
04/12/07 22:08:07
絶妙に意味不明です。
ていうか取りあえず試そうよ。

970:デフォルトの名無しさん
04/12/07 22:23:15
>>958
一文字しか処理してないから。

.NET的にエレガントに書くとこんな感じかね。
Dim i As Integer, re As String = "", c As Char
For Each c In Text1.Text
　　re += Chr(Convert.ToInt32(c) - Integer.Parse(Text2.Text)).ToString()
Next
Text3.Text = re

971:デフォルトの名無しさん
04/12/07 22:27:58
StringBuilder使えよ

972:967
04/12/07 22:36:24
>>968-969
Endifが無かっただけでした･･･。

973:デフォルトの名無しさん
04/12/07 22:40:35
>967
iiff

974:デフォルトの名無しさん
04/12/07 22:51:09
>>973
エレガントだ。（w

975:デフォルトの名無しさん
04/12/07 22:57:28
そろそろ1000取り

976:963
04/12/07 23:53:43
>>971さん
それは私(>>963)に対するレスですね？
ちょいと調べてみます。
ありがとうございます。

977:デフォルトの名無しさん
04/12/08 11:46:52
すみません、VB自体の質問ではないのですが

PC98で動かしてたﾍﾞｰｼｯｸのプログラムは
VBで動かすことは可能なのでしょうか?

978:デフォルトの名無しさん
04/12/08 11:48:21
>>977
N88Basicね。
部分的に流用するぐらいならなんとか可能だけど
そのまんまは無理だよ。

979:デフォルトの名無しさん
04/12/08 11:56:19
>>978
レスありがとうございます

そうなのですか
父がN88Basicで作ったプログラムをPC98を使用していて、古くていよいよ壊れそうなので
移植できるならVBでも買ってあげようかなと思いまして

980:デフォルトの名無しさん
04/12/08 12:01:41
>>979
PC98エミュレータとかなかったっけ？

981:デフォルトの名無しさん
04/12/08 12:02:26
つかN88BasicのWindows用インタプリタがなかったっけ？

982:デフォルトの名無しさん
04/12/08 12:06:16
DataGridに関する質問です。
VB.netでDataGridにデータを表示するのに、DataSetを作成して、
そいつをSetDataBindingでDataGridに表示しています。

そのGridについて、列幅や列ヘッダ名称をDataGridTextBoxColumn、
GridColumnStylesを利用して設定し、TableStyles.Addとしているの
ですが、表示が変わらずにDataSetの項目名が列ヘッダーに表示
されたままです。

変更するにはどうすればよいのでしょうか

983:デフォルトの名無しさん
04/12/08 12:43:22
>981
ある。普通にググれば見つかるはず。

984:デフォルトの名無しさん
04/12/08 12:44:40
>982
HeaderTextは設定しているの？

985:デフォルトの名無しさん
04/12/08 12:45:09
vb.netで同じLAN内でファイル転送をしたいのですが全く分かりません。教えてください。

986:デフォルトの名無しさん
04/12/08 12:50:44
>985
ファイルコピーすれば？

987:デフォルトの名無しさん
04/12/08 12:51:35
>985
System.IOクラスでファイル操作は色々できる。

988:デフォルトの名無しさん
04/12/08 13:06:10
>984

989:デフォルトの名無しさん
04/12/08 13:06:41
>984
下記のように設定しています。
Dim TSAuthors As New DataGridTableStyle
TSAuthors.MappingName = "Authors"

Dim TCFirstName As New DataGridTextBoxColumn
TCFirstName.MappingName = "PROJECT_CODE"
TCFirstName.HeaderText = "First Name"
TCFirstName.Width = 120
TSAuthors.GridColumnStyles.Add(TCFirstName)

grdProject.TableStyles.Add(TSAuthors)

990:デフォルトの名無しさん
04/12/08 13:10:06
>989
これでヘッダに「First Name」って出ないの？

991:デフォルトの名無しさん
04/12/08 13:11:40
>989
よさそうだけどな。DataGridの概要のページのサンプルがあるから
比較してみたら？

992:デフォルトの名無しさん
04/12/08 13:36:26
次スレは？

993:デフォルトの名無しさん
04/12/08 13:56:27
>>992
次スレ
ｽﾚﾘﾝｸ(tech板)

994:デフォルトの名無しさん
04/12/08 17:44:09
Part8まーだー？　C#に行こうかな

995:デフォルトの名無しさん
04/12/08 22:46:05
VB.NET質問ｽﾚ (Part8)
ｽﾚﾘﾝｸ(tech板)

次スレ

996:デフォルトの名無しさん
04/12/08 23:38:04
982=989です。

DataSetをBindした後、下記のようにDataGridTableStyleと
マッピングさせたらうまく行きました。

Dim dt As DataTable = dsPrjList.Tables(0)
Dim DGTS As New DataGridTableStyle
DGTS.MappingName = dt.TableName

997:デフォルトの名無しさん
04/12/09 00:08:46
なんか、開始押すといきなりフリーズするんだが。。
原因不明で、やっぱこういうときってやり直すべきなのだろうか

998:デフォルトの名無しさん
04/12/09 00:13:49
そうしたいんならそうすれば。

999:デフォルトの名無しさん
04/12/09 00:26:12
銀河鉄道

1000:デフォルトの名無しさん
04/12/09 00:35:39
の夜。

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