VB.NET質問スレ (Part7)
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNG過去スレ
VB.NET質問スレ (Part6)
http://pc5.2ch.net/test/read.cgi/tech/1088812165/
VB.NET質問スレ (Part5)
http://pc5.2ch.net/test/read.cgi/tech/1078134703/
VB.NET質問スレ (Part4)
http://pc2.2ch.net/test/read.cgi/tech/1065269043/
【老若】VB.net質問スレ【男女】 (Part3)
http://pc2.2ch.net/test/read.cgi/tech/1056281084/
【老若】VB.net質問スレ【男女】 (Part2)
http://pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問スレ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html
0002デフォルトの名無しさん
NGNGhttp://dobon.net/vb/
http://dobon.net/vb/dotnet/index.html
Microsoftクイック スタート チュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx
リソースセンター> .NET関連リンク
http://www.atmarkit.co.jp/fwin2k/rescenter/indexpage/net.html
Insider.NET
http://www.atmarkit.co.jp/fdotnet/index.html
@IT: 連載 VB.NETプログラミング
http://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html
@IT:連載 改訂版 C#入門
http://www.atmarkit.co.jp/fdotnet/csharp_abc2/index/index.html
C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html
0003デフォルトの名無しさん
NGNGhttp://ukamen.hp.infoseek.co.jp/
VB.NETとC#でデザインパターン
http://hccweb1.bai.ne.jp/tsune-1/
ConvertCSharp2VB
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
WisdomSoft 〜Developers Network〜
http://black.sakura.ne.jp/~third/
CodeProject
http://www.codeproject.com/vb/net/
the GotDotNet Home Page
http://www.gotdotnet.com/
KEN's .NET
http://www5b.biglobe.ne.jp/~yone-ken/VBNET/index.html
ソース置き場.NET
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049
Cetus Links: 19,498 Links on Objects and Components / .NET
http://www.cetus-links.org/oo_dotnet.html
0004デフォルトの名無しさん
NGNGVisualStudio.NET(MSDN Deluxe) Part13
http://pc5.2ch.net/test/read.cgi/tech/1083995297/
ふらっとC♯(Part5)
http://pc5.2ch.net/test/read.cgi/tech/1065196964/
C♯相談室 Part18
http://pc5.2ch.net/test/read.cgi/tech/1096112588/
managed C++ やろうぜ!!
http://pc5.2ch.net/test/read.cgi/tech/1014486422/
フリーの.NET統合開発環境「SharpDevelop」
http://pc5.2ch.net/test/read.cgi/tech/1023727377/
消しゴムじゃない方のMONOを使ってみるスレ
http://pc2.2ch.net/test/read.cgi/tech/1020215602/
♯♯♯Shared Source CLI ♯♯♯
http://pc2.2ch.net/test/read.cgi/tech/1024222901/
VBプログラマ質問スレ(6.0以前) Part38
http://pc5.2ch.net/test/read.cgi/tech/1095673000/
0005デフォルトの名無しさん
NGNGhttp://www.atmarkit.co.jp/fdotnet/dotnettips/index/index.html
緑のバイク ★ 初めてのC# プログラム全般
http://homepage3.nifty.com/midori_no_bike/CS/
MSDN
言語仕様などのリファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vbmscLROverview.asp?frame=true
サンプルコード
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vboriVBVCSharpSamples.asp?frame=true
.NET Framework を使用したプログラミング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconprogrammingwithnetframework.asp?frame=true
.NET Framework リファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/netstart/html/cpframeworkref_start.asp?frame=true
0006デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/msdn/net/general/dotnetperftechs.asp
Microsoft .NET Framework の Windows フォームを使用したペインティング テクニック
http://www.gotdotnet.com/japan/team/windowsforms/windowsformspainting.aspx
ガベージコレクション入門: Microsoft .NET Framework の自動メモリ管理 Part I
http://www.microsoft.com/japan/msdn/net/mag00/GCI.asp
C# プログラミング言語の将来の機能
http://www.microsoft.com/japan/msdn/vs/vcsharp/vbconCProgrammingLanguageFutureFeatures.asp
適当に選んだ資料。
他
http://www.ne.jp/asahi/nami/mei/dotnetlink.html
http://www.atmarkit.co.jp/fdotnet/tools/index/index.html
JScript .NETはこちらで:
ECMAScript デス 2
http://pc5.2ch.net/test/read.cgi/tech/1088298991/l50
0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG0009デフォルトの名無しさん
NGNGApplicationはSTATICでSessionオブジェクトはSessionごとってこと?
うーん、違いが不明。クッキーが関係するのかな?
よく分からない。
だれか、教えてー!!!
0010デフォルトの名無しさん
NGNG思いっきり簡略化すると、Applicationオブジェクトは
そのアプリケーション単位で共有、Sessionオブジェクトは、
クライアントPC毎に分かれる。
0011デフォルトの名無しさん
NGNGご返信ありがとうございます。
ということは、JAVAとまったく同じじゃないですか?
ですよね。
00129
NGNGそれとも、プロジェクト?
0013デフォルトの名無しさん
NGNGApplicartion=買い物かご機能
Session=それを使ってる各ユーザ
こんな感じ
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGステータスバーを初期化する処理をしたいのですが、
全てのボタンやテキストのクリックやキーダウンイベントに
処理を入れずにステータスバーを初期化する方法はありませんでしょうか?
(全てのクリックやキーイベントを拾うみたいな)
開発言語はVB.NETです。
よろしくお願い致します。
0019デフォルトの名無しさん
NGNGマウスとキーだけの入力でいいんでしょ?
0020デフォルトの名無しさん
NGNGttp://www.gj.il24.net/~nakasima/vb/tech/excontrol/index.htm
これ応用してできん?
0021教えてくんです
NGNG男声を、いろんな女声に変換する方法も知りたいです。
0023教えてくんです
NGNG音声ファイル(.wav)のオブジェクト生成?といった基本的な方法と、
高速フーリエ変換、
周波数を高い方にシフト、
逆フーリエ変換のアルゴリズム、それに関するサイトを教えて下さい。
0024デフォルトの名無しさん
NGNGttp://www.kk.iij4u.or.jp/~kondo/wave/
関連書籍の画像らしいです
ttp://www.cepstrum.co.jp/1book/book_l.jpg
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNGありがとうございます
さっそく見てみます!
0029デフォルトの名無しさん
NGNG現場で役に立つのかな?
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG中央に表示することは出来ませんでしょうか。
0032デフォルトの名無しさん
NGNGここで聞いてもいいの?(というか聞いてるんだけど)
0033デフォルトの名無しさん
NGNG1 InputManを買う
2 textboxを継承したクラス作って自分で描画する
のどちらかかな?
0034デフォルトの名無しさん
NGNGODBC汎用じゃいかんの?
0035デフォルトの名無しさん
NGNGやっぱwin32APIの知識も必要ですか?
0036デフォルトの名無しさん
NGNGSystem.Web.Mailではいかんの?
0038デフォルトの名無しさん
NGNG良いソフトありませんか?
「ぶどう街」さんのところのソフトはメモリリークバグがあって
連続運転に向かないようなんですけど。<サポートに確認済
最低でも12時間以上は連続で描画したいんです。監視用アプリなので。
0039デフォルトの名無しさん
NGNGWin32はいらん。
とりあえず、RFC読めばワリと簡単に形にはなる。
0040デフォルトの名無しさん
NGNGIf KeyCode = System.Windows.Forms.Keys.Up Then PictureBox1.Top = PictureBox1.Top - 10
If KeyCode = System.Windows.Forms.Keys.Down Then PictureBox1.Top = PictureBox1.Top + 10
If KeyCode = System.Windows.Forms.Keys.Left Then PictureBox1.Left = PictureBox1.Left - 10
If KeyCode = System.Windows.Forms.Keys.Right Then PictureBox1.Left = PictureBox1.Left + 10
End Sub
これを貼り付けてもピクチャーボックスが動かないのはなぜでつか・・・
0041デフォルトの名無しさん
NGNG宣言部にイベントへ関連付ける記述が無いな・・・
このプロシージャは、このイベントが発生した時に実行する、
と言う関連付けが必要なのだが、確認してみ。
VB6.0以前に慣れていると、ドツボに嵌る部分。
0042デフォルトの名無しさん
NGNGアイコンを登録削除できるランチャーを作ろうと思います。
コンポーネントの配置
流れは、、、
3個位のアイコン配置できるコンポーネント↓
コンポーネントを右クリックしたときにでる登録削除のPOPUP↓
登録をクリックするとダイアログでアプリが登録できる↓
アイコンをクリックすると実行↓
と考えています。
ダイアログの処理はわかるのですが、
アイコンを配置できるコンポーネントは何か、
POPUPメニューがでてくるコンポーネントは何かがわかりません。
お手数ですが教えて下さい。
0043デフォルトの名無しさん
NGNGなんか「コンポーネント」ってドラえもんの道具か何かと勘違いしてないか?
画面にポトペタするだけで「あんなことこんなこと」思ったとおりかなえてくれるなら
プログラマなんていらないじゃん。
0044デフォルトの名無しさん
NGNG0045デフォルトの名無しさん
NGNGググってもよくわからなかったのですが、具体的にどうしたらいいでしょうか・・・?
0046デフォルトの名無しさん
NGNG単純に Handles が無いって言ってるんだと思うが。
つか中途半端にVBとVB.NETが混じったソースだなぁ。
Handlesつけても引数が間違ってるから動かんね。
0047デフォルトの名無しさん
NGNG今、SQLから返ってきた結果をDataSetに格納し
XMLに吐きだしているのですが、
DataSet.WriteXML()を用いた場合、
NULL値がXMLに書き出されずに困っています。
すべての列の値がきちんと書き出される方法はないでしょうか?
これがないために、再度データベースに書き戻す際に
列の個数が合わないのです。
大変お手数をおかけしますが、よろしくお願い致します。
0048デフォルトの名無しさん
NGNG004947
NGNGはい。書き出してます。
ただし、データがNULLのところはタグごと出力されません。
0050デフォルトの名無しさん
NGNGで書き出した奴をReadXMLで読み込む文には問題なかったんだけど
もうチョイ調べてみる
005147
NGNG結局、表示はあきらめ、
insert into テーブル名(列の定義) values(・・・);
として処理することにしました。
005247
NGNGあ、出せそうですか。わざわざありがとうございます。
どちらかというとタグが全部出る方が
その後の処理が扱いやすいので助かります。
0053デフォルトの名無しさん
NGNG0054デフォルトの名無しさん
NGNGハァ!?
0055デフォルトの名無しさん
NGNG0056デフォルトの名無しさん
NGNG質問1
VB.NETでコードを打ち込むとき、コメント文は緑色で表示され、
予め用意されている関数は青色で表示されますよね。
これと同じように、リッチテキストボックスに表示された特定の文字列の色を変えたいのですが、
どのようなコードを記述すればよいのでしょうか。
0057デフォルトの名無しさん
NGNG正規表現を使った文字列の置換で、マッチした文字列から一部の文字列を
抜き出し、置換後の文字列に反映させることはできないでしょうか?
例えば、
<IMG SRC="ABC.gif" WIDHT=100 HEIGHT=100>や
<IMG WIDTH=200 HEIGHT=200 SRC="DEF.gif" v:shapes="_x0000_i1025">
というイメージタグから「IMG」と「SRC=" "」の部分だけを残してそれぞれ、
<IMG SRC="ABC.gif">
<IMG SRC="DEF.gif">
という風に置換したいのですが、
こうするためには、正規表現でマッチした文字列で
「SRC="」からその直後の「"」までの記述を記憶しておき、
置換後の文字列に反映させるのが確実だと思うのです。
今は、
RichTextBox1.Text = Regex.Replace(RichTextBox1.Text, "\<IMG[^\>]*SRC=""", "<IMG SRC=""")
RichTextBox1.Text = Regex.Replace(RichTextBox1.Text, "\.gif""[^\>]*\>", ".gif"">")
というコードでごまかしているのですが、
このコードでは、イメージタグ以外の文字列まで置換してしまう危険性があります。
例えば、リッチテキストボックス内に
<A HREF="GHI.gif" TARGET="TOP">
という文字列があったとすると、この文字列まで
<A HREF="GHI.gif">
と置換されてしまいます。
何か良い方法があればご教示ください。
0058デフォルトの名無しさん
NGNG0059デフォルトの名無しさん
NGNGC#で悪いけど。
private void Form1_Load(object sender, EventArgs e)
{
this.AllowDrop = true;
}
private void Form1_DragEnter(object sender, DragEventArgs e)
{
e.Effect = DragDropEffects.All;
}
private void Form1_DragDrop(object sender, DragEventArgs e)
{
string[] l_asFiles = (string[])e.Data.GetData(DataFormats.FileDrop);
foreach (string l_sFile in l_asFiles)
{
Debug.WriteLine("FileName = " + l_sFile);
}
}
006058
NGNG0062デフォルトの名無しさん
NGNGPerlなら
@links = ($contents =~ /<a href=\"(\S+)\">/g);
みたいに簡単にできますが、これと同じことをVB.NETで
実現するにはどう書けばよいのでしょうか。
0063デフォルトの名無しさん
NGNGすいません。ヘルプに似たような例がありました。
0064sage
NGNGどのようにすれば良いのでしょうか?
APIをガリガリ使えば何とかできたのですが、
せっかくStreamクラス等が用意されているので
出来るだけAPIを使わずに、実現したいと考えております。
0065超初心者
NGNG「引数に関数のポインタがある関数」を
VB側から呼び出すことってできませんか?
DLLEXPORT int __stdcall test( double (*func)(int a) , int b)
↑こういうの
0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNGwebmatrixhostingでテストしようと思っています。
ttp://europe.webmatrixhosting.net/japan/default.aspx
しかし、使い方がまったくわからないのです。
どのファイルをアップしたらいいのか、初期ページをどのように変更したらよいのかわかりません。
どなたか、使用方法を教えてください。よろしくお願いします。
006867
NGNG自己解決しました。
0069デフォルトの名無しさん
NGNGIISのドキュメントルートに指定していたフォルダ配下の
ファイルが更新できなくなってしまいました。
どのファイルを開いても、他のプロセスが使用中というような
ダイアログが出てしまいます。これは一体なんなんでしょうか。
0070デフォルトの名無しさん
NGNGASP.NETで携帯アプリを作成しているのですが、
入力画面で入力した値を、変数に代入しているのですが、次のフォームに移ると、代入した値が消えてしまっています。
PRIVATE,PUBLIC,PROTECTED,FRIEND、どれを指定してもだめです。
携帯ではなく、PCで検証しているからこうなるのでしょうか?
あるいは,他の理由か?
どなたか,ご教授ください。
よろしくお願いします。
0071デフォルトの名無しさん
NGNG変数は通常引き継がれない。
Webプログラミングの基礎からやり直した方がいい。
0072デフォルトの名無しさん
NGNG0073デフォルトの名無しさん
NGNG1=1+ε
を満足する正実数εのうち最大のもの(マシンイプシロン)を求め、
それを有効数字三桁まで表示するプログラムを組みたいのですが、
今まで何のプログラムも組んだことがないので、手も足も出ません。
どなたかお力をお貸し下さい。お願いします。
0074デフォルトの名無しさん
NGNG手も足も出ないところから教えてもらうより、最初は本でも見たほうができるだろ
本見て詰まってからこっち来い。
わからないところは教えられるけど、おまいさんのわからないところがどこだか教えるのは無理だ
0075デフォルトの名無しさん
NGNGそんな難しい問題か?
それに学校の課題ならテキストにヒントみたいなこと書いてあるんじゃない?
2分法とかのアルゴリズムとか、数学で「はさみうち」を勉強したことがあれば
その考え方の応用でいけるでしょ。
ところで、たぶん>>74は解放が分らないに5万両。
007673
NGNGεに適当な値を代入した時に、
1+εが1より大きいか、等しいかを判別するプログラムは
あらかじめ与えられています。
それ以外のテキストはないに等しいです。
自分でネットで極基本的な文法は勉強しました。
For文で1+εが1より大きくなるまで(1e-10から1e-20位まで)
演算させて、If文で大きくなる直前のεを出力させるプログラムを
組もうと思ったんですが、
For文とIf文の条件式の書き方とか、
どうしたら有効数字三桁で出力できるのかとか、
分からない事が多すぎて立ち止まってます・・・。
0077デフォルトの名無しさん
NGNG解放誤字乙
0078デフォルトの名無しさん
NGNG0079デフォルトの名無しさん
NGNG条件式の書き方がわからないんだったらネットで調べる前に文法の本を買ってきたほうがいいと思うぞ
全部ネットで調べようとすると時間がかかってしかたない
0080初心者 ◆qIFvKWN9EM
NGNGヴィジュアルベーシックを扱ってみたいのですが
今流行りなのは.NETと聞きそれを購入してマイピーシーに導入しようと思うんですけど
本体はいくらぐらいするものなのでしょうか?
それと参考書など独学で学んでいくのにお勧めの物などあれば教えてもらえませんか?
0081デフォルトの名無しさん
NGNGhttp://www.atmarkit.co.jp/fdotnet/vb6tonet2/index/index.html
でも、本で見るほうが分かりやすいと思われ
このページの元になった本持ってるけど、本のほうがやっぱり見やすい。
0082デフォルトの名無しさん
NGNG>>80に対するレスは
本は http://pc5.2ch.net/test/read.cgi/tech/1089492835/
本体価格は http://www.kakaku.com/prdsearch/detail.asp?PrdKey=03107010082
0083デフォルトの名無しさん
NGNGこういうことか?「有効数字」の意味とどの型をターゲットにているのかが
よく分らんが。とりあえずDoubleで。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim BandWidth As Double = 0.5R
Dim LeftVal, RightVal, CenterVal As Double
Dim Epsilon As Double = 0
Do While BandWidth <> 0.0R
'LeftVal = 1.0R + Epsilon
'RightVal = 1.0R + Epsilon + BandWidth * 2
CenterVal = 1.0R + (Epsilon + BandWidth)
If CenterVal = 1.0R Then
Epsilon += BandWidth
End If
BandWidth /= 2
Loop
0084デフォルトの名無しさん
NGNGDim FormatString As String = "0."
Dim NumDigit As Integer = 0
Do
FormatString &= "0"
Dim EpsilonString As String = Epsilon.ToString(FormatString)
If Epsilon.ToString(FormatString) <> FormatString Then
Dim TrimedEpsilonString As String = EpsilonString.Substring(0, EpsilonString.Length - 1)
Dim TrimedFormatString As String = FormatString.Substring(0, FormatString.Length - 1)
If TrimedEpsilonString = TrimedFormatString Then
NumDigit = 1
Else
NumDigit += 1
End If
End If
Loop While NumDigit < 3
MsgBox("Epsilon = " & Epsilon.ToString(FormatString))
End Sub
008573
NGNGいただいたアドバイスを元にがんばってみます。
また分からないことがあったらお願いします。
0086初心者 ◆qIFvKWN9EM
NGNGありがとうございます^^
なるほど、本体のほうは見る限りだと1万〜2万前後が相場なんですね
本のほうはよくわかりませんでしたが本屋で立ち読みでもして
気に入ったのを買って家でじっくりとやっていこうと思います
また困ったことがあったらよろしくお願いします^^
0087初心者2
NGNG『フォームに6個のピクチャボックスを作成し、
ピクチャボックス番号と色指定をすると、指定された
ピクチャボックスがその色で塗られる』
という課題なのですが教えてください
0088デフォルトの名無しさん
NGNGなぜ朝に…
0089初心者2
NGNG0090デフォルトの名無しさん
NGNG0091デフォルトの名無しさん
NGNG0092初心者2
NGNG0093デフォルトの名無しさん
NGNG0094デフォルトの名無しさん
NGNGこんなの考える余地なんてないだろ
ただの作業だ
0095デフォルトの名無しさん
NGNG解決したらそれもマルチポストしとけよ
0096デフォルトの名無しさん
NGNG0097デフォルトの名無しさん
NGNGメディア関係には疎いので何もわかりません
0098デフォルトの名無しさん
NGNGMSに金払ったらやってくれるのかな?
0099デフォルトの名無しさん
NGNGMSに金払ったら移行するための勉強をさせてもらう権利が得られますw
0100デフォルトの名無しさん
NGNG一番手っ取り早いのはメディアプレーヤのコンポーネントを貼り付ける
かな?
0101デフォルトの名無しさん
NGNG5万/Kstep払うから、やらないか?
0102デフォルトの名無しさん
NGNGItemを複数選択し一度に削除する為以下を実行しましたがエラーになります。
For i = 0 To Me.ListBox.SelectedItems.Count - 1
Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i))
Next i
上記を
Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i))
だけにすると、1番上のItemは削除されるのですが、
Forで連続して削除することは出来ないのでしょうか。
宜しくお願いします。
0103デフォルトの名無しさん
NGNGんーなもんiは単なるインデックスであってIDじゃないからでしょ。
例えば10コのアイテムから5コ削除完了してi=5になった時点で
Me.ListBox.SelectedItems(i)なんて存在しないじゃん。
解決法としては、例えばFor Eachつかえばいいんじゃないの?
0104デフォルトの名無しさん
NGNGたしかにSelectedItems(i)では、消したItemによっておかしくなりますね。
だるま落としの容量で、SelectedItems(0)にしたところうまく動きました。
For i = 0 To Me.ListBox.SelectedItems.Count - 1
Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(0))
Next i
ありがとうございました。
0105デフォルトの名無しさん
NGNGprintDocument使って印刷する方法を教えてください。
漠然と簡単にできると思ってたら、意外にこの2つを結ぶ線が見つからないんです。
0106デフォルトの名無しさん
NGNGFrameWorkって何なんですか?
.NETで作ったプログラムが他のPCで動きません。
色々調べた結果FrameWorkに関係あるような気がしました。
どなたかこのプログラミング好きな素人めに救いの手を・・・
0107デフォルトの名無しさん
NGNG何のつもりか知らんが全然面白くないよ。
ナンセンスギャグ?もう80年代じゃないんだけど。
0108デフォルトの名無しさん
NGNGよくわかりませんがここは初心者は来てはいけないわけですね。
わかりました。
もっと貴方にとって有意義な質問ができるようになったらまた来ます。
(´・ω・`)でもせめてどうやったら他のPCで動くか教えて欲しかったな・・・
0109デフォルトの名無しさん
NGNG0110デフォルトの名無しさん
NGNG初心者がいかんのではなくて、「初心者です」を楯に調べられることも
調べない人が嫌われるのです。
そして、その嫌う様をおもしろがって、誰でも知ってるような調べれば
すぐわかるようなことを、わざと質問する人がいます。
そういう人だと思われたわけです。
0111デフォルトの名無しさん
NGNG0112デフォルトの名無しさん
NGNGVB 6で作成したプログラムを実行するにはVB 6のランタイムDLLが必要であったが、VB.NETで作成したプログラムを実行するには、.NET Frameworkランタイムが必要である
0113デフォルトの名無しさん
NGNG0114デフォルトの名無しさん
NGNG0115デフォルトの名無しさん
NGNGプログラム初めてなのに本一冊も読まないでどうやってプログラム書いてるのかと
0116デフォルトの名無しさん
NGNG君の書いたソースを見てみたいYO!
0117デフォルトの名無しさん
NGNGやーいバカ
0118デフォルトの名無しさん
NGNGFlexGrid か DataGrid のどちらを使用したらいいか
迷っています。
表の仕様は、
行列数は固定、プログラムからの表示のみでキー入力不可、
マウスクリックされた表内の行・列番号をプログラムで取り込む機能が必要、
セルの色はプログラムにより変更可
と言った感じです。
FlexGridでもDataGridでも可能なんでしょうが、
どちらがより適切なんでしょうか?
よろしくお願いします
0119デフォルトの名無しさん
NGNGセルの色を任意に変えたいのだったらFlexGridのほうが楽
DataGridだとオーナードロー使っていちいち変えてやる必要がある
0120デフォルトの名無しさん
NGNGタブに追加するにはどうすれば良いのですか?
タブブラウザみたいなやつです。
0121デフォルトの名無しさん
NGNGタブに追加するにはどうすれば良いのですか?
タブブラウザみたいなのです。
0122デフォルトの名無しさん
NGNG-100で書き込んでて、書き込まれて無いと思った。m(__)m
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNG誰か助けてください
問題
掛け算の99を表示させなさい
どうかお願いします
0125デフォルトの名無しさん
NGNGC#だけどテキトーに。
for(int count = 1; count <= 99; count++)
{
for(int count2 = 1; count2 <= 99; count2++)
{
Console.WriteLine(count.ToString() + " "+"+"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString());
}
}
0126デフォルトの名無しさん
NGNGfor(int count = 1; count <= 9; count++)
{
for(int count2 = 1; count2 <= 9; count2++)
{
Console.WriteLine(count.ToString() + " "+"*"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString());
}
}
0127デフォルトの名無しさん
NGNGありがとうございます
宿題Visual Basicなんです
これをVBでやるとどうなるんでしょう
たびたびすいません
0128デフォルトの名無しさん
NGNGどこか、作り方とか説明してるサイトありませんかね?
0130デフォルトの名無しさん
NGNG0131デフォルトの名無しさん
NGNGVBのソースは・・・
0132デフォルトの名無しさん
NGNG0133デフォルトの名無しさん
NGNGこの程度のことが思いつかないようでは、授業を受けている意味がないような・・・
0134デフォルトの名無しさん
NGNGOTL
おながいします
0135デフォルトの名無しさん
NGNG0136デフォルトの名無しさん
NGNG来年もガンバレ
0137デフォルトの名無しさん
NGNG電算室ある理系の大学でないと無理な気がするんだけど。
0138デフォルトの名無しさん
NGNG10年くらい前か
0139デフォルトの名無しさん
NGNGやってみました
添削お願いします
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 9
Console.Write(i * j)
Next
Console.WriteLine()
Next
Console.Read()
>>137
あるんです・・・
0140デフォルトの名無しさん
NGNGスクリーンショットを保存する方法を教えてください。。
0141デフォルトの名無しさん
NGNG「ペイント」を開いて「クリップボードから貼り付け」
「ファイル名を指定して保存」
0142デフォルトの名無しさん
NGNG0143デフォルトの名無しさん
NGNG0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNG( ・∀)人(∀・ )通報しますた!
0147デフォルトの名無しさん
NGNG検索しまくればなんとかなるレベルだと思うんだが
0148デフォルトの名無しさん
NGNG0149139
NGNGOTL
0150デフォルトの名無しさん
NGNGこれだと掛け算の結果が羅列されるだけで不十分だと思う
0152デフォルトの名無しさん
NGNGCでやれCで
0153デフォルトの名無しさん
NGNGConsole.Write(i & "×" & j & "=" & i * j)
0155デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNGもしそうなら、PHPでHTMLのフォームを使っていたのと比べると、隔世の感がありますね。
いかがでしょうか?
ご教授願います。
0158デフォルトの名無しさん
NGNGEUCで書かれたページがうまくダウンロードできません。
StreamReaderを作る際に
New StreamReader(wc.OpenRead("http://www.asahi.com"), Encoding.GetEncoding("euc-jp"))
こんな感じで書いているのですが、日本語の一部(8割方ちゃんと読める)が
文字化けした状態になってしまいます。
正しく変換するにはどのように書いたらよいのでしょうか。
0159デフォルトの名無しさん
NGNG0160デフォルトの名無しさん
NGNGすまん。自己解決。犯人は秀丸だった。
0161デフォルトの名無しさん
NGNG足を入れたとたんに低レベルですよ
0162デフォルトの名無しさん
NGNGWebMethodで、引数を与えて、引数から計算をして戻り値を返すという関数を作ったのですが、
WebMethod名に引数を与えたURLを入力すると、
「'/WebServiceSoap' アプリケーションでサーバー エラーが発生しました。
要求形式が認識されません。 」
と出てきてしまいます。
WebMethod名だけを指定したURLにすると、テスト画面になってしまいます。
なぜ、直接、レスポンスがないのでしょうか?
0163デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?q=cache:vv8aw_RQsE8J:www.atmarkit.co.jp/bbs/phpBB/viewtopic.php%3Ftopic%3D2278%26forum%3D7%262+%E8%A6%81%E6%B1%82%E5%BD%A2%E5%BC%8F%E3%81%8C%E8%AA%8D%E8%AD%98%E3%81%95%E3%82%8C%E3%81%BE%E3%81%9B%E3%82%93&hl=ja
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNG印刷するところまでは上手く言ったのですが、閉じようとするとエクセル側に”変更を
保存してもいい?”って聞かれてしまいます。このメッセージを無視して、エクセルを
閉じてしまうにはどうしたらよいのでしょうか?
0166デフォルトの名無しさん
NGNGDim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.Workbooks.Open("\\filesaver\data\printMitsumori.xls")
ExcelSheet = ExcelBook.Worksheets(1)
ExcelApp.Visible = True
ExcelSheet.Cells(1, 1).Value = data1
ExcelSheet.Cells(2, 1).Value = "data2
ExcelSheet.PrintOut()
ExcelApp.Quit()
0167デフォルトの名無しさん
NGNGExcelBook = Nothing
ExcelApp = Nothing
Catch ex As Exception
MessageBox.Show("印刷処理に失敗しました、暫くしてから再度ボタンを押してください")
ExcelApp.Quit()
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing
End Try
0168デフォルトの名無しさん
NGNG0169165
NGNG0170デフォルトの名無しさん
NGNGSub Form_Load() Handles MyBase.Load
'処理A(5分程度時間がかかる)
End Sub
この時、処理Aが終了するまで、フォームが表示されません。
処理Aの前にMybase.Showを実行すると、
ウィンド枠と、メニューは表示されるのですが、ボタンやテキストボックスが
白く表示されてしまいます。(処理Aが終了したら正しく表示される)
処理Aの間も正常に表示させるにはどうしたらいいのか教えてください。
お願いします。
0171デフォルトの名無しさん
NGNGVB.NET ではなく、C#を利用してasp書いてるんですが、
質問はどこでしたらいいんでしょう?それともそんなスレない?
0172デフォルトの名無しさん
NGNGループの中でApplication.DoEventsを呼べばいいかと。
0173デフォルトの名無しさん
NGNGWebProg板
http://pc5.2ch.net/test/read.cgi/php/1040698263/l50
0174170
NGNGありがとうございます。
ただ、処理A(Function のコール)は
外部から提供されている部分で、できれば手を加えたくありません。
他にもなにか方法があればお願いします。
0175デフォルトの名無しさん
NGNGそもそもLoadイベントでなにか処理をするなんて根本から間違い。
別のタイミング(たとえばActivatedイベントなどで)行うべき。
さらに、そんな重い処理なら別スレッドで実行するようにするべき。
>>172には悪いが、DoEventsなんて下策中の下策。
というか、>>170の問題はDoEventsでは恐らく解決しないだろう。
0176デフォルトの名無しさん
NGNGDim Class1 As ClassName
...
Class1 = New ClassName(0)
...しばらくClass1を使う
Class1 = New ClassName(1)
こんなことしてもVBさんは勝手にお掃除してくれるのでしょうか?
0177デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG0180デフォルトの名無しさん
NGNG0181デフォルトの名無しさん
NGNG参照が解除された後に適当な時期に破棄される
とある
0183デフォルトの名無しさん
NGNGキーボードからの入力は不可、表示はプログラムからのみ。
この時、テキストボックスの大きさより表示行が増えた時に、
一番下の行を常に表示したいのですが、
どういう設定をしたらいいのか教えてください。
現状は、行数が増えても同じ場所を表示してしまいます。
お願いします。
0184デフォルトの名無しさん
NGNGテキストの入力位置をSelectメソッドで一番最後に指定して、
ScrollToCaretメソッドでその位置を表示させる
具体的にソースを書けば、以下のような感じ
MyTextBox.Select(MyTextBox.Text.Length, 0)
MyTextBox.ScrollToCaret()
0185デフォルトの名無しさん
NGNG0187デフォルトの名無しさん
NGNG0188デフォルトの名無しさん
NGNGFunction x(a As String,b As String,c As String,d As String)
という感じのファンクションを呼び出す時に、
ある部分からは、aのみ設定して
ある部分からは、a,b,c,を設定する
という様な処理をしたいのですが。
よろしくお願いします。
0189デフォルトの名無しさん
NGNGOverloads
Optionalってキーワードもあるが、これは旧VBの負の遺産だから
使わないほうがいいと思う。
0190デフォルトの名無しさん
NGNG「共有サーバーとしてのデバッグ知識のない方はASPは絶対に利用しないでください!
ローカルテストと共有サーバーは環境が全く違います」
という内容がありました。
これは、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違のことを言っているのでしょうか?
0191デフォルトの名無しさん
NGNG0192デフォルトの名無しさん
NGNG190の2行目そのまま、ぐぐるとヒットするようね。
0193デフォルトの名無しさん
NGNGすいません,上記内容はメールで送られてきたものです。
ASPの使用心得は、以上のみでした。
常識的には、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違ということでいいのでしょうか?
0194デフォルトの名無しさん
NGNGわかってないんだから。
0196デフォルトの名無しさん
NGNGVB6.0では、コピーアンドペーストでできたけど・・・
みなさんは、どうやってコントロール配列を作っていますか?
俺が見つけた方法は、どれもコードが汚くなる。
コードがきれいになる方法をご存知ないでしょうか
0197デフォルトの名無しさん
NGNG質問は明確に。
どうやってもこうやっても、ないものは作りようがない。
つまりまったく同じ機能を享受したい、というわけにはいかない。
それはわかってるんでしょ?
だったらなぜ、コントロール配列のこの機能と同じことができないか?
という風に質問しないの?
0198デフォルトの名無しさん
NGNGコントロール配列を使うことがあまり無いかな
たまに使うときはコンストラクタで
MyButton(1) = MyButton1
MyButton(2) = MyButton2
MyButton(3) = MyButton3
ってしておく
あとは実行時に複数登録する場合もあり
Dim i As Integer
For i = 1 To 10
Dim item As MenuItem = New MenuItem("MenuText")
AddHandler item.Click, AddressOf MyMenuItem_Click
MyMenu.MenuItems.Add(item)
Next
0199K
NGNGPOPサーバーにログインするにはどうしたらいいかわかりません。
どなたか、教えてくれませんか〜?
0200デフォルトの名無しさん
NGNGC#でちょこっと作ってみた。
http://www.asahi-net.or.jp/~ec6k-mtmr/SharpMail.zip
もし読んでなければ、RFCを読むのがおすすめ。
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc1939j.txt
0201デフォルトの名無しさん
NGNG単純なプロトコルだけあって短いな
0202ぬるぽ大明神
NGNG0204デフォルトの名無しさん
NGNGUSERとPASSを送って待機(かQUITで終了)。
なんの意味があるかわからんが(POP before SMTPのためか?)。
0206デフォルトの名無しさん
NGNG( ゚Д゚)ウボォアー
0208デフォルトの名無しさん
NGNG0209K
NGNG0210デフォルトの名無しさん
NGNG0211デフォルトの名無しさん
NGNGGraphicPathに文字列を追加して、DrawPathで太めの縁を描画すると、
元のパスから外側に少しはみ出しますよね?
このはみ出た分も収まるようにコントロールのRegionを設定したいのですが、
何か方法ありますでしょうか?
0212デフォルトの名無しさん
NGNGやったことないんで間違ってたらゴメン。
これ使ってパスを「膨張」させといて、そのパスからリージョンを
作ればいいんじゃないかな。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfSystemDrawingDrawing2DGraphicsPathClassWidenTopic.asp
0213K(偽者)
NGNG0214デフォルトの名無しさん
NGNG今作っています。2年程待って下さい。
0215デフォルトの名無しさん
NGNG2年もまてませんよね?
ソースあります。1行100円でどうですか?
全体で30万行ほどあります。
0217デフォルトの名無しさん
NGNGチェックボックスが複数あり、そのcheckd状態を
check(1),check(2)・・・といった感じの配列として参照したいのですが、
方法が分かりません。
お金は払えませんが、よろしくお願いします。
0218デフォルトの名無しさん
NGNGちょっとは過去ログ嫁
0219デフォルトの名無しさん
NGNG0221217
NGNG検索のヒントとなるキーワードだけでもお願いします。
ちなみに、フォームのデザイン上CheckListBoxでは無く、
CheckBoxでの配列参照を考えています。
お願いします。
0222デフォルトの名無しさん
NGNGGetUserNameだとユーザー切り替えに対応してないから無理なんだけど....
教えてエロイ人
0223デフォルトの名無しさん
NGNG0224デフォルトの名無しさん
NGNGいきなりつっこまれました(いままで Unix で C か Java)
VB.net で業務画面アプリを作っていて、サーバにXMLで電文を
送っているんだけど、xsd というファイルは XML スキーマですよね。
xsx と resx っていうのがセットであるんだけど、この二つはなに?
たとえばソースコードを VSS なり CVS で管理するとき、
xsd は必要だけど、xsx や resx もあった方がいいの?
0225デフォルトの名無しさん
NGNGフォームでそのイベントを受け取ろうとしています。
で、フォームでイベントを受けた時に、TextBoxのプロパティをウォッチウィンドウで参照しようと
するとプロパティの欄が全て"Error:Cannot obtain value"となります。
いろいろ試したのですが、なぜこのようなエラーが発生するか見当もつきません。
どんな些細なことでもかまいませんので、皆様の意見をお聞かせください。
簡単なソースを付けておきます。(フォーム上にテキストボックスとボタンを貼り付けてください。)
0226225
NGNGInherits System.Windows.Forms.Form
WithEvents test_cls As New test
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test_cls.Start()'受信スレッド実行
End Sub
Private Sub test_cls_test_Event(ByVal count As Integer) Handles test_cls.test_Event'受信完了したイベント
TextBox1.Text = count'ここで、TextBox1をウォッチウィンドウでデバックしようとすると、"Error:Cannot obtain value"となる
End Sub
End Class
Class test'簡単な通信クラスのつもり
Public Event test_Event(ByVal count As Integer)
Private m_Thread As Threading.Thread
Public Sub Start()'スレッド開始ポイント
m_Thread = New Threading.Thread(AddressOf test_Thread)
m_Thread.Start()
End Sub
Sub test_Thread()'受信データチェックスレッド
Dim Count As Integer
While (1)
RaiseEvent test_Event(Count)'受信データが有りとみなして、イベントを発生させる
Count += 1
System.Threading.Thread.Sleep(10000)
End While
End Sub
End Class
0227デフォルトの名無しさん
NGNGたぶんDOBON.NETさんのメルマガの25号に書いてあるようにすればいいんじゃないかな。
0228225
NGNGありがとうございます。まさに、行いたい事がそのまま書いてありました。
以前BeginInvokeも試したのですが、
その時は、サンプルもほとんどなかったのでどうやら使い方が間違っていたみたいです。
サンプルも豊富に載っているみたいなので、ちょっと勉強してきます。
0229デフォルトの名無しさん
NGNGここにその方法がある
http://forums.belution.com/ja/vc/000/165/29.shtml
でもVC用なので俺はわからん
誰かVB用に書き直してくれ
0230デフォルトの名無しさん
NGNGでも、ネテロや他のハンターが王を倒したら、ジンの強さって何?ってことになる。
しかも、その後の展開で、旅団との強さのバランスが取りにくい。
よって、
ジン>>>王=クロロ>ネテロ>>>ネフェルピトー、シャウアプフ、モントゥトゥユピー>カイト>>>ゴン、キルアほか討伐メンバー
これくらいが妥当。
0231デフォルトの名無しさん
NGNGACCESSデータベースに接続して編集をする場合
OleDbParameterを
CurrentパラメーターとOriginalパラメーターと2つ用意することは
わかったのですが、
パラメータ自動生成を使った場合
OleDbUpdateCommandのパラメーターに
NAMEカラムなら
NAMEというCurrentパラメーターと
Original_NAMEというOriginalパラメーターと
Original_NAME1というOriginalパラメーターができています。
3つ目のOriginal_NAME1は何の目的で生成されているのですか?
0232デフォルトの名無しさん
NGNGすざましい誤爆だな。
0233デフォルトの名無しさん
NGNG3個の数字をタイムラグをつけて次々と表示させたいのですが、
number1.Text = number1
(空ループorTimer プロパティ)
number2.Text = number2
(空ループorTimer プロパティ)
number3.Text = number3
としても、3つの数字・ラグ・数字・ラグ・数字のようにはならず、ラグのあとに
3つの数字がまとめて出てきてしまいます。
当方通常のBASICは使ったことがあるので同じノリでこのようにやってみた
のですが、なぜそうなってしまうのか全く分かりません。
どうすればいいのか、何故そうなるのかを教えていただければ幸いです。
0234デフォルトの名無しさん
NGNG(空ループorTimer プロパティ)
number2.Text = number2
(空ループorTimer プロパティ)
number3.Text = number3
(画面の描画)
となってるから。
0236デフォルトの名無しさん
NGNGDim fileName As String = nekomimi
Dim codeNo As String = 67890
Dim WriteFileStream As FileStream = New FileStream(ApplicationFolder & a & ".mit", FileMode.Create, FileAccess.Write)
Dim TextStreamWriter As StreamWriter = New StreamWriter(WriteFileStream, Encoding.GetEncoding("Shift_JIS"))
TextStreamWriter.WriteLine(b)
TextStreamWriter.Close()
0237デフォルトの名無しさん
NGNGしておき、メールで【\\192.168.100.1\ftp\nekomimi.mitをクリックしてください。】というリンクつきのアナウンスを
流し、アドレスクリック一発で.mitに関連付けておいた.exeを起動、codeNoを読み取ってから変数aに代入したいのですが
初心者用の書籍には、こういう使い方が出ていません。
どなたか、こういう使い方をされた事のある方、ヒントをいただけないでしょうか?
0239デフォルトの名無しさん
NGNG明らかに
> (空ループorTimer プロパティ)
のところが悪さしてるのだから、その部分のソースをupするべし。
0240デフォルトの名無しさん
NGNG間に application.doeventsだったかな?
それいれたらいけるんじゃないかな
0241デフォルトの名無しさん
NGNG0242233
NGNGそれを入れたらうまく行きました。ありがとうございます。
ただ、それってラグの間に操作を受け付けるようにする処理ですよね?
全然関係ないように思えるんですが、なぜそれでうまく行くんでしょう…?
0243デフォルトの名無しさん
NGNG1本のファイルをダウンロードするプログラムを作っています。
ダウンロード中にプログレスバーで進捗を表示したいのですが、
ファイルの何%をダウンロードしたかを取得してリアルタイムに表示する方法ってあるのでしょうか?
0244デフォルトの名無しさん
NGNGWebClient.DownloadFileじゃ無理。
WebRequest, WebResponseを使ったストリーム受信を行う必要がある。
0245243
NGNGありがとうございます。さっそく調べてみます。
0246でき
NGNG0247デフォルトの名無しさん
NGNGvoid __stdcall Func(const char *s);
VB.NETから利用するために、以下のように定義したところ、
Declare Sub Func Lib "testdll" (ByVal s As String) ' (1)
文字列変数に"あいうえ"という文字列を格納し、この変数をFunc()に渡すと、
関数呼出し後、文字列変数の中身が"あい"に変わってしまいました。
MSDNを読んだところ、そもそも(1)の宣言だと文字列がBSTRに解釈されてしまうため、
Declare Sub Func Lib "testdll" ( _
<MarshalAs(UnmanagedType.LPStr)> ByVal s As String) ' (2)
と宣言すべきである、という事がわかり、試しに(2)のとおり宣言してみたところ、
関数呼出し後も文字列変数の中身は変わりませんでした。
ただ、(1)の形式で変数の中身が変わってしまう理由が分かりません。
なぜ(1)の形式だと、このような現象が発生するのでしょうか?
0248デフォルトの名無しさん
NGNG症状は全然ちがうけど、同じように.NET側で確保した領域をポインタ渡しする処理で
原因不明のトラブルで悩んだことがあったけど、(.NET FrameworkはVer1.1)
このあいだでたSP1のFrameworkをインストールしたら解消した。
もしまだSP1にしてなければ試してみては?
0249デフォルトの名無しさん
NGNGソレダッ!と思い、早速SP1を当ててみました。
しかし、現象変わらずでした。
0250240じゃないけど
NGNG>ただ、それってラグの間に操作を受け付けるようにする処理ですよね?
いやいや、メッセージ・ループからメッセージを取ってくるんでしょ?キューに
たまったメッセージが処理できないで待ってるんだから。
この説明でわかりますか? Windowを扱うシステムってメッセージ駆動に
なっているのだという基礎が出来てないと理解できないと思うが。
0251デフォルトの名無しさん
NGNGMIDIファイルの再生でなく、指定した音、又は音列を再生させたいんですけれど。
0252デフォルトの名無しさん
NGNGhttp://wisdom.sakura.ne.jp/system/winapi/media/mm11.html
ここ見ればわかるはず。現に俺はここ見ただけでその手のコードが書けた。
見てもわからなかったら諦めるよろし。
ま、普通このぐらいのことGoogleで検索して調べるわけで、
そんな手間すら惜しむお方には無理に5万両。
0253251
NGNG"VB.net" MIDI
でしか検索してなかったんで、Cのコードを参考にするって考えが浮かばなかった。
が、今一よくわからん……。
とりあえず、DirectX SDK落としてきたよ。
0254251
NGNG環境は
言語:VB.net
IDE:SharpDevelop
SDK:DirectX 9.0 SDK Update (October 2004)
で、>>251に書いた様なコトをしたいんですけど……。
0255251
NGNGまずは↑ここを参照しつつ、WAVを再生させる事には成功したんで、
なんとか頑張ってみます。
0256デフォルトの名無しさん
NGNG0257フナ太郎
NGNG0258252
NGNG貶すだけじゃ後味悪いんで一言。
どうしてもDirectX使わなきゃダメなの?
>>256も書いてるけどWinAPI使えばびっくりするぐらい簡単だよ。
いろいろ調べながらでも1,2時間もあればとりあえず音を出すことは出来ると思う。
とりあえず使う関数はmidiOutOpen,midiOutShortMsg,midiOutReset,midiOutClose
これだけだったはず。(実際に音を出したり止めたりするときに使うのはmidiOutShortMsgだけ)
APIの宣言の仕方がわからないなら、APIの関数名にVBってキーワード付けて
検索すればVB6での宣言が出てくるはずだから、それを少し改変するだけでいい。
定数の値も同じ要領で調べられるはず。
気をつける点は、
(1)VB6の LongはVB.NETではIntegerになっている。(2)引数の渡し方のデフォルト、
つまり明示的に書かなかった場合VB6ではByRefなのに対しVB.NETではByVal
(3)引数のうちデバイスハンドルは、VB6ではLongになっているがVB.NETでは
IntegerではなくIntPtrにしたほうがいいかも。
こんなところかな。
0259デフォルトの名無しさん
NGNGで、色々と弄ってみましたが、エラーは起きないものの、
再生されない……。参考にしたVBのサンプル(http://tokyo.cool.ne.jp/kanain/APIHTM/midiOut.html)付属のexeでは出てるのにOrz。
こんな感じなんですが↓
0260デフォルトの名無しさん
NGNGPrivate Note As Integer
〜〜
Public Declare Function midiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" _
(lphMidiOut As IntPtr, _
ByVal uDeviceID As Int32, _
ByVal dwCallback As Int32, _
ByVal dwInstance As Int32, _
ByVal dwFlags As Int32) As Int32
0261デフォルトの名無しさん
NGNGAlias "midiOutClose" _
(ByVal hMidiOut As IntPtr)As Int32
Public Declare Function midiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" _
(ByVal hMidiOut As IntPtr, _
ByVal dwMsg As Int32) As Int32
〜〜
0262デフォルトの名無しさん
NGNGDim Ret As Int32
Ret = midiOutOpen(hMid,-1,0,0,0)
End Sub
Private Sub schmerzFormClosed(sender As System.Object, e As System.EventArgs)
Dim Ret As Int32
Ret = midiOutClose(hMid)
End Sub
0263デフォルトの名無しさん
NGNGDim Note, Inst, Vol As Long
Note = 70 '音階(&H00から&H7F(127))
Inst = 30 '楽器No(GM音色番号に準拠?)
Vol = &H7F '音量(&H00から&H7F(127))
'楽器の変更(1バイト目:データの種類&チャンネル番号
' 2バイト目:音色番号)
midiOutShortMsg(hMid, &HC0 + Inst * 256)
'音を鳴らす(1バイト目:データの種類&チャンネル番号
' 2バイト目:音階
' 3バイト目:ボリューム)
midiOutShortMsg(hMid, &H90 + Note * 256 + Vol * 256 * 256)
End Sub
0264デフォルトの名無しさん
NGNG'消音
midiOutShortMsg(hMid, &H80 + Note * 256)
End Sub
0265デフォルトの名無しさん
NGNG荒らしみたいになってまってすまない。
0266252
NGNG捨ててしまっているから。
デバイスハンドルで、メッセージを送信するデバイスをOSに指示するんでしょ。
0267デフォルトの名無しさん
NGNGファイル(画像データ、テキストファイル)を16進数に変換したいのですが
なんか、いい方法はありませんでしょうか?
目的は友人と暗号化の勉強をしようと思いまして
ファイル→16進数化→暗号化→復号化→16進数化→ファイル
という流れなのですが・・・
自分が使用できる言語はC,Java,VB.netです
0268デフォルトの名無しさん
NGNG釣りはよせ
0269デフォルトの名無しさん
NGNGたぶんマジなんじゃない?
0270デフォルトの名無しさん
NGNGMeasureString でお尻にスペースがあると正常にサイズを返さない。
なんとかする方法はないんでしょうか?
0271デフォルトの名無しさん
NGNG0272252
NGNG>>258に書いたとおり、VB.NETではデフォが値渡しに変更されているから
midiOutOpen の
>lphMidiOut As IntPtr
ここはByRefを指定してやる必要がある。
それでも音がでなければ、メッセージのフォーマットが間違ってるか
OSの規定のMIDI音源が設定されてないんじゃないかな。
0273デフォルトの名無しさん
NGNGStringFormatオブジェクトのFormatFlagsにStringFormatFlags.MeasureTrailingSpacesを設定し、
MeasureStringのStringFormatをパラメータに使うオーバーロードを使って測定する。
0274270
NGNGありがとう。やってみますしかしなんか難しそうですね。
0275270
NGNG点をつけて求めて、1文字分は引くわけですね。なるほど。
0276デフォルトの名無しさん
NGNGこの場合
PrintDocument1_PrintPage でプリント処理をおこないますが、1ページ以上の
データがある場合は、1ページ出力完了で再度このプログラムに飛んでくる
ようにする必要がありますが、どうやって実現するのでしょうか
0277デフォルトの名無しさん
NGNG0278デフォルトの名無しさん
NGNG最後のページになったら一応明示的にHasMorePagesをfalseにしておく。
0279デフォルトの名無しさん
NGNGありがとう。やってみます。
0280デフォルトの名無しさん
NGNGFileアクセスでランダムアクセスはどのようにやるのでしょう。
20Kの固定長レコードが10000件ありますが、適当なIOコントロール
関数といえば、どれになるのでしょうか?
0281デフォルトの名無しさん
NGNG0282259
NGNGつきあっていただいてありがとうございました!
>動かない理由はまず第一にmidiOutOpen で取得したデバイスハンドルを
>捨ててしまっているから。
というのが、今一よくわからないのですが。
Ret = midiOutOpen(hMid,-1,0,0,0)
で
Private hMid As IntPtr
に入ったんじゃないんですか?
……ってか、それは関係なかったみたいで、
>midiOutOpen の
>>lphMidiOut As IntPtr
>ここはByRefを指定してやる必要がある。
を勘違いして、3つの宣言全部By Ref lphMidiOut As IntPtrにしてまったが、
直したら音出ました!
停止がされなかったが、Noteが中と外で重複してたのが原因でした。
0283デフォルトの名無しさん
NGNGありがとう。
ストリングをFilestreamで保存して、指定のPositionに
seekしたいのですが、このようとではバイト配列に変換する必要が
あるようです。
Stringをバイト配列に変換する方法はどうやるのでしょう?
0284デフォルトの名無しさん
NGNG前者の方が簡単。
0285デフォルトの名無しさん
NGNGありがとう。 なんとかできそうです。
0286デフォルトの名無しさん
NGNGVB.NETに正規表現を判定する関数ってないでしょうか?
英大3文字なら[A-Z]{3}ってヤツです。
0287デフォルトの名無しさん
NGNG0289デフォルトの名無しさん
NGNG君頭おかしいの?
MSDNすら検索しない奴に今日を生きる資格なし。
0290デフォルトの名無しさん
NGNG0292デフォルトの名無しさん
NGNGCount(*)を打ってその結果件数を受け取りたいのですが(´・ω・`)
SQLServer2000でやっております。
パラメータを渡した後にExecuteReaderを実行してストアドを呼び出し
Console.ReadLineで結果を読み取ろうと思ってたのですが、
根本的に間違えてたらすいません。
宜しくお願いします。
0293デフォルトの名無しさん
NGNG0294デフォルトの名無しさん
NGNGいきなり違うんですか Σ(´Д`:)
初めてなんで色々ネットで調べてみたんですが orz
MSサイトで
While AAA.Read()
Console.ReadLine(以下略
という記述を見つけたのでこれを使おうと思ってた次第です。
0295デフォルトの名無しさん
NGNG> Console.WriteLine((myReader.GetInt32(0) & ", " & myReader.GetString(1)))
……なぜConsole.ReadLine?
SQL文によってmyReader.Get...を適当に書き換えれば良いわけだが。
0296デフォルトの名無しさん
NGNGその記述は初めて見ました orz
調べ方がマズかったのかSQLCommandってのを調べて掘ってたら
Console.ReadLineの記述があったので、ストアドの実行結果を読み取るのかと思い
Console.ReadLineが使えるのかなと思った次第です。
人手不足で開発に回されたばかりなんですが無知で申し訳ないです(;´д⊂)
もっと勉強してから出直します。すいませんでした。
0297デフォルトの名無しさん
NGNGイ�`。焦るとどんどん正解から遠ざかるものだ。そういうときは一服しる。
0298デフォルトの名無しさん
NGNG・該当部分のコードを書く
・どこかのページを参考にしたなら参照したページのアドレスを書く
・例外が投げられているなら例外メッセージを書く
をしてくれないとアドバイスもしようがないぞ。
0299デフォルトの名無しさん
NGNGタバコの数だけ増えていきます orz
>>295
ExcuteReaderメソッドの説明を読んだのですが
実行結果をConsoleに「書き込む」という意味合いでしょうか?(つД⊂)
やりたいのはそのConsoleに書き込んだ値を見て処理を分岐させたいのです。
count(*)してその件数で処理変更という具合なのですが。
無知なのは重々承知しておりますが、よろしければ教えて頂けないでしょうか?
0300デフォルトの名無しさん
NGNG確かにそうですね(´・ω・`)
申し訳ないのが作業をするPCが手元に届いておらず、全て机上でのコードなのです。
来週ぐらいにPCが来るそうなのですが、VB.NETもSQLServerも動かしたことないんです。
ワードとエクセルしかやったことがなくて(;´Д⊂)
いきなり開発に回されてメモ書きで作る処理を指示されて色々調べたのですが…。
通るかどうかもわからないのですが、以下にコードを。
Dim mySQLcon As New SqlClient.SqlConnection
Dim myProc As String = "ストアド名称"
Dim myCommand As New SqlCommand(myProc, mySQLcon)
Dim myReader As SqlDataReader
mySQLcon.ConnectString = "接続情報"
mySQLcon.Open
myCommand.CommandType = CommandType.StoredProcedure
myCommand.Parameters.Add("@ユーザID", SqlDbType.VarChar).Value = "ユーザID文字列"
myCommand.Parameters.Add("@パスワード", SqlDbType.VarChar).Value = "パスワード文字列"
myReader = myCommand.ExecuteReader(CommandBehavior, SchemaOnly)
↑
当初はここにストアドの実行結果(count(*)の結果件数)が入ると思っていたので
If myReader = 0 Then
処理1
Else
処理2
End If
というコードを脳内で展開してたのですが、Consoleの記述を見つけ>>292に繋がるのです(´・ω・`)
0301デフォルトの名無しさん
NGNGMicrosoft access2000とvb.net2002を使っています。
データベースのアクセス履歴をとってそのアクセスした時間をデータベースに記録する
というプログラムを書いているのですが、日付/時刻型のデータにvb.net側で現在時刻を取ったときは
[年/月/日 時:分:秒]というデータが格納されているのですが、それをaccessに送ると[年/月/日]の部分しか受け取ってくれません。
[時:分:秒]の部分は[00:00:00]となっています。
Dim r As DataRow
r = DsAccess1.T_アクセス履歴マスター.NewRow()
r("アクセス日時") = Date.Now ←この時点で[年/月/日 時:分:秒]
r("アクセス元") = "制作部"
r("T_商品仮変更マスター") = "開始"
r("T_商品変更履歴") = "開始"
r("T_仕事一覧") = "開始"
DsAccess1.T_アクセス履歴マスター.Rows.Add(r)
odaAccess.Update(DsAccess1, "T_アクセス履歴マスター") ←ここでaccessに渡すと[年/月/日]
こんな感じのプログラムです。
ちなみにaccessの方で「アクセス日時」の設定は、
データ型:日付/日時型
書式:日付(標準) 1994/06/19 17:34:23
値要求:はい
です。
一度、これを解決するために、テキスト型で値を保存するという方法をとったのですが、
これだと並べ替えをしたときに9:55:55の方が10:00:00より未来だと取られてしまってだめでした。
どうすればちゃんと時刻まで渡すことができるかご教授ください。
0302デフォルトの名無しさん
NGNGまず、SqlCommand.ExecuteReaderメソッドは、
CommandTextプロパティに設定されたSQL文/ストアドプロシージャをデータベースに投げて、
その結果のストリームを読み取る為のSqlDataReaderクラス(のインスタンス)を返すわけだ。
SqlDataReaderクラスは、あくまでストリーム(まあ流れのあるデータって事)を読み取るためのクラス。
実際のデータを読み取るのはこのクラスの各種メソッドを使う。
例えばファイル(ファイルもストリームの一種)を読み取るクラスを考えてみて、
ファイルを開けただけでいきなり全部のテキストが返ってきても困るのは分かるよな?
それは実はバイナリファイルだったのかも知れないし、欲しかったのは1行目だけだったかも知れないのに。
そういうわけで、ストリームから読み取るクラスにはどう読み取るかを指定して実行するメソッド群が用意されている。
SqlDataReaderクラスでは、Readメソッド、GetBytesメソッド他の類が用意されている。
Readメソッドは、「今見てるところを次のレコードに進める」メソッドだ。
クエリの結果はレコード一つとは限らないと言うかそっちの方が多いだろう。
多くのサンプルで While (sqlDataReader.Read) となってるのは全てのレコードを読み取る為のコードだ。
ちなみに一番初めにSqlDataReaderが作られた時の「今見てるところ」はクエリ結果の最初のレコードの前。なのでデータを読み取るにはまずReadメソッドを使う必要がある。
さて、一つのレコードには普通複数の行があるわけで、それを取得するのがGet...メソッドだ。
「今見てるところの特定の列の値」をある型として読み取るメソッド群だな。
mySqlDataReader.GetInt32(0) なら今見てるレコードの0列目(最初の列)をInt32(VB.NETではInteger)として取り出すわけだ。
要約すれば、ExecuteReaderから返ってきたSqlDataReaderをReadしてGetInt32(実際はCount(*)が返してくる型に一致するGetなんとか)しろということ。
さて、これで別にConsoleクラスを使う必要が無い事が分かってもらえたかな。
>>301
こいつかね。
ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=10611&forum=7
@ ttp://www.google.com/search?num=100&hl=ja&lr=lang_ja&oe=utf8&q=DATETIME+ACCESS+VB%2ENET
0303デフォルトの名無しさん
NGNG御丁寧に教えて頂き大変感謝しております(;´Д⊂)
myReader = myCommand.ExecuteReader(CommandBehavior, SchemaOnly)
の後に
While myReader.Read() ←結果の最初のレコードに移動(sqlDataReaderのOpen?)
Integer型の変数 = mySqlDataReader.GetInt32(0) ←結果をIntger型で格納する
End While
myReader.Close ←sqlDataReaderを閉じる
↓
Integer型の変数にcount(*)の結果が格納される
この解釈で合っておりますでしょうか? orz
複数行数があった場合は型に合わせた変数を作って、Get...を型に合わせて指定し
レコードの何列目かを指定する(GetInt32(1)などのように)とそのレコードのデータが取れる。
と解釈したのですが(´・ω・`)
0304デフォルトの名無しさん
NGNGそんな感じ。
> myReader = myCommand.ExecuteReader(CommandBehavior, SchemaOnly)
ExecuteReader の引数は CommandBehavior列挙型 一つだけで、列挙型の指定は「型名.メンバ名」。
だから CommandBehavior.SchemaOnly
> While myReader.Read() ←結果の最初のレコードに移動(sqlDataReaderのOpen?)
ストリームそのものはExecuteReaderから返ってきた時点で開かれている。Closeするかストリームの終わりに達するまで、データはいつでも読みとれる。
//SqlDataReaderは、ストリームの実体ではなくて、ストリームを読み取る処理を簡単にするためのクラスである、というのはここでは余談。
あとはどこを読むかを決めるだけ。
一回目のReadで一番始めのレコードに目をやるわけだ。
> 複数行数があった場合は型に合わせた変数を作って、Get...を型に合わせて指定し
複数列、な。
あと必ずクエリ結果のレコードが一つに限られるならWhileする必要もないとか(一度だけ {ReadしてGet...して} Close)。
0305301
NGNGまさにそれでした。ありがとうございます。
ただ、accessの書式が「年/月/日 時間」なのに対しvb側の書式が「日/月/年 時間」だったことが
問題となって「データ型が一致しません」というエラーが出たのですが、これはvb側を「Date.Now.Yera & "/" & Date.Now.Month & …」
とすることでなんとか解決することができました。
0306デフォルトの名無しさん
NGNGありがとうございます(;´Д`)
訂正も含め助かりました。
>>295のレスの意味もなんとか掴めました。
重ね重ね感謝致します(;´Д⊂)
0307デフォルトの名無しさん
NGNGttp://サーバ名/hoge.exe?a=b
のように起動してもTypeInitializationExceptionが出て画面表示すらされない。
試しに引数処理のロジックをコメントアウトしてもエラーがでる。
というか、?以後を付けるともうエラーがでる。
なぜだか知ってる人いますか?
0308デフォルトの名無しさん
NGNGこれ?
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnforms/html/winforms05152003.asp
0309デフォルトの名無しさん
NGNGそういうときはそんな回りくどいことをせず、DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") とでもしる。
0310デフォルトの名無しさん
NGNGSqlCeDataReaderではHasRowsメンバが無いようですが、
レコードが存在しない事を検出するにはどうすれば良いのでしょうか?
0311デフォルトの名無しさん
NGNG.NET Framework1.1でHasRowsプロパティが追加されてるが。
1.0でならReadしたら分かるんじゃないかな。
0312デフォルトの名無しさん
NGNG俺の持ってる教本には載っていなかった・・・
新しい本を買うお金もないし立ち読みしても頭に入らないだろうし
エロイ人教えてください><
0313デフォルトの名無しさん
NGNG漠然としすぎだが取りあえずファイルに書き込む部分はこれ。
ttp://dobon.net/vb/dotnet/file/writefile.html
0314デフォルトの名無しさん
NGNGありがとう!
後で試してみます
0315デフォルトの名無しさん
NGNG1)ボタンを押すたびに新しいフォームが立ち上がります。
2)親フォームは子がshowしているときは黙らせたい
以上よろしく。
0316デフォルトの名無しさん
NGNG.showdialog はだめなんけ?
0317デフォルトの名無しさん
NGNGform_loadか?
0318デフォルトの名無しさん
NGNGありがと。それです。
0319デフォルトの名無しさん
NGNGフォームもクラスなのでクラスと同じNew。
というかform_load? まさかVB6か?
VB6でも当然フォームもクラスなのでクラスと同じ
クラス(フォーム)名_initialize。
0320デフォルトの名無しさん
NGNGここをみる限りではHasRowsメンバは無さそうですが・・・。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatasqlservercesqlcedatareadermemberstopic.asp
SqlDataReaderやOleDataReaderにはあることは知っているんですが・・・。
CompactFrameworkならではの制限なんでしょうか?
そうすると、やはり読んでみて、エラーをcatchするしかないんでしょうか?
0321デフォルトの名無しさん
NGNGいや失敬、2.0からだった。
別にレコードがなくてもReadは例外を投げないはずだが。
単にFalseを返してくるだけで。
0322317
NGNG>フォームもクラスなのでクラスと同じNew。
ところが
Public Class frmData
Inherits System.Windows.Forms.Form
Public Sub New()
End Sub
ってやるとNewのところが波線になる。書き方まづいの?
0323デフォルトの名無しさん
NGNG新しいフォームプロジェクトに追加したときに、
既に自動作成されているコード(Regionディレクティブで畳まれてる)見てみ。
0325317
NGNGRegionに入ってた。ありがと。
0326317
NGNG動いたけど、使い方はそれでいいの?
0327323
NGNGどうしてOverloads付けなくていいんですかねえ?
MSDNのどこ見てもこの辺触れられてないように思うんだけど。
0328デフォルトの名無しさん
NGNGVB6のときは、そのまま出荷ってのが多かったけど。
0329デフォルトの名無しさん
NGNGVBランタイムみたいなもん。
.NET Frameworkのみで開発もできるから開発環境を消したら動かなくなると言うのは正しい。
VB.NETのIDEやSDKを消しても問題はない。
0330デフォルトの名無しさん
NGNGありがと。も一つ聞きたいんだけど、以前開発が終わったのでVB6.0を削除したのだけど
バグが出たのでもう一度インストールしようとしたら、インストールできなかった。
VisualStudio6.0だけど。 .NETもそんなこと起こるのかなー。
だから怖くて消せない。どうせバグ出るし。なんか対策あるんだろか?
0331デフォルトの名無しさん
NGNGなにが言いたいのかよくわからないけど
まだ起こってもいない問題の対策聞くってどういうこと。。。?
0332最凶VB厨房
NGNGhttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcn7/html/vaconOverloadingInVisualBasicNET70.asp?frame=true
0333デフォルトの名無しさん
NGNG上のアドレスの画像の赤で囲ってあるコントロールってなんですか?
0334最凶VB厨房
NGNG基底クラスのコンストラクタが引数なしのみ()
派生クラスのコンストラクタが(a As String)と(a As String,b As String)
のものを作りたいとする。
Overloadsキーワードをメソッドで使うと派生クラスから見た場合、
()と(a As String)と(a As String,b As String)となる。
(仮にコンストラクタにOverloadsをつけるとすると)
Overloadsの意味がメソッドとコンストラクタでは意味が
異なってしまう。
+基本的に基底クラスと派生クラス間の問題を解決するもので
ある(Overrides,Shadows,Mustほにゃららetcも)。
+コンストラクタは特別なメソッドである。
これらのことを考慮すると、コンストラクタにOverloadsはつけないと
いうことに自然となると思われ。推測。
0335デフォルトの名無しさん
NGNGラジオボタン
0336327
NGNGレスありがとう。
正直勉強不足で書いてもらったこと完全にはわからないけど、
Overloadsつけると継承する場合を考えるとなにか矛盾が起こるのかな?
。。。ん〜やっぱりいまいちわからない。
0337デフォルトの名無しさん
NGNG.net製のアプリは嫌がられませんか?
0338307
NGNGどうやら、WEBサービスを参照してると、xxx.exe?param=abcのような起動ができないみたいです。。。
うぅぅ・・・・。
0339デフォルトの名無しさん
NGNG面倒だな。
0340デフォルトの名無しさん
NGNGそうだな
0341デフォルトの名無しさん
NGNG0342デフォルトの名無しさん
NGNGよくわからないんですけど、参考になるサイトなどありませんか?
0343デフォルトの名無しさん
NGNG配置されてるか、もしくは新しいtextboxを呼び出すことは
できるんでしょうか?
0344デフォルトの名無しさん
NGNGTextBoxを持ったフォームを別に作っといて、
MonthCalendar.DateChangedあたりで、フォームを表示させるとか?
0345デフォルトの名無しさん
NGNGhttp://dobon.net/vb/dotnet/control/rtbselectionalignment.html
こんなん?
0346デフォルトの名無しさん
NGNGレスありがとうございます
正しくそのとおりで、おかげさまで
新しいフォームを作りそこにtextboxを配置されて
MonthCalendar.DateChangedの日付をクリックすると
新しいフォームに飛ぶというところまではできました
0347デフォルトの名無しさん
NGNGstreamReader でPositionをつけて、たとえば10バイトめから
読むにはどうしたらいいの?
0348デフォルトの名無しさん
NGNGBaseStreamプロパティからPositionをいじる。
でも根本的にStreamReader使うのはシーケンシャルなアクセスだけにしといた方が良いと思う。
0349デフォルトの名無しさん
NGNGDockingManagerExtenderを入れたのですが
「MagicLibrary.DLL」が「参照設定」に追加された状態で、
「ツールボックス」の「コンポーネント」に「DockingManagerExtender.DLL」を追加し、
これをフォームに貼り付けてあるパネルに貼り付け,
DockingManagerExtenderのContainerControlプロパティを
パネルの貼り付いているフォームに設定し、
パネルの「DockingManagerExtenderのADockingEnable」プロパティをTrueと
して,パネルの張り付いているフォームをnewしようとすると,
以下のようなエラーが出てしまいます
System.ArgumentNullException: 値を Null にすることはできません。
パラメータ名 : DockingManager
at Crownwood.Magic.Docking.Content.InternalConstruct(DockingManager manager, Control control, String title, ImageList imageList, Int32 imageIndex, Icon icon)
at Crownwood.Magic.Docking.Content..ctor(DockingManager manager)
at DockingManagerExtender.DockingManagerExtender.SetADockingEnable(Control control, Boolean enable)
at SampleListForm.InitializeComponent()
DockingManagerExtenderについて簡単に説明のあった
http://backno.mag2.com/reader/BackBody?id=200402230600000000104516000
に書いてあるとおりにやってるのですが,どこが問題なのでしょうか
0351デフォルトの名無しさん
NGNGStreamReaderではバイト単位で読む事はできないよ。あくまで文字単位。
//まあ形式が固定ならそれでいいんだけど。
0352デフォルトの名無しさん
NGNGDataAdapterをコントロールボックスから
選択して使用していますが、
その際DataSourceやプロバイダ等を
チュートリアルに従って設定しております。
自動生成されたソースを見ると、
DataSourceのパスは絶対指定となっていますが、
これをソースを直接触らずに相対指定にする方法はありますか?
相対パスにするには自動生成されたソースを
触らなくてはならないのでしょうか?
0353デフォルトの名無しさん
NGNGBaseStreamをStreamReaderがオープンしたファイルと関連付ける方法が分かりません。
おそらく「オーバーロード、オーバーライド、継承」になどVBNETが導入した新しい技術に
関することだとおもいますが、まだ使い方がはっきりと理解できていないのです。
基本的にはリードライトのクラスがあって、それを補うためにリードライトする
データを加工するクラスがあればよいと思うわけです。
そしてこのリードライトのクラスはランダムアクセスとシーケンシャルアクセスを
用意するというのが歴史的つまり基本的方法です。
そうすると、StreamReaderでオープンしたファイルをBaseStreamでアクセスするのは
継承関係からして誤りだと思います。おそらくBaseStreamでオープンしてリードライトは
BaseStreamで行い、データの加工を下位のクラスで行う? そこでStreamReaderは
適当ではない?
では適当な方法は?その具体的方法が分からない。
>10バイト空読みする。
色のみ読みたいのです。空はいりませんので。
>351
>StreamReaderではバイト単位で読む事はできないよ。あくまで文字単位。
>//まあ形式が固定ならそれでいいんだけど。
形式は固定です。
固定長レコードのテキストファイルをランダムアクセスするための
具体的な方法が知りたいのです。MSDNには例がありません。
0354デフォルトの名無しさん
NGNG> そしてこのリードライトのクラスはランダムアクセスとシーケンシャルアクセスを
> 用意するというのが歴史的つまり基本的方法です。
で、そのシーケンシャルとかランダムとか言うのを一緒にしたのがストリーム。
//厳密にはランダムアクセスベースだけど、ランダムアクセスならシーケンシャルなアクセスにも耐えられる。
//そう考えれば両者を分ける必要はどこにもない。
StreamReaderの役割は指定した文字コードを元に文字単位でストリームから読み出すことだ。
本来バイトベースであるストリームを文字ベースで扱いやすくするためのクラスであって、そこにアクセス方法など関係ない。
ところが、文字ベースで考える場合文字コードという問題が生ずる。
例えばShift_jisの場合、「官」の字は8AAFと言う16進コードで表現される。
これを2バイト目から読み出すと、AF、つまり半角カナの促音記号「ッ」ととられてしまう。
これではよろしくないから、「基本的に」先頭から順次読み取りするようになっている。
でも任意の位置から読み込みたい時もあるだろう、とStreamReaderが読み取る対象のストリームをBaseStreamで直接公開してるわけだ。
//ファイルパスを指定してStreamReaderをnewした場合、内部でFileStreamが作成されている。実際に公開するのはこれ。
StreamReaderで文字を読み出すと、読み出した文字分この内部のFileStreamのPositionが読み込んだ文字に応じて動く。
でもあくまで内部のFileStreamが指している所から文字になるバイトデータを読み出すわけで、
いつのまにかこれがさっきまで見てた所と違ってても気にせずそこから読み出すようになっている。
てことで、streamReader.BaseStream.Positionをいじくれって言ったの。
> 固定長レコードのテキストファイルをランダムアクセスするための
> 具体的な方法が知りたいのです。MSDNには例がありません。
固定長かどうかなんかストリームとしては知った事ではない。
0355デフォルトの名無しさん
NGNG>てことで、streamReader.BaseStream.Positionをいじくれって言ったの。
これが分からなかった。ありがとう。
Do
Debug.Write(sr.BaseStream.Position)
line = sr.ReadLine()
debug.Write(line)
Loop Until line Is Nothing
Positionの移動をプリントして見ると
ラインは10行あっても最初のReadLine()で全部読み込んじゃうね。
読み出し開始位置はPositionで設定できるけど、一旦ReadLineして
しまうとPositionでは制御できないようです。
だからstreamReaderではRandomアクセスはできないです。もちろん
Open、Closeを繰り返せばできますが、それはだめですね。
ファイルは一旦オープンすれば、仮想メモリー空間にマッピングされるわけだから
1バイト単位で自由にアクセスできるはずですよね。クラスの制約でわざわざClose
するのはばかげてます。
結局Stringファイルをランダムアクセスする方法は、どうすればいいのでしょう?
0356デフォルトの名無しさん
NGNG.NETのファイルアクセスは十分に高速だから空読みも大したコストにならないし。
どうしてもStreamReaderを使いたいなら、
FileStreamでストリームを開いて、
FileStream.Positionを操作してからそのFileStreamを元にStreamReaderをそのたびに作成。読み込み終わってもStreamReader.Closeは呼び出さない。
一通り処理が済んだらFileStream.Closeを呼び出す。
0357デフォルトの名無しさん
NGNGDim st as Stream = New NetworkStream(...)
...
st.Write(buf,0,255)
st.Close()
Dim under_stream as Stream = New NetworkStream(...)
Dim st As Stream = new BufferedStream(under_stream) ....�@
...
st.Write(buf,0,255)
st.Close()
�@の行を追加するだけで、バッファリング機能を追加しています。これは
非常にスマートですね。
で私のやりたいイメージはこういうことです。(LineSizeは100byte程度です。)
for i=0 to 100
st.WriteLine(linedt(i))
next
...
st.Position = 55*LineSize
linedt = st.Read()
st.Position = 3*LineSize
linedt = st.Read()
0358デフォルトの名無しさん
NGNG0359デフォルトの名無しさん
NGNGst.LineSize = 100
linedt = st.Read(55)
...
linedt = st.Read(3)
0360デフォルトの名無しさん
NGNGそうなの? しらべてみますが、もし例があればよろしく。
0361デフォルトの名無しさん
NGNGOverloads Public Overridable Function GetString( _
ByVal bytes() As Byte _
) As String
[C#]
public virtual string GetString(
byte[] bytes
);
VBの場合、宣言が複雑ですが、どういう意味があるんですか? 単に多弁?
0362デフォルトの名無しさん
NGNGDim fs As FileStream = sr.BaseStream
Dim data(55) As Byte
fs.Position = 55 * LineSize
fs.Read(data, 0, 55)
linedt = Encoding.UFT8.GetString(data)
...
sr.Close()
事前にStreamReaderである程度読んでる場合を想定してるけど、そうでないならはなからFileStreamでファイルを開けばいい。
0363デフォルトの名無しさん
NGNGVBの過去のしがらみです。
書くのが嫌ならC#に移れと言うMSの暗黙のプレッシャーもあります。
0364デフォルトの名無しさん
NGNGご丁寧にありがとう。
Dim fs As FileStream = sr.BaseStream これが分かりませんでした。
FileStreamの場合Positionがリードポジションと同じなんですよね。
やってみます。
0365デフォルトの名無しさん
NGNGってもってる人いないですか?
そこの133ページに
「委譲を使った問題点(1)の解決」ってのがあって
Stack ClassはListを継承するのではなくListの実装を内部で利用すれば
いいのです(つまり委譲のことだと思う)
Public Class Stack
Inherits List ....�@
Private ListField As New List()
Public Function Pop() as Object
.....
という様になっているのだけどどうもおかしい。
�@のInheritsって継承のことだよね。これってImplementsの間違いか?
継承の例は1ページしかないのに、間違えられるとさっぱり分からん。
Inheritsって委譲にも使うのか?
Implementsって要するに外部クラスの参照のことだよね。要するに
EXTERNってことだよね。ほかには意味ないですよね。
0366デフォルトの名無しさん
NGNG持ってないけど多分Implements IList辺りの間違いだろうね。
//……継承の例が1ページ? 委譲の例?
0367デフォルトの名無しさん
NGNGa b c と3つの変数があるとして、テキストボックスに
"1:"&a&"2:"&b+c
みたいな式を任意にユーザーが設定できるようにして、
それを実際に他の変数に入れるようにしたいんですけどどうしたらいいのかわかりません。
普通のコードで書くと
kekka="1:"&"2:"&b+C
ってなりますよね。この右辺の部分をテキストボックスから取り出して
直接コードで書いたように動作させたいのですけど、どうしたらできるんでしょうか?
0368デフォルトの名無しさん
NGNGそういうコードを自分で書く。
0369デフォルトの名無しさん
NGNG項目Aの変更をハンドルし、入力された値でマスタを検索して項目Bにその名称を代入する、
という処理なのですが、項目Bに名称を代入した時もColumnChangingイベントが発生します。
項目BはReadOnlyなので処理自体は無いのですが、なんとなく気になっています。
こういうもんなんでしょうか?それとも私は全く違うことをしているのでしょうか?
DataGridのデータソースはDataSetで特にDB等にはつながっておらず、
値の格納だけに使用しています。
0370デフォルトの名無しさん
NGNGそんなもん。
0372369
NGNGおそらく過去にもこういった話題が挙がったとは思いますが、入力後のカーソルについて質問です。
エンターキー押下時には下にしかいけないんでしょうか?横の項目に移るようになるプロパティは無いのでしょうか?
KeyDown、Pressイベントで処理しようとTextボックスと関連付けてイベントをハンドルしようとしたのですが、
エンターキーは捕まえることができませんでした。
これってどうしようもないんですか?
0373369
NGNG流れのまま書き込んでしまった・・・(汗
0374デフォルトの名無しさん
NGNG’これ以外にはないんですか? 複数行をコメントアウトする方法は?
0375デフォルトの名無しさん
NGNGVS.NETの上のツールバーのとあるアイコンを押す。
0376デフォルトの名無しさん
NGNGどうか知るには?
一回ファイル名を変更して Try〜Catchするしかないんですか?
0377デフォルトの名無しさん
NGNG0378デフォルトの名無しさん
NGNGREM
END REM
を知らんの?
0379初心者
NGNGVB.netで、他のサーバ上にあるbatファイルを、クライアントから実行させるには何か方法がありますでしょうか。
Shell("cmd.exe abc.bat")
Process.Start("C:\xxx\xxx.bat")
・・等を加工し、フルパスでファイル名を指定したのですが、肝心のサーバ上のbatファイルは動きません。
恐れいリますが、ご教示ください。
0380デフォルトの名無しさん
NGNGこれのことか?
Application.MoveAfterReturnDirection = xlDown
Application.MoveAfterReturnDirection = xlToRight
0381デフォルトの名無しさん
NGNGアクセス権が必要です
0382デフォルトの名無しさん
NGNG0384デリゲート?
NGNGこのホームページのソース参考にしたんですけどSetWindowLong(Handle.ToInt32, GWL_WNDPROC, AddressOf WndProc)
の1文でデリゲートで宣言されてないから駄目ってエラーがでて意味がわかりません。誰か解決策教えて。
0385デフォルトの名無しさん
NGNGエラーの意味がわからんのじゃなくて、
そもそもやってることの意味がわかってないんだと思う。
VB.NETではサブクラス化を使う必要はなくなった。
問題にぶつかったらとりあえずMSDN検索するクセつけた方がいいよ。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemwindowsformscontrolclasswndproctopic.asp
0386デフォルトの名無しさん
NGNGDataGridを継承してProcessCmdKeyをオーバーライドしてやればいいんじゃないかな。
Imports System.Windows.Forms
Public Class OddHandlingDataGrid
Inherits DataGrid
Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
If keyData = Keys.Enter Then
Me.ProcessGridKey(New KeyEventArgs(Keys.Right))
Return True
End If
Return MyBase.ProcessCmdKey(msg, keyData)
End Function
End Class
0387デフォルトの名無しさん
NGNGそれでなりました。どうもありがとう。
Try
'一度ファイル名をリネームし可能なら他のアプリケーションで使用されていない
'不可能なら使用中
'Microsoft.VisualBasic.FileSystem.Rename(filename, filename + "a")
'Microsoft.VisualBasic.FileSystem.Rename(filename + "a", filename)
Catch
こんなことしてました↑。
Try
Dim s2 As New FileStream(filename, FileMode.Open _
, FileAccess.Read, FileShare.None)
s2.Close()
Catch
0388デフォルトの名無しさん
NGNGformatだと数値が変わると桁が変化する。
format(dt,"0000000000")のようにすると数値の桁が変わっても10桁に
なるが"000000123"のように頭に0がつくのでだめ。
なんかいい方法ない?
0389デフォルトの名無しさん
NGNG343 :NHK名無し講座 :04/11/11 15:00:25 ID:Xg7Sp9vb
由奈もキタ━━━━━━(゚∀゚)━━━━━━ !!!
http://202.208.158.51/5/K0132.wma
0390デフォルトの名無しさん
NGNG.ToString().PadLeft()とか。
0391デフォルトの名無しさん
NGNGありがと。いろいろ探していたのだけど、分からなくて、
助かりました。
0392デフォルトの名無しさん
NGNG0394デフォルトの名無しさん
NGNG0395デフォルトの名無しさん
NGNGme.hideにしてDisposeしたくない場合どうすればいいのでしょ?
0396デフォルトの名無しさん
NGNG0397デフォルトの名無しさん
NGNG0398デフォルトの名無しさん
NGNGListBox1.Items.clear
でダメ?
0399デフォルトの名無しさん
NGNGあっItemsの下に隠しやがったのか。くっそー。
ありがとう。
0400デフォルトの名無しさん
NGNGCの#errorみたいのってないの?
0401デフォルトの名無しさん
NGNG#define Main
#if Main
#else
#end if
見たいなやつだろ。
0402デフォルトの名無しさん
NGNGVB.NETには無いね。C#にはあるんだが。
>>397
VS2005から追加されるようだ。
0403デフォルトの名無しさん
NGNGほんと? そりゃ待ち遠しいね。でもこの遅さに慣れたら、
もうJAVAでもおんなじだし、eclipseとかにいってるかもね。
0404デフォルトの名無しさん
NGNG#if a=0 then
ここに来たらエラー
#endif
0405デフォルトの名無しさん
NGNGどうしたらいいかな?
処理の最後にフラグを立てて、doEventsメソッドを発行後、フラグを解除。
オーバーライドしたWndProcで、フラグが立っている間のイベント処理は
無効っていうふうにしたんだけど、処理の終わり間際の入力は通ってしまうようで
上手くいかなかったです。
0406デフォルトの名無しさん
NGNG「時間がかかる処理」を別スレッドにするだけでは?
0407デフォルトの名無しさん
NGNGその処理の最初にキー入力ができるコントロールを無効にすれば?
0408デフォルトの名無しさん
NGNG無意味。
>その処理の最初にキー入力ができるコントロールを無効にすれば?
恐らくそれをしたくないから>>405のように聞いているのだろう。
そのくらいのこと読み取れるでしょ普通。
0409デフォルトの名無しさん
NGNG処理的に排他的タスクを立てて、そのタスク内でキーを有効にする。
0410最凶VB厨房
NGNG0411デフォルトの名無しさん
NGNG例えばボタンを押したら次に押させたいボタンにマウスポインタを移動させる、
というような事をさせたいのですが。
0412デフォルトの名無しさん
NGNG0413デフォルトの名無しさん
NGNGサンクスです。
0415デフォルトの名無しさん
NGNGVB.NETから呼び出すと
System.Runtime.InteropServices.COMException
未知のエラー
というエラーが発生しまつ。
いったい何がいけないんでつか?
0416デフォルトの名無しさん
NGNGMainTextBox.Text = "aiueo" & vbCrLf & "aiueo"
FirstText = "aiueo" & vbCrLf & "aiueo"
If MainTextBox.Text = FirstText Then
Call MsgBox("あ")
End If
MainTextBoxはRichTextBoxです
で、これ実行するとなぜかメッセージボックスが表示されるんですが・・・
明らかに等しい "aiueo" & vbCrLf & "aiueo" なのに何で!?
0417デフォルトの名無しさん
NGNGVB6.0→VB4.0フォーマット変換ソフトなどあったら教えてください
0418デフォルトの名無しさん
NGNG釣り?
>417
無理、それ以前にここは「VB.NET質問」であって
「VBプログラマ質問スレ(6.0以前)ではない。
0420416
NGNGMainTextBox.Text = "aiueo" & vbCrLf & "aiueo"
FirstText = "aiueo" & vbCrLf & "aiueo"
If MainTextBox.Text = FirstText Then
MsgBox("同じ")
Else
MsgBox("違う")
End If
ってやっても「違う」と言われてしまうのはどうしてですか?
0421デフォルトの名無しさん
NGNGFirstTextがちゃんとString型の変数として宣言されているなら
“同じ”と出るはず。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/dnguinet/htm/drguinet01312001.asp
の「値の等価性と参照の等価性」を読むといいかも。
0422デフォルトの名無しさん
NGNGFirstTextをStringにして
同じソースで実行したけど"同じ"って表示されたよ
0423420
NGNGDim FirstText As String = "" と宣言してあります
何かこれではまずい仕様に変わったんでしょうか?
0424デフォルトの名無しさん
NGNGああ、いま気づいた。
きっとtextboxのMultiineプロパティがFalseになってるんだよ。
0425デフォルトの名無しさん
NGNG0426デフォルトの名無しさん
NGNGVB.NETにもありますか?
MSDN内は探しましたが思っていたものとは違っていたようです
ネットも一応調べたんですが64kbpsのため探し回れない状態です
時間がないため、indexOf と Substring を使って機能を実現しておきますが
作るのは面倒なのでよければ教えて下さい
0427デフォルトの名無しさん
NGNGttp://java.sun.com/j2se/1.4/ja/docs/ja/api/java/util/StringTokenizer.html
と言う事は、StringクラスのSplitメソッドが近いんじゃないか。
0428デフォルトの名無しさん
NGNGありがとうございます
使ってみます。
0429yukki
NGNG分る方いましたら返信お願いします。
0430デフォルトの名無しさん
NGNGするの?
class の先頭でimports "boku"のように使いたい。
0431デフォルトの名無しさん
NGNGの [String] はStringとはちがうのですよね。
[]はなんの意味ですか?
0432デフォルトの名無しさん
NGNG全く同じで単にコンパイラが無視するだけだが。
どこからそんな書き方が出てきたのかね。
0433フナ太郎
NGNG[ ] で囲むのは、VB.NET の予約語を、クラス名とか構造体名とかに
使えるようにするためだお。
この例だと、たぶんどっかに、
Class [String}
・・・・・
End Class
みたいに定義されてるはずだから、探してみ?
0434431
NGNGカッコつきストリング、、、、、哲学ではよくカッコつきの何チャラって
やりますが、その影響ですかね。多分カッコいいのでしょうね。
MSドットネットのカッコつきストリングのカッコよさについての考察せよ。
カッコいい!!
0435デフォルトの名無しさん
NGNG0436デフォルトの名無しさん
NGNGなんか微妙に言ってることずれてると思う。あくまで微妙にね。
某所で馬鹿にされてる人の記事だが。。
http://www.atmarkit.co.jp/fdotnet/easyxml/easyxml12/easyxml12_02.html
0437最凶VB厨房
NGNG無視しないだろ。結果(生成されるIL)が同じだけだ。この場合。
>>433
[String]はSystem.Stringクラスだ。
自前実装じゃないぞ。
>>436
ってことを言いたかったの?
0438デフォルトの名無しさん
NGNGああ、>>433は微妙どころじゃないね。だいぶずれてるわやっぱ。
0440デフォルトの名無しさん
NGNGFunction Test() As Date()
...
Dim cn(2) As Date
cn(0) = c1
cn(1) = c2
Return cn
End Function
0442デフォルトの名無しさん
NGNG0443デフォルトの名無しさん
NGNGGold Finger 2004
Kinf of Fighter 2004
Gメン2004
Air Port 2004
0444初心者
NGNG以下のようなサンプルコードを動かしているのですが、クライアント上のメモ帳が起動するだけでサーバ上のメモ帳は起動されません。
どのように修正すれば、サーバ上のメモ帳を起動できるのでしょうか。
恐れ入りますが、ご教示願えませんでしょうか。
Options.Username = "administrator"
Options.Password = "password"
Scope.Path.Server = "サーバ名"
Scope.Options = Options
Dim processClass As New ManagementClass("Win32_Process")
Dim methodArgs() As Object = {"notepad.exe", Nothing, Nothing, 0}
Dim result As Object = processClass.InvokeMethod("Create", methodArgs)
Console.WriteLine("Creation of process returned: {0}", result)
Console.WriteLine("Process id: {0}", methodArgs(3))
0445デフォルトの名無しさん
NGNGManagementObjectのコンストラクタ引数にせっかく作ったManagementScopeとObjectGetOptionsを指定してないのはどうしてかな。
0446初心者
NGNGご回答頂き、本当にありがとうございます。
ご指摘の概念が良く理解できていないようです。
単純にクライアント側が起動する記述になっていたわけですね。
どのように指定するか考えてみたいと思います。
0447デフォルトの名無しさん
NGNG0448最凶VB厨房
NGNGSocketクラスは利用してないが・・・。こんな感じかな。
Option Explicit On
Option Strict On
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Delegate Sub ReceiveEventHandler(sender As object,e As UDPEventArgs)
Public Class udps
Public Event ReceivedUDPPacket As ReceiveEventHandler
Protected Overridable Sub OnReceivedUDPPacket(e As UDPEventArgs)
RaiseEvent ReceivedUDPPacket(Me,e)
End Sub
Public Sub Listen()
Dim client As UdpClient=new UdpClient(10000)
Dim ep As New IPEndPoint(IPAddress.Any, 0)
While True
Dim bb() As Byte=client.Receive(ep)
Dim ueh As UDPEventArgs=New UDPEventArgs()
ueh.ReceivedBytes=bb
OnReceivedUDPPacket(ueh)
End While
End Sub
End Class
0449最凶VB厨房
NGNGInherits EventArgs
Public ReceivedBytes() As Byte
End Class
Public Class EntryPoint
WithEvents Shared svr As udps
Public Shared Sub Main()
svr=New udps()
AddHandler svr.ReceivedUDPPacket,Addressof UDPReceived
svr.Listen()
End Sub
Public Shared Sub UDPReceived(sender As Object,e As UDPEventArgs)
Dim rs As String=Encoding.UTF8.GetString(e.ReceivedBytes,0,e.ReceivedBytes.Length)
Console.WriteLine("event発生->{0}",rs)
End Sub
End Class
0450416
NGNG(RichTextBoxにすると相変わらず上手くいかない)
変なの、VB6の時にはこんなことにはなってなかったのに
0451デフォルトの名無しさん
NGNG一度RichTextBoxのTextプロパティに代入した後で、
RichTextBoxのTextプロパティの内容を詳しく調べてみると
何か分かるのでは?
会社に行かないと開発環境が無いので確認できないが、
改行コードがvbCrLfからvbCrかvbLfに変換されているかも。
0452デフォルトの名無しさん
NGNG解放の手順としては、Clearを呼んでNothingを代入すれば
よいでしょうか。
0453デフォルトの名無しさん
NGNGHashtable に限らず、IDisposable インターフェースを実装していないマネージドクラスであれば、
後処理などせず放置しておいてOK。というか、プログラマが明示的に後処理することは、基本的には
できない。
Clearを呼んだとしても、その時点でメモリが解放されるわけではない。
Nothingを代入したとしても、そのインスタンスの参照カウンタがひとつ減るだけ。たいていの場合は、
これで参照カウンタが0になって、インスタンスはガベージコレクタの管理下に入るんですが、
これは変数のスコープが終わったときや、その変数に別のインスタンスへの参照が代入されたときと
同じ動作です。Nothingを代入することには意味がありません。
使い終わった変数のスコープがすぐに終わるようにプログラムを組むことの方が大切です。
IDisposableを実装しているクラスなら、クラス内部で使用しているアンマネージドなリソースを
明示的に解放するために Dispose を呼んでおいた方が無難。
0454最凶VB厨房
NGNG0455デフォルトの名無しさん
NGNGありがとうございました。
0456デフォルトの名無しさん
NGNG>んなもん、簡単にテストできるだろーが。
テストして概ね動作する場合は、それが正しいかどうかの判断は難しいはずです。
「関数の内部で宣言した変数Xはその関数を抜けると開放される」と考えるのは
ごく自然です。ところが変数Xを関数のリターンにした場合は開放されるのか?
それが問題です。実際には開放されたとしてもメモリー上には残っていますから
別のプログラムがそのエリアを使わない限り、変数Xは保存されているように
見えます。普通には動くけれど偶に動かない。そういう動作が起こる可能性が
あるわけです。
「値を返せば保存され、参照を返せば保存されない。」のか?
参照されている先のメモリーも保存されるのか?
配列の場合は特に心配ですね。
でどうなんでしょう?
0457デフォルトの名無しさん
NGNGキー入力のイベント、プロテクトメソッドは無いのでしょうか?
エンターキーで項目間の移動を行いたいのですが、
これをForm側にSelectNextControlを使用して実装させたいと考えています。
ですがKeyPreviewプロパティに依存することなく実装ができません。
0458デフォルトの名無しさん
NGNGはて・・
単純にやろうとするとこれってやっぱムリ?
MouseDownでDoDragDrop
DragDropイベントで移動しようと思うんだが・・・
言語は VB.NET 2003
0459デフォルトの名無しさん
NGNG.NETでは参照が残ってる限りガベージコレクトの対象にはならない。(WeakReferenceという例外もあるが)
で、返値として返された時点で参照がメソッド呼出元に渡される事になる。
ほら参照が残ってるからガベージコレクトされる事が無くなった。
//もちろん呼出元で返値をそのまま捨てればそれで参照が無くなるからガベージコレクトの対象行き。
ガベージコレクションの動作を知るべきだね。
>>457
ProcessCmdKeyとかProcessDialogKeyとか。
0460デフォルトの名無しさん
NGNGもっと単純に、
MouseDownイベントでクリック位置を保存、
MouseMoveイベントでLeftプロパティとTopプロパティを変更。
ttp://dobon.net/vb/dotnet/form/moveform.html
フォームでの場合のサンプルだが、参考に。
0461デフォルトの名無しさん
NGNGD&Dって言ってるんだからコンテナ変えたいんじゃないの?
まあ、>>458の言葉が足りないだけのような気もするけど。
0462デフォルトの名無しさん
NGNG確かにコンテナを変えるのが理想なんだが、それはそれで回避方法はあるかな?と
最悪動的にオブジェクトを っててもあるんだけど
でも、とりあえず、460のリンクに逝ってから応用手法でも考えてみるよ
0463デフォルトの名無しさん
NGNGブラウザの×ボタンを押した時と同じイベントを取得したい時は
どのようにすればいいんでしょうか?
やりたいのはブラウザの×ボタンを押した時にDB接続していたら
接続を解除するという動きなのですが。
よろしくお願いします。
0464デフォルトの名無しさん
NGNG0465デフォルトの名無しさん
NGNG年だけを入力してカレンダーを↓の様な感じで表示させろって言われていて
1 5 9
■ ■ ■
2 6 10
■ ■ ■
■の部分がカレンダー部分
縦一列表示なら出来たのですが
↑の様にはなりません
どなたか助言お願いします
0466デフォルトの名無しさん
NGNGもうちょっと質問の意図を汲んでやれよ。
0467デフォルトの名無しさん
NGNG久々にこの台詞を吐かねばなるまい。
自分以外はみんなエスパーか何かだとでも思ってるの?
0468デフォルトの名無しさん
NGNGWebアプリケーションなのかWindowsアプリケーションなのかに
よって回答が変わるがどちらだ?
Webアプリケーション(Webフォーム)なら、System.web.UI.WebControlsの
TableオブジェクトとTableRowオブジェクト、TableCellオブジェクトを
駆使すれば何とかなるが。
0469デフォルトの名無しさん
NGNGこんな糞レベル低いスレの住人をエスパーだと思ってる
わけないじゃん。安心していいよ。
0470デフォルトの名無しさん
NGNGどうする?>468氏は君と違って質問の意味が分かってるみたいだよ。
0471デフォルトの名無しさん
NGNGWindowsアプリケーションです
0472デフォルトの名無しさん
NGNGトラの威を借る.....みたいだな。なさけない奴。
お前自身はわかるのかw それが問題だろうが。
ていうか、>>468だって>>465の文章から質問の意図などわかってるはずがない。
現にわかってないから質問してるんだろう。
>>468は親切にも馬鹿な質問者を誘導しようとしているようだが、
俺は自分の知りたいことすら過不足なく説明できないような馬鹿にまで
寛容になれないし、なるべきでないと思ってるのでね。
0473フナ太郎
NGNGこれはVB.NETというよりはアプリケーションを作る上でのアイディアに
関する質問だね。こんなところでこっそり聞くよりも、「表示させろ」と言った人に
(もしくは先輩や同僚に)聞いた方がいいと思うよ。
恥を忍んでガンガン質問できるヤツじゃないと伸びないよ、この業界。
0474デフォルトの名無しさん
NGNG貼り付け、値を入力する際、右揃えにすることは可能なのでしょうか?
テキストボックスには、「-1」などといった数値を入力するため、
右揃えの方が見やすいと思われるのですが、どういった対処を取れば
良いのか全くわからず・・・。
どなたかご存知ではないでしょうか?ご教授願います。
よろしくお願いいたします。
0475デフォルトの名無しさん
NGNG0476デフォルトの名無しさん
NGNGスレ違い
0477デフォルトの名無しさん
NGNG相手する気ない奴は書き込んではいけません。
こんなことすら教えないとダメなのか・・・
0478デフォルトの名無しさん
NGNG相手する能力がない人も書き込んではいけません。
こういうこともちゃんと教えないとダメだよ・・・
0479デフォルトの名無しさん
NGNG相手する必要なし。こういう奴はどこのスレでも
同じような書き込みして同じような指摘受けているのに
一向にやめようとしない。放置するしかない。
0480デフォルトの名無しさん
NGNG0481デフォルトの名無しさん
NGNG馬鹿の特徴は他人に向ける批判的視点を自分に向けられないこと。
それが君。ありていに言えば「オマエガナー」。
ていうか、質問が理解可能かつそれが俺のわかることなら俺は答えてる。
そのように言うってことは、君は>>465の質問の意味がわかるんだよな?
ぜひ>>465の質問の意味を噛み砕いて説明してみてくれ。
いや、出来ないのならいいんだよ別に。
0482デフォルトの名無しさん
NGNG> ていうか、質問が理解可能かつそれが俺のわかることなら俺は答えてる。
じゃ、わかんねーなら口出すなや。
はい、終了
0483デフォルトの名無しさん
NGNG画面に表示されているウィンドウ(デスクトップ含む)の
ListViewを取得するにはどうしたらいいのでしょうか?
ListView *listview = GetListView(プロセスID); みたいな
お手軽な方法があるのかと思っていたらなさげなので
全然わからないです(´・ω・`)
0484483
NGNGVCと間違いました
0485デフォルトの名無しさん
NGNGテキストボックスAとボタンBが画面上にあったとします。
それでテキストボックスにフォーカスがあたった時に何故か
ボタンBにも同時にフォーカスがあたっていて原因がわかりません。
同時にフォーカスがあたるのが仕様なら仕方ないのですが
せめて他のボタンに制御したいと思って色々やったのですが
さっぱりわかりません。
詳しい方教えて頂けないでしょうか?
0486デフォルトの名無しさん
NGNG.NET2003使っております。
宜しくお願いします(´・ω・`)
0487デフォルトの名無しさん
NGNG> ボタンBにも同時にフォーカスがあたっていて原因がわかりません。
どんな現象がでて、ボタンBにもフォーカスがあると判断したの?
0488デフォルトの名無しさん
NGNGだからエスパーはいないといっているのがなぜわからない?
不思議でしょうがないんだけど、どうしていい歳して、
他人が自分の書いた文章を読んだときにどのように思うだろう?
きちんと自分が伝えたいことが伝わるだろうか?って考えて文章かけないの?
はっきりいって情けない。
こんなのプログラミング以前どころか義務教育修了レベル以前の問題だろ。
0489デフォルトの名無しさん
NGNGおまえはエスパーか?
どうして”いい歳”してるってわかるんだ?www
0490デフォルトの名無しさん
NGNGそれ以前に
エスパーならプログラムできるのか?
念写できたり念動力があるエスパーが
プログラムの知識を持っているのか?
エスパー伊藤もエスパーだが
とてもできそうにないなwww
0491デフォルトの名無しさん
NGNG>>490は読解力がない。
踊る阿呆に見る阿呆ってかw
0492清田
NGNG0493デフォルトの名無しさん
NGNG0494デフォルトの名無しさん
NGNG皆が指摘してくれている事がまだ理解できていないようで・・・
義務教育を受けられなかったのですね。おかわいそうに。
0495デフォルトの名無しさん
NGNG0496デフォルトの名無しさん
NGNGDim strCompare As String = "aiueo" & vbLf & "aiueo"
RichTextBox1.Text = "aiueo" & vbCrLf & "aiueo"
If strCompare.Equals(RichTextBox1.Text) Then
MsgBox("vbCrLf が vbLfに変換されている!")
Else
MsgBox("vbCrLf は vbLfではない")
End If
と言う訳で、RichTextBoxの改行コードは「LF」と
言う仕様になっていて、改行コード「CRLF」の文字列を
代入すると、「LF」に変換されてしまうらしい。
ちなみに、Windows XP(SP1) + VS.NET 2003で確認。
0497デフォルトの名無しさん
NGNG[コード表示]から (Base Class Events) Load
と、選択して雛形を出すと、
_ Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
[デザイン]のForm1をダブルクリックすると、
_ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
この違いはなんっすか?
エロい人もしくはエスパー教えて厨
0498デフォルトの名無しさん
NGNGMay the .NET with you
0499デフォルトの名無しさん
NGNGしたいのですが,誰かアドバイスお願いします
0500困ったくん
NGNG[ Text1 ] ÷ [ Text2 ] = [ Text3 ] 余り [ Text4 ]
のように表示させるのですが、例えば、35÷6をしたときに、
答えが、Text3=1 Text4=29 になってしまいます。
どうすればいいのでしょうか?
よろしくお願いします。 なお、僕の考えたプログラムは以下の通りです。
(※”=”部分がコマンド1です)
Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
Text3.Text = sho
Text4.Text = M
End Sub
0501デフォルトの名無しさん
NGNGループ条件が文字列比較になってるから。
あと何故Do Whileループ? 2 / 3 = 1 余り -1 になるぞ。
0502デフォルトの名無しさん
NGNG0503500 困ったくん
NGNG>ループ条件が文字列比較になってるから。
ということは、条件を他の形にすればいいんですね!
・・・といっても、どうすればいいのかわかりません。。。
For-Nextで作れるんですかね?
Do-While,Until じゃないと作れないと聞いたもので・・・
0504デフォルトの名無しさん
NGNGいまだにわかりません、どっちが儲かりますか?
0505デフォルトの名無しさん
NGNGどっちも儲かる。
0506デフォルトの名無しさん
NGNG0507デフォルトの名無しさん
NGNG0508デフォルトの名無しさん
NGNGよかったら教えてもらえないでしょうか
0509デフォルトの名無しさん
NGNGFormのプロパティざっとみればすぐ見つかるだろ。
0510デフォルトの名無しさん
NGNGそれをつかってピクチャーボックスを動かすことって
できますか?
0511yukki
NGNG>>449
ソースありがとうございます。
ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
プログラムに組み込んだものの使い方がいまいちわかりません。
初心者で本当申し訳ありませんが、返信お願いします。
0512最凶VB厨房
NGNG>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
ソースを見てくれとしかいいようがない・・・。
コンパイルして実行してみた?
デリゲートがわからんならここでも見れ
http://www.atmarkit.co.jp/fdotnet/onepoint/onepoint03/onepoint03_01.html
イベントがわからんならここでも見れ。
http://www.microsoft.com/japan/msdn/library/ja/cpguide/html/cpconEvents.asp
ついでにテスト用送信プログラムはこんな感じだ。実行してみれ
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class udpc
Shared Sub Main()
Dim client As UdpClient=new UdpClient(20000)
Dim i As Integer=0
Dim ss As String="パケット発射"
For i=0 To 3
ss &=ss
Next
Dim bb() As Byte=Encoding.UTF8.GetBytes(ss)
client.Connect(IPAddress.Loopback,10000)
client.Send(bb,bb.Length)
End Sub
End Class
0513デフォルトの名無しさん
NGNG質問に答える気がないのに書き込む行為は荒らしと
見なされますよ。別のスレで同じプロバイダの奴がそれで
アク禁になって、えらい迷惑受けた。
0514デフォルトの名無しさん
NGNG俺は>>509ではないが、空腹の奴に魚の釣り方教えてるだけだろ?
ていうか、だから馬鹿は自分の言葉を自分自身に適用できんのか?
お前がすべきでないと言っていることを、お前自身がやってないか?
俺様だけは特別ルールが適用されます、ってか?
とんでもない棚上げ野郎だな。
0515最凶VB厨房
NGNG0516デフォルトの名無しさん
NGNGアホ。
0517デフォルトの名無しさん
NGNG0518デフォルトの名無しさん
NGNGすいません。別の方法で解決できたのでこの質問は忘れてください。
0519デフォルトの名無しさん
NGNG0520デフォルトの名無しさん
NGNGこの辺とか
0521デフォルトの名無しさん
NGNG追加
参照設定でCOMの中からiTunesタイプライブラリを設定
インターフェースがずらずら出てくるから
後はJavaScriptのソースと見比べながらどうぞ
0522デフォルトの名無しさん
NGNGe.KeyChar < "0"c Or e.KeyChar > "9"cとかで。
でもこれだとコピー、ペースト、カットのショートカットキーも無視されてしまいます。
どうやった両立できますか?
0523デフォルトの名無しさん
NGNG0524デフォルトの名無しさん
NGNG脳味噌腐ってるのか?
だから「自分で実装」する方法を聞いてるんだと思うが。
>>522
実際やったことはないが、KeyPressではなくKeyDownでキーコードをマスクするように
書けばできると思う。
0525ネタではありません。
NGNGどなたかWEBアプリケーションを作れる方、
相談にのっていただけませんか?
「こういうWEBプログラムが作りたい」という案は
すでにあります。自宅サーバーもすでにあります。
平日の夜、都内で焼肉をおごります。
もし、「それなら作れるよ」ということでしたら
数万円の謝礼をお支払いする用意があります。
よろしくお願いいたします。
0526デフォルトの名無しさん
NGNGまずは要件定義書を完成させてこい。話はそれからだ。
0527yukki
NGNG>最凶VB厨房さん
たびたび申し訳ありません。
>>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
>ソースを見てくれとしかいいようがない・・・。
>コンパイルして実行してみた?
テスト用送信プログラムもコンパイルして送信してみたのですが、受信イベントが発生しません。
紹介してもらったURLを参考に受信側のFORMでフォームロードイベントで、デリゲートを宣言を下記のように
してみたのですが、うまくいきません。
VB.NETというかプログラム自体初心者なため検討違いなことしてますか?
デリゲートの使用方法を教えていただけないでしょうか。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TestReceive As ReceiveEventHandler
TestReceive.Invoke()
End Sub
'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'e' に対して引数が指定されていません。
'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'sender' に対して引数が指定されていません。
0528デフォルトの名無しさん
NGNG背景色の白がまぶしいので、他の色に変えたいのですが
どうやってできるかご存知の方いませんか?
0529デフォルトの名無しさん
NGNG大変参考になりました。どうもありがとう。
0530デフォルトの名無しさん
NGNG新しいのが出てきたな
面白いぞ
0531デフォルトの名無しさん
NGNGまず君の連絡先をここに晒せ。こちらから連絡させて頂きます。
0532デフォルトの名無しさん
NGNGこんなメールが来そうな予感
ようこそ、バーボンハウスへ。
このテキーラはサービスだから、まず飲んで落ち着いて欲しい。
うん、「また」なんだ。済まない。
仏の顔もって言うしね、謝って許してもらおうとも思っていない。
でも、このメールを見たとき、君は、きっと言葉では言い表せない
「ときめき」みたいなものを感じてくれたと思う。
殺伐とした世の中で、そういう気持ちを忘れないで欲しい、そう思って
このスレを立てたんだ。
じゃあ、注文を聞こうか。
0533デフォルトの名無しさん
NGNG>523みたいな奴をいちいち相手してやることないって。
>526 多分君にはお願いされてないと思うよ。
0534デフォルトの名無しさん
NGNG答えてやれよ
0535デフォルトの名無しさん
NGNG出来ればやりかたを教えていただきたいのですが。
0536デフォルトの名無しさん
NGNGSendInput
キーストローク、マウスの動き、ボタンのクリックなどを合成します。
UINT SendInput(
UINT nInputs, // 入力イベントの数
LPINPUT pInputs, // 挿入する入力イベントの配列
int cbSize // 構造体のサイズ
);
0537デフォルトの名無しさん
NGNG○痴
http://pc5.2ch.net/test/read.cgi/tech/1096683017/525
http://pc5.2ch.net/test/read.cgi/php/1095633323/841
http://pc5.2ch.net/test/read.cgi/php/1007014580/871
0538デフォルトの名無しさん
NGNG数万円て馬鹿か。
0539デフォルトの名無しさん
NGNGSystem.Web.Mail.SmtpMailクラスでメール送信する際
ポートの指定は出来ないのでしょうか。ググッてもわか
りませんでした。
0540デフォルトの名無しさん
NGNGできない。
.NET 2.0で追加されるSystem.Net.Mail.SmtpClientならできる。
どうしてもやりたければSocketを使う。
0541デフォルトの名無しさん
NGNGどうもです。デフォルトのポートは25に設定されているんでしょうか。
0542デフォルトの名無しさん
NGNGVB.NETでEBCDIC漢字はSHIFT-JISに変換できないのでしょうか?
シフトコードは入れているのですが変換できません。
半角カナは変換できるのですが・・
0543デフォルトの名無しさん
NGNGありがとうございます。
0544デフォルトの名無しさん
NGNGMDIでテキストエディタを作ってるのですが、ファイルの保存方法がわかりません。。。
アクティブなMDIウインドウのtextbox1のテキストを保存したいのですが、MDIウインドウの指定方法がわかりません。
0545デフォルトの名無しさん
NGNG事故解決しましたm(_ _)m
0546デフォルトの名無しさん
NGNGPrivate Sub ThreadMain1()
Dim i As Integer
For i = 0 To 99
s = s + "A"
Next
Trace.WriteLine("ThreadMain1 done")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thread1 As New System.Threading.Thread(AddressOf ThreadMain1)
thread1.Start()
End Sub
これを実行するとへんなメッセージがでます。これは何なのでしょう。
名前がありません? 名前あるけど。0x340って何?
ThreadMain1 done
スレッド '<名前がありません>' (0x340) はコード 0 (0x0) で終了しました。
0547デフォルトの名無しさん
NGNG名前ってのはThread.Nameプロパティで指定する文字列だよ。
0xNNNは内部で使われているスレッドID。
0548デフォルトの名無しさん
NGNGホントにわかってんのかな。
0549546
NGNGおっ、ありがとう。
>548
さらに分かってるいる方の解説希望。
たとえば、IDの使い道とか
0550デフォルトの名無しさん
NGNGが分かっていないに100炎
0551デフォルトの名無しさん
NGNG0552デフォルトの名無しさん
NGNGヒントを与えているが。
0553デフォルトの名無しさん
NGNGイヴェントを1秒ごとに起してコマンド処理をしています。
メインの方では色々なフォームを立ち上げたり消したりしています。
そのフォームの一つaFormで、データ取り込みコマンドを
clsBにたいして送ります。clsBは1分でそのコマンドの処理をして完了とデータををaFormに送ります。
しかしその時ユーザーは処理の完了を待ちきれずに別のフォームを立ち上げていて、
aFormは消えているかもしれません。
こういう場合、どのような方法で処理をすればよいでしょうか?
1案)aForm終了時にキャンセルコマンドを送る。
2案)clsBは処理の終了でaFormがまだ存在するかを調べて、存在すれば
完了コマンドとその処理済データをaFormに送る。
を考え付きましたが、
クラスが存在するか消滅しているかは、どうやって調べるのでしょうか?
0554553
NGNG0555デフォルトの名無しさん
NGNGグローバル
0556デフォルトの名無しさん
NGNG新規プロジェクトでForm1が出来る
↓
ツール→オプション→Windows フォームデザイナ→Layout ModeをSnapToGridに
↓
Form1の大きさをマウスで変えようとするとエラー
「オブジェクト参照がオブジェクトインスタンスに設定されていません」
なんとかならんかね?
0557デフォルトの名無しさん
NGNGどうなってほしいの?
0559522
NGNG遅レスになってしまいました。
KeyDownイベントでもやってみたんですが、e.Handled = Trueとやっても
キャンセルされず文字が入力されてしまいます。
IsInputCharあたりをオーバーロードしてやってみてますが、いまだ未解決のままです。
0560デフォルトの名無しさん
NGNGVB6にあった実行ファイルのオプションは
どこにいったのでしょう?
会社名とか書けない…
0561yukki
NGNGUdpClientのReceive メソッドはメッセージを受信するまで実行をブロックしてしまいます。
メッセージの受信を待ちつつ、他の動作(例えば、メッセージ送信やイベント発生)などを行うにはどうしたらよいでしょうか?
ご存知の方いらっしゃいましたらご伝授願います。
0562556
NGNGLayout ModeをSnapLineに設定していると、フォームの大きさをマウスで変えてもエラーが起きない。
SnapToGridでも同じように出来ませんか?という相談だったのだが。
わかりにくかったらごめん
0563デフォルトの名無しさん
NGNGアセンブリ
0564デフォルトの名無しさん
NGNG教えて頂きアリガトです。
しかし。。。凹みました。仕様?2002だけかな?
0565デフォルトの名無しさん
NGNG.NET系は全部そうなんじゃないの?c#も同様だったし。
0566デフォルトの名無しさん
NGNG0567デフォルトの名無しさん
NGNG0568デフォルトの名無しさん
NGNGどういうこと?Sub Main()からスタートしてフォーム表示させないように
すればよさそうだけど、そういうことでいいのかな?
0569デフォルトの名無しさん
NGNGそです。これから試してみます
どうもです
0570デフォルトの名無しさん
NGNG本のサンプルそのままに一つのファイルをアップロードさせるのはうまくいくのですが、
複数のファイルをアップロードしようとすると、うまくいくのは最初のファイルだけで、
2番目のファイルは、アップ先に空のファイルができるだけで、止まってしまいます。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049&res=83
↑いま、こちらにソース置かせてもらったのですが、
Button1_Click()で、サーバにログインし、
Button2_Click()で、最初のファイルアップロード。アップロードが完了してから、
Button3_Click()で、2番目のファイルをアップロードするのですが、ここで、止まってしまいます。
なぜなのでしょうか?
よろしくお願いします。m(__)m
0571デフォルトの名無しさん
NGNGどう解決したのか
しりたいでつ
0572MSDE
NGNGサンプルにこのコードを見つけたのですが、
型 'Repository' が定義されていません。となりエラーになります。
Dim oRepos As New Repository
oRepos.Create("SERVER=MyServer;DATABASE=MyDatabase;UID=MyUserID;PWD=MyPassword;")
リポジトリーというのが意味不明ですが、新規にDBファイルを作成するのはこのコードで
いいのでしょうか? このエラーを取り除くにはどうすればいいのでしょう?
0573デフォルトの名無しさん
NGNGその前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。
0574デフォルトの名無しさん
NGNG質問に対する回答・ヒント以外の書き込みは
他のスレで荒らし報告されています。
ちなみにこの書き込みはあなたの書き込みに対しての
もので、質問に対するものではないです。
0575デフォルトの名無しさん
NGNG0576573
NGNG0577デフォルトの名無しさん
NGNGそれは君では?
0578(・∀・)ニヤニヤ
NGNG0579デフォルトの名無しさん
NGNG最後に「w」が付いてるのは何?
0580MSDE
NGNG名前がつけられていて何のことかサッパリ分からん。
インストールくらい勿体つけないで普通に喋れんのか?きっとどいつもこいつも上から下まで
精神構造がおかしいのだろう。
ここでヤツラ言語とは奴らが勝手に作った長持ちしない言語のこと。
■以下はインストールのマイクロソフトの説明
以下のコマンドのいずれかを実行します。
Windows 認証モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。
Windows 認証モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。
混在モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd" SECURITYMODE=SQL
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。
混在モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SECURITYMODE=SQL SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。
0581デフォルトの名無しさん
NGNG質問スレなんだから質問を書け。ここはお前の日記帳じゃない。
訳がわからなくて質問することもできないというのなら、
お前は業界を変えろ。
0582MSDE
NGNGいま腑と思いついたが「マニュアルから読むマイクロソフトの
精神構造」という本を書いたら馬鹿の壁よりはきっと売れると思う。
0583デフォルトの名無しさん
NGNG書くのがお前じゃ売れないと思うよ。
0584MSDE
NGNG0585MSDE
NGNGSet oServer = CreateObject("SQLDMO.SQLServer")
Set oDatabase = CreateObject("SQLDMO.Database")
Set oDBFile = CreateObject("SQLDMO.DBFile")
Set oLogFile = CreateObject("SQLDMO.LogFile")
' SQLサーバーへ接続します
oServer.Connect "(local)", "sa", ""
' データ ファイルを定義します
oDBFile.Name = "MyData" ' 名前
oDBFile.PhysicalName = "C:\MSSQL7\Data\MyData.mdf" ' 物理ファイル名
oDBFile.PrimaryFile = True ' プライマリーファイルとして設定
' データ ファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
' データファイルの定義を追加する
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFile
' トランザクション ログを定義します
oLogFile.Name = "MyLog" ' 名前
oLogFile.PhysicalName = "C:\MSSQL7\Data\MyLog.ldf" ' 物理ファイル名
oDatabase.TransactionLog.LogFiles.Add oLogFile ' 追加
' 定義したデータベースを作成する
oDatabase.Name = "MyDB" ' 名前の指定
oServer.Databases.Add oDatabase ' サーバー上にデータベースを作成
0586MSDE
NGNG>その前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。
Dim oRepos As New Repository
でハードルの低いお前はReposhitoryがどこのNameSpaceか知ってるのか?
知ってるなら答えてみなさい。
0587デフォルトの名無しさん
NGNG0588デフォルトの名無しさん
NGNGお前おもしれーな。ゴーストライターの意味分かってるか?
0589デフォルトの名無しさん
NGNGどこが難しいの?
0590デフォルトの名無しさん
NGNGドキュメントのせいにして騒いでるw
そんなんじゃ誰も相手にしてくれないよw
0591MSDE
NGNG>どこが難しいの?
名前があって物理ファイル名があってデータベース名があるんですか?
えっと、選り取りみどり、名前には不自由しないようですね。
でトランザクションログって何ですかね? 不思議な名前ですが。
まあそれはいいとして。ログ見りゃなんか分かるんでしょう。きっと。
でもトランザクションとは関係ないと思うが。
' データ ファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
1MB拡張ってなんなんです?
0592デフォルトの名無しさん
NGNGデータファイルのサイズが足りなくなったときに1MBずつ
拡張すること。スレ違い。>573で既に指摘されてるだろ。
0593デフォルトの名無しさん
NGNG回答自体もスレ違いなので。
0594MSDE
NGNG難にせよ。ありがとう。
しかしRepositoryのNamespaceについて誰もしらんのか? そんなマニュアルを
のさばらせているのは、一体誰なんだ。
>お前おもしれーな。ゴーストライターの意味分かってるか?
著者じゃなくて馬鹿の壁を本当に書いた人のことね。あなた知ってる?
知らないでしょ。そう、誰も知らない。知ってるのは、当の精神科医と
檻のなかの機知外くらいだよ。
>ドキュメントのせいにして騒いでるw
>そんなんじゃ誰も相手にしてくれないよw
あのドキュメントから読めるものは、タイトルが意図しているものとは
別のもの。そう脳みその異常。
0595MSDE
NGNG避けるのね? こわいから?
0596デフォルトの名無しさん
NGNG話はそれからだ。
0597デフォルトの名無しさん
NGNG通報しときました。適切なスレを選ばないとこういうことになります。
0598デフォルトの名無しさん
NGNG0599デフォルトの名無しさん
NGNGブッシュ?
0600デフォルトの名無しさん
NGNG眠気が吹っ飛んだよ
0601デフォルトの名無しさん
NGNG0602573
NGNG0603デフォルトの名無しさん
NGNG新規プロジェクトでForm1が出来る
↓
ファイル→名前を付けてForm1.vbを保存
↓
実行ファイルが作られていない
実行ファイルの作り方がわかりません。スレ違いだったら誘導おながいします
0604デフォルトの名無しさん
NGNG0605デフォルトの名無しさん
NGNG0606デフォルトの名無しさん
NGNGそりゃ説明になっとらん。
昼レベルが高いとしたら、まっとうなプログラマが昼間仕事さぼってここに書き込んでることになる。
漏れもだが。 orz
0607デフォルトの名無しさん
NGNGあほ
0609デフォルトの名無しさん
NGNGビルドしても実行ファイルが作られてないみたいなんですが
まず、パスを通さないといけないのでしょうか?
ビルド出力パスというのが関係するんでしょうか。
ソースファイルが2つと、リソースファイルまでは作れたんですが
0610デフォルトの名無しさん
NGNG文字列を入力すると、その文字列が回文(右から読んでも左から読んでも一緒)
であるかどうかを判別するプログラムのコードだれかわかりませんか?
0611デフォルトの名無しさん
NGNG既存ぼ解説とずれてて微妙にわかんないや。ただでさえ時間がかかってるのに
0612500 困ったくん
NGNG[ Text1 ] ÷ [ Text2 ] = [ Text3 ] 余り [ Text4 ]
のように表示させるのですが、例えば、35÷6をしたときに、
答えが、Text3=1 Text4=29 になってしまいます。
どうすればいいのでしょうか?
よろしくお願いします。 なお、僕の考えたプログラムは以下の通りです。
(※”=”部分がコマンド1です)
Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
Text3.Text = sho
Text4.Text = M
End Sub
結局、どうすればいいのでしょうか??
教えてください!!
0613デフォルトの名無しさん
NGNGデフォルトだと日本語のパスが通らないらしいんだけど
そのへんはどうだろ?
0614デフォルトの名無しさん
NGNGデーターセットを作るところまではあっさりできましたし、データーグリッドにこれを表示するところまで
はすんなり通ったのですが、このデーターグリッド上の数値を書き換える事ができません。
AS/400に対して、コマンドが通らないと言うのであれば納得もできるのですが、データーグリッド上の
数値をいじっている時点では、クライアント側での話しなので、とんと判らず弱っています。
同じような症状を解決出来た方、いらっしゃいませんか?
0615デフォルトの名無しさん
NGNG先にあまりを出しておいて、それを元の数からひいて、その上で、もう一回割り算
っていうのは、どうでせう?
0616デフォルトの名無しさん
NGNGアホ
0617デフォルトの名無しさん
NGNG罵倒するだけの能無しよりはマシな希ガス、アルゴンガス、アセチレンガス。
0618617
NGNG気を悪くされた方、わたしのことですので気にしないでください。
0619デフォルトの名無しさん
NGNGMとNをintegerで宣言すれば解決する話だ。
DoWhileだと余計なループが発生して結果がおかしくなるのも指摘されてるな。
つかそもそもこれは本当にVB.NETのコードなのか?
0620デフォルトの名無しさん
NGNG0621デフォルトの名無しさん
NGNG35-6-6-6-6-6-6=-1<0
-6でループ計算をさせ、この結果がでてきたら
Text1=35
Text2=6
Text3=ループ回数-1
※Text5=-1
Text4=-1-(-6)
こんなのでどうだろうか・・・
0622デフォルトの名無しさん
NGNG実数って何のこと指してます?
0623デフォルトの名無しさん
NGNGそれでプログラムはOKだが、数値の宣言とかで問題があるんかもな。
確実に変数を宣言してみなさいよ。
DIM N,M,sho as double 'M,N,SHOを実数として宣言する
M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M
0624620
NGNG基準に3msec精度での積算値。 NOw()はDate型だけど実体は実数なの。
で dim msec as double
msec = NOw().todouble となるのが普通なのだけど、todouble()ってメソードを
なんか別の書き方にしているらしい。
toStringがあるならtoDoubleだろう?普通なら。
0625620
NGNGこうすると 1,29がこたえになる。
Dim M, N As String, sho As Double
M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M
0626デフォルトの名無しさん
NGNGそれは一体どんな言語/環境の話なのよ。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vadatDate.asp
VB.NET(と.NET Framework)では8バイトの整数として西暦1年1月1日から100ナノ秒単位で格納されてる。
UNIX時間でも整数を使ってるし。
0627620
NGNGしかし、さっきどっかでみたんだが、西暦1年じゃなかったと
おもうが、、、、
0628620
NGNG0629デフォルトの名無しさん
NGNG.NETとVB(とか他の言語)が混ざってないか?
http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet05/vb6tonet05_01.html
こことか参考になるんじゃないの?
0630デフォルトの名無しさん
NGNGこのA’フォームのデザイン画面をソリューションエクスプローラーから開いた時、
基底クラスAフォームのLoadイベントが実行されるなんてことがあるのだろうか・・・
現在そのロードイベントにはApplication.StartupPathでファイルをオープンする処理があるのだが、
StartupPathにC:\Program Files\Microsoft Visual Studio .NET 2003\Common7\IDEが入ってきているらしく
エラーが発生してしまう。これって何なんだ・・・orz
0631デフォルトの名無しさん
NGNGオリジナルのコントロール貼り付けてもLoadイベントは起きる
0632630
NGNGレス感謝。
確かにAフォームのLoadイベントにメッセージボックスを記述するとデザイン時でもメッセージボックスが出るな。
これって常識??
基底クラスのLoadイベントが発生するって解釈でいいのかな?
0633デフォルトの名無しさん
NGNG> 基底クラスのLoadイベントが発生するって解釈でいいのかな?
そうじゃなきゃ困る。
DesignModeプロテクトプロパティを使えばデザインモードかどうか判断できる。
ただしコンストラクタでは常にFalseを返すようなのでLoadイベント内で。
0636デフォルトの名無しさん
NGNG┃TabPage1┃TabPage2┃TabPage3┃TabPage4┃
というように、TabPageが4つあるフォームを作成しました。何をどうやったのか判らないのですが
気が付くと
┃TabPage1┃TabPage3┃TabPage2┃TabPage4┃
と順番が入れ替わってしまいました。元に戻したいのですが、どうすればよいでしょうか?
0637デフォルトの名無しさん
NGNGソースコード直接いじれば?addする順番変えれば
いいんじゃないの?
0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNGVB.NETを使いPocketPC用のRSSリーダーを作ろうと思ってるんですが
RSSの整形方法などを判りやすく解説されているサイトや書籍、サンプルコード等をご存じないでしょうか?
よろしくおねがいします
0640斉藤 ◆kvYxWFRquQ
NGNG0641デフォルトの名無しさん
NGNGアクセス2000の形式を使ったデータベースでのレコード検索なのですが、
基本の形が「戻値=デートセット名.データテーブル名.Select(抽出条件)」
で,できるみたいなのですが、例題では抽出条件のところの書き方が...Select("単価 = 2000")
のようにしないさいとあります。
そこで実際にプログラミングしていく段階でテキストボックス内の値を抽出条件にするときに、
...Slect("商品グループ = '" & textbox1.Text & "'")
のようにしなければならないみたいです。抽出する値をシングルクォーテーション(')で囲むようにっと書いてあるので、
「'〜〜'」の意味はわかりますが、その中の「" & textbox1.Text & "」の意味がいまいちわかりません。
長くなってしまったのですが、ご教授のほどよろしくお願いします
0642デフォルトの名無しさん
NGNG0643デフォルトの名無しさん
NGNGSlect("商品グループ = '" & textbox1.Text & "'")
この中身は
Slect("商品グループ = '生鮮食料品' ")
になる
ためしに
Dim str as String = "商品グループ = '" & textbox1.Text & "'"
MessageBox.Show (str)
Slect(str)
に置き換えてみると解りやすいかも
0644デフォルトの名無しさん
NGNGその「&」の部分にカーソルを当ててF1キーを押すと、ヘルプが
出てくる。「&」は「+」と異なり、文字列だけを連結する機能
がある。
0645デフォルトの名無しさん
NGNGシングルクォーテーションで囲まれた部分をひとつの固まりとみなして、
そのままではtextbox1.Textは文字列になってしまうのでそれをテキストボックスのプロパティにして、
さらにそれを「&」の結合演算子で繋げるということなのでしょうか?
0646デフォルトの名無しさん
NGNG区切り方を間違っていました;w;
「"商品グループ='"」& 「textbox1.Text」 & 「"'"」
っということなのですね('△';)
こんなことを気づかなかったとは;w; 親切に教えてくださった方ほんとにありがとうございます(^▽^)
0647デフォルトの名無しさん
NGNG乙
0648yukki
NGNGReceiveメソッドはメッセージを受信するまで実行をブロックします。
メッセージ受信以外の方法でブロックを解除するにはどうしたらよいでしょうか?
0649hoge
NGNGちょうど俺もUDPのプログラム書いてたから
Do Until MainSock.Available > 0
Application.DoEvents()
System.Threading.Thread.Sleep(1)
m_intResponsTime = timeGetTime() - ConnectStartTime
If m_intResponsTime >= 2000 Then
Exit Function’TimeOut
End If
Loop
ReDim ReceiveBuffer(MainSock.Available - 1)
MainSock.Receive(ReceiveBuffer, MainSock.Available, SocketFlags.None)
0650デフォルトの名無しさん
NGNGVC++.NET:Win32-DLLプロジェクトで
#ifdef DLLTEST_EXPORTS
#define DLLTEST_API __declspec(dllexport)
#else
#define DLLTEST_API __declspec(dllimport)
#endif
DLLTEST_API int __stdcall funcAdd(int a,int b);
DLLTEST_API int __stdcall funcAdd(int a,int b){
return(a+b);
}
VB.NETで
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Long, ByVal b As Long) As Long
と言う風に宣言してDLLのfuncAddを呼ぼうとすると
DLL DllTest.dll の funcAdd というエントリ ポイントが見つかりません。
と言うエラーが出てしまいます。対処法を教えてください。お願いします。
0651650
NGNG0652デフォルトの名無しさん
NGNGextern "C"_declspec (dllexport)
とC言語型の関数として宣言しなけりゃいけないはず。
0653デフォルトの名無しさん
NGNGextern "C" __declspec (dllexport)
0655デフォルトの名無しさん
NGNG1)Aliasを指定する
Alias "_関数名@引数のバイト数合計"
2)Autoを指定する
のどっちかが必要なようだ。
あと通常C/C++のintはVB.NETではInteger(Int32)であってLong(Int64)ではない。
0656650
NGNG出来ました。ありがとうございました。
・・・しかし、defファイルが無いとやっぱりエントリポイント
が無いと怒られてしまいます。
__declspec (dllexport)をVC++側でやっとけばdefファイルはいらんと
マニュアルに書いてあるんですが・・・残念。
レス、ありがとうございました。
0657デフォルトの名無しさん
NGNG>653と>655でこっちでは問題なくエントリポイントを取得できたんだけど。
//Alias "#1" でもいいな。これが一番妥当か。
0658650
NGNGFile:DllTest.def------------
LIBRARY DllTest.dll
EXPORTS
funcAdd
------eof--------------
>650を
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
にしてDllTest.defをソリューションプロパティのモジュール定義ファイル
に置いたら出来ました。
でも、>653&>655の方が良さそうなのでそちらにさせていただきました。
多謝。
0660デフォルトの名無しさん
NGNG非常に時間がかかるのだけど・・・・
htmlのサイズとしては500k位、postbackするのに5分位かかる
こんなもんなん!?
誰か詳しい人教えてください
0661デフォルトの名無しさん
NGNG0662デフォルトの名無しさん
NGNG0663デフォルトの名無しさん
NGNG初めてVBを使います.
Data0001
Data0002
:
:
と,順番にファイルを読み込みたいです.
For i=1 to n
Workbooks.Open Filename:="Data000???.xls"
???のとこのプログラムをどのようにすればいいでしょうか?
0664デフォルトの名無しさん
NGNG0665デフォルトの名無しさん
NGNG0666デフォルトの名無しさん
NGNGVB6かVBAのスレに行ってみてはいかが?
VBAについて Ver.3.0
http://pc5.2ch.net/test/read.cgi/tech/1078187762/l50
VBプログラマ質問スレ(6.0以前) Part39
http://pc5.2ch.net/test/read.cgi/tech/1099737063/l50
0667デフォルトの名無しさん
NGNGVB.NET で開発されたソフトウェアを動かすには、
Microsoft Windows Update などから、
「Microsoft .NET Framework Version 1.1 日本語版」 みたいなのをダウンロードしなきゃいけないんですか?
だとしたら、Windows 2000 や XP のデフォルトの状態では動作しないのでしょうか?
よろしくお願いします。
0668デフォルトの名無しさん
NGNGランタイムが必要。
http://www.microsoft.com/downloads/details.aspx?FamilyID=262d25e3-f589-4842-8157-034d1e7cf3a3&DisplayLang=ja
Javaと同じで素の2000,XPじゃ動かん。
0669667
NGNG回答ありがとうございます。
やっぱり、「.NET Framework」というランタイムが必要なんですね。
今まで色々な商用ソフトやフリーソフト、シェアウェアを使ってきましたが、
.NET Framework のインストールを要求された事はありませんでした。
やっぱり、.NET で作成されたプログラムって普及してないんでしょうか?
現在でも、VB6とかVisual C++ とかが一般的なのですか?
0670デフォルトの名無しさん
NGNG新しい技術(?)についていけてないだけ
0671デフォルトの名無しさん
NGNGMicrosoft が こりゃーいい感じ と思ったら、
新しい Windows にデフォルトで入れてきて
一気に普及するということもありうるよね。
でも、現状では、Javeとか .Net のランタイム
のインストールを嫌がる人も多いので、、、
そう言うことでしょう。
0672デフォルトの名無しさん
NGNGEXEが稀に残ります。なんででしょう。とりあえず、終了まえにThread.Abort
とApplication.exitはやってます。他になにかやることがあるんでしょうか?
threadが一つ動いてます。MSDEを使ってます。ComのFlexgridをつかって
ます。それ以外は特別変わったことはしてません。
0673デフォルトの名無しさん
NGNGってか、WindowsUpdateしろよ。ちゃんとしてたら自動的に入ってる筈だぞ。
0674デフォルトの名無しさん
NGNG0675デフォルトの名無しさん
NGNG0676デフォルトの名無しさん
NGNG窓から手はだめ。手を使わないでプログラムで殺す方法。
0677デフォルトの名無しさん
NGNGDeclare Function RoundRect Lib "gdi32.dll" _
(ByVal hdc As Integer, _
ByVal nLeftRect As Integer, _
ByVal nTopRect As Integer, _
ByVal nRightRect As Integer, _
ByVal nBottomRect As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer) As Integer
Public pic As PictureBox
RoundRect(PictureBox1.hdc,10,10,10,10,10,10)
PictureBox1.hdc がVBNETじゃだめなの。 何を渡すの?
0678デフォルトの名無しさん
NGNGDim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
ででけた。
しかし、中をグリーンにしたいんだがどうすればいいの?
0679デフォルトの名無しさん
NGNGWindows Server 2003には.NET 1.1のRuntimeがプリインスト。
Windows XPは初期状態で.NET 1.0のRuntimeが入っていたような?
次期Windowsは、それ自体が.NETのコンポーネントで構成されるって
聞いたような。
0680デフォルトの名無しさん
NGNGCreateSolidBrushでブラシを作成。
SelectObjectで作成したブラシを選択。
RoundRectで描画。
SelectObjectで作成したブラシから元々選択していたオブジェクトに戻す。
DeleteObjectで作成したブラシを削除。
Graphics.FillPathとどっちが楽だろ。
//まあマネージドで完結させ得る点でGraphicsの方が良いが。
>>679
XPはSP2でも入らない。
WindowsUpdateの追加選択で任意にインストール、レベル。
自動通知の場合は知らない。
0681デフォルトの名無しさん
NGNGしたときに▼とか▲をヘッダに出したいのですが、あれはやっぱり
オーナードローとかいうものをしないとダメなのでしょうか。
VBでも可能なんでしょうか。
0682デフォルトの名無しさん
NGNG処理の優先度を下げる方法はありますか?
0683デフォルトの名無しさん
NGNG間違えてこちらに投げてしまいました。
すいませんが>681は取り下げさせてください。
0685デフォルトの名無しさん
NGNGありがとう
>DeleteObjectで作成したブラシを削除。
えっ、ガベッジコレクションきかないのですか?
削除する必要があるんですか?
>'Graphics.FillPathとどっちが楽だろ。
>'//まあマネージドで完結させ得る点でGraphicsの方が良いが。
APIで描いた図形にGraphics.FillPathできます?
GraphicsにRoundRectさえあれば、APIなんて使いませんよ。図形描画に関しては
滅茶苦茶原始的。MSDOSのまんまだね。 2Dで回転すらできないのか? あーあ。
0686デフォルトの名無しさん
NGNG> えっ、ガベッジコレクションきかないのですか?
> 削除する必要があるんですか?
ガベージコレクションをもう一度勉強すれ。
メモリ以外はガベージコレクションの対象外だ。
アンマネージドなものを使うならDeleteObjectやReleaseDCなんか常に意識しないと駄目。
マネージドなものならGCされる時に関連リソースもファイナライザで破棄できるんだが。
> APIで描いた図形にGraphics.FillPathできます?
できるんじゃないかね。言っている意味がよくわからんが。
hDCからGraphicsを取得する事もその逆もできるし。
> 滅茶苦茶原始的。MSDOSのまんまだね。 2Dで回転すらできないのか? あーあ。
Graphics.RotateTransformとか駄目か。
0687686
NGNG適当適当。プログラムなんてそんなもんよ。
0688デフォルトの名無しさん
NGNG通らないみたい。レス遅くなってすいません。
プロジェクトで、ビルド出力パスというのを設定したら実行ファイルがつくられてました。
0689デフォルトの名無しさん
NGNG謝って済む問題じゃないだろ。
0690デフォルトの名無しさん
NGNGそれでもビルドしたときになんかエラーがでてたよ。詳細はわかんないけど、無事exeができてました。ありがとう
0691デフォルトの名無しさん
NGNG報告が遅れてすまんかったね
0692デフォルトの名無しさん
NGNGマジメにやれや。
0693デフォルトの名無しさん
NGNG謝って済む問題じゃないだろ。二度とここに書き込むな。
0694デフォルトの名無しさん
NGNGどういう点が、謝ってすむ問題じゃない?何も問題起こしてませんよ。てかさ、質問と解答と報告以外のことすんなよ、オッサン。
基本的に「謝ってすむ問題」の定義からしておかしいしね。文章嫁や。イライラしてるんなら、最悪板にでも逝って下さいおながいします
あなたがいると迷惑ですよ?
0695デフォルトの名無しさん
NGNG釣られすぎ
0696デフォルトの名無しさん
NGNGえ?誰がどこに「謝って済む問題」をどう定義したの?
0697デフォルトの名無しさん
NGNGそういうことですか。
>Graphics.RotateTransformとか駄目か。
OK。これでおけ。
>hDCからGraphicsを取得する事もその逆もできるし。
hDCからGraphicsをとる方法おしえてくだされ。
0698デフォルトの名無しさん
NGNG>688
謝って済む問題じゃないだろ。
お前が定義してるね↑笑
>696はVBよりもまずは日本語を覚えようよ♪うん♪
0699デフォルトの名無しさん
NGNG笑じゃなくて。質問に答えてくれませんかね。
あーーーー、すいません。脳が少ない方でしたか。
あらかじめ言って頂ければそれなりに対処したんですが。
すいません。
0700デフォルトの名無しさん
NGNG定義してないよ。
>694
>基本的に「謝ってすむ問題」の定義からしておかしいしね
何に対して何がどうだからおかしいと思ったの?
0701デフォルトの名無しさん
NGNG謝ると、それ以後問題とならない問題。もともと問題とならない
些細な問題を含む。
もともと謝って住む問題であっても、一旦謝ると謝っても済まない
問題となることがある。
0702デフォルトの名無しさん
NGNG余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。
0703デフォルトの名無しさん
NGNG君が思う(思い込んでいる)「定義」の意味でいいよ。
0704デフォルトの名無しさん
NGNGアホをまともに相手するな。お前も荒らしと言われるぞ。
0705デフォルトの名無しさん
NGNGいそうろうのことか?
0706デフォルトの名無しさん
NGNGお前が定義してるっていってるじゃん。爆笑
俺があやまってるのをみて。謝ってすむ問題じゃないって思ったんでしょ?w
それで、謝ってすむ済む問題じゃないだろ。↓笑
689 名前: デフォルトの名無しさん [sage] 投稿日: 04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。
お前は、日本語読めてるの?ワラ
脳が少ない??
へぇ。ケッサクだね。脳が少ないなんて普通言わないしねw普通はw Iちなみに俺とお前だったら、レスの内容から、あきらかにお前の方が少ないしね
うん。それから、別に話しかけてこなくて良いよw
すいません。ってw
0707デフォルトの名無しさん
NGNG定義:謝って住む問題。
謝ると、それ以後問題とならない問題。もともと問題とならない
些細な問題を含む。
もともと謝って住む問題であっても、一旦謝ると謝っても済まない
問題となることがある。
おれもこれで↑定義はあってると思うよ。
0708デフォルトの名無しさん
NGNGとりあえず飯食って昼寝しろ。いま職場でもカップ麺くらいある
だろし、今日なら上司もいないだろ?
俺は金曜から一歩も外に出られない。(´;ω;`)ウッ…
0709デフォルトの名無しさん
NGNG702 名前: デフォルトの名無しさん [sage] 投稿日: 04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。
別に、誤字脱字ないでしょ?ワラ
コレぐらいの文章くらい読解してくださいね。厨房さん
でなきゃ700=702は荒らしでw
0710デフォルトの名無しさん
NGNG乙。
0711デフォルトの名無しさん
NGNG>hDCからGraphicsをとる方法おしえてくだされ。
一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
質問の解答以外にも意外な発見もあるかも知れない。
0712デフォルトの名無しさん
NGNG誤字はホントにあるよ。バカだな。
0713デフォルトの名無しさん
NGNGふぅ・・・一体どこまでレベルを下げてあげれば伝わるのか。
脳が少ないというかない人にからんだ私が間違ってましたよ。
0714デフォルトの名無しさん
NGNG誤字あるじゃん。
0715デフォルトの名無しさん
NGNG>705のツッコミで気付けよw うまいこと言ってるのに。
0716デフォルトの名無しさん
NGNG>俺は金曜から一歩も外に出られない。(´;ω;`)ウッ…
こいつ臭そう。相当デキが悪いんだろうな。
うちに来てる協力会社でも机に座った分しっかり
請求してくるバカがいるからな。成果物チェックしまくって
めちゃくちゃ減らしてやってるけど。
0717デフォルトの名無しさん
NGNG0718デフォルトの名無しさん
NGNG気付くの遅すぎ。
0719デフォルトの名無しさん
NGNG0720デフォルトの名無しさん
NGNG>703はスルーですね?分かりました。
0721デフォルトの名無しさん
NGNGそんな奴ばっかだろ。小さい会社は精鋭揃いだと思ったら
大間違いだからな。金曜も協力会社の奴一人泣かし
ちまった。
0722デフォルトの名無しさん
NGNG自演、かっこ悪いよw
0723デフォルトの名無しさん
NGNG0724デフォルトの名無しさん
NGNG0725デフォルトの名無しさん
NGNGそうですよね。このスレには、どうやら厨房がいるみたいなので。お互い監視してないとスレが続きませんね
乙
0726デフォルトの名無しさん
NGNGとことんやらないとな。慈善事業じゃないんだから。
0727デフォルトの名無しさん
NGNGまだ自演は続くのか。
0728デフォルトの名無しさん
NGNG>一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
>質問の解答以外にも意外な発見もあるかも知れない。
みました。わかりません。hdcからGraphicsをとるのに
そもそもGraphicsのメンバーは関係ないでしょう。
Graphics = GetGraphics(hDC)
だから。そのGetGraphicsがどこにあるのか分からないのです。
hdc=gGraphics.GetHdc()
これはわかります。
発見もありました。
なんで平行移動がTranlateTransformなのか?
ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか?
そういう発見です。
0729デフォルトの名無しさん
NGNG厨房へ。釣り、ご苦労様です。w
0730デフォルトの名無しさん
NGNGいつになったら自演やめてくれるの?
0731デフォルトの名無しさん
NGNG0732708
NGNG>>721
まあ確かに俺は出来がいいとは言えないが、今回は後輩の後始末だよ。
月曜テスト予定のファイルをバックアップごと破壊して蒸発した。
いろいろ溜め込んでいたようだが、ここまでするとは‥‥。orz
やつの管理外バックアップと各端末から差分の残滓を回収したりして、
ようやくメドが立ったよ。社内にシャワー室があるんで、臭くならな
い&眠気取りができたのも助かったかな‥‥まあ、普段もよく使って
るんだが。
じゃ、仮眠してからシナリオと照らし合わせる最終チェックに入りま
す。(´・ω・`)ノシ
0733デフォルトの名無しさん
NGNG0734デフォルトの名無しさん
NGNGマジでタチが悪い。
>733も自分自身に対するツッコミで、しばらく待って
誰も書き込まないと見るや、自分で別人のフリして
続けるからな。誰も釣られてないのに終わらないんだ。
0735デフォルトの名無しさん
NGNG0736デフォルトの名無しさん
NGNGそのルーターの制御コードがわかってるなら。
0737690
NGNG僕の方はようやく内定が決まって、一段落した感じです。プログラミングではなくて、メーカーで評価・シュミレーションというやつをやることになりました。^^;
分野は違いますが、お互い頑張りましょう。レス�dクスでした。嬉しかったです。では。乙
0738デフォルトの名無しさん
NGNG> >711
> みました。わかりません。hdcからGraphicsをとるのに
> そもそもGraphicsのメンバーは関係ないでしょう。
> Graphics = GetGraphics(hDC)
> だから。そのGetGraphicsがどこにあるのか分からないのです。
Sharedと言う可能性を忘れていないか。
Image.FromFileとかあるじゃんか。
Graphics.FromHdcがあるじゃないか。
> なんで平行移動がTranlateTransformなのか?
Translateに平行移動って意味もあるんだが……。
ttp://dictionary.goo.ne.jp/search.php?MT=translate&kind=ej&mode=0
> ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか?
そういうのは他にも色々あるが……。
何でだろうね?
0739デフォルトの名無しさん
NGNG制御コードってどんな形式のもの?
corega BAR SW-4P HGなんだけど、やったことある
人いないかな。
0740デフォルトの名無しさん
NGNGパケットキャプってみて、同じパケット作って飛ばして
あげればできたりするかな。
0741デフォルトの名無しさん
NGNGメーカーが公表する性質のものでもないし、>>740の助言みたい
にするのが大吉。管理者ログインからリブート指示まで、丸ごと
捕獲して解析してみそ。
つか、そのあたりの話はスレ違いになるから、メーカースレにで
も行ってみたらいい助言が得られる悪寒。
0742デフォルトの名無しさん
NGNG>740は助言じゃなくて俺の独り言でした。
まぁとにかくやってみます。
0743デフォルトの名無しさん
NGNGそうなのか、しらんかった。 自分ならTransferにするけど、Translateの方が
適当なのかな?
>Sharedと言う可能性を忘れていないか。
>Image.FromFileとかあるじゃんか。
>Graphics.FromHdcがあるじゃないか。
うー意味不明。サッパリわからん。
RotateTransformをつかおうとすれば、結局DrawRectangleやDrawLineなど
Graphicsが持っているメソードを使わないとだめみたいね。
APIのGLIBでイメージメモリに描いてそれをGraphicsに渡して描画する
みたいなことができたらできるかも? MatrixOrderというぐらいだから
対象はベクターだろうね。
よく知らんが、まともなグラフィックスというとOpenGlとかはVBNETでも
うごくんだろか? VB6だったら動くみたいだね。これがまた簡単には動かんの
だろな。 aUTOCADのVBAだったらすごく楽にかけるんだけどね。ところがこれが
バグだらけで、すぐにハングする。ろくなものがない。
0744デフォルトの名無しさん
NGNGホントに意味がわからんのか?
こう言えばわかるか?
Graphics クラスには FromHdc という Shared メソッドがあるんだよ。
0745フナ太郎
NGNG0746デフォルトの名無しさん
NGNGあっ、すまん。そういう言葉に対して基本的知識がかなり不足している。
思えば、適当にプログラムを作ってきたツケだとおもう。
そこで適当に想像したり、検索したりしてその場をしのいでいるが
Sharedというのは共有になるということらしい。技術評論社の
VisualBasic.NETプログラミングマニュアルというのを参考にしているが
サッパリ意味不明だ。この本は失敗だった。技術評論社は信頼しているんだが、
やっぱり女の書いた本はロクなのがない。適当に本を買ったのが失敗だったなー。
麻奈ちゃんも恵子ちゃんも香織ちゃんも明子ちゃんもだめ。もうお前らの本は買わん。
わからん。もう一度買ってほしかったらわかるように書いてくれ。
それはいいとして、Sharedだからどうにかなるというものでもないような気がする。
Sharedの意味は分からんが
こうすれば
Dim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
Dim gr As Graphics
gr = gr.FromHdc(hDC)
Dim pen As New Pen(Color.Green)
gr.DrawLine(pen, 0, 0, 200, 200)
たしかに、PictureboxのハンドルからGraphicsが取れる。これは驚き。
かなり、知識のバリエーションが広がった気がする。
0748デフォルトの名無しさん
NGNG> Dim gr As Graphics
> gr = gr.FromHdc(hDC)
気持ち悪い……。
gr = Graphics.FromHdc(hDC)
と書こうよ。
つまり、Sharedであるものは特に前提条件無くその場で使用可能なわけ。
hDCさえあればGraphicsオブジェクトを作成可能なの。
つかそもそも.NET内でならデバイスコンテキストを意識する必要すらない。
Dim pic As PictureBox = new PictureBox()
Dim g As Graphics = pic.CreateGraphics()
...
'Dim hdc As IntPtr = g.GetHdc() 'デバイスコンテキストは取得するならGraphicsから取得する。必要な事態は余り無いが
...
'g.ReleaseHdc(hdc) 'もちろんアンマネージドリソースはそれに相応しく破棄処理
...
g.Dispose()
で終了だ。
0749デフォルトの名無しさん
NGNGおお、すっきり。ありがとう。
ところで色々教えてもらったので一ついいことを教えてあげましょう。
Strict ON
ってスイッチしってます?
これをONすると、自分のコードはエラーだらけになった。実に強力に
エラーチェックをしてくれます。
大事な仕事の時はぜひStrict ONです。昨日はじめて知りました。
0750最凶VB厨房
NGNG内部は内部でもクラス内部という意味じゃなくて
MS内部という意味じゃねぇか?w
クラスライブラリ内部と言った方がいいかな。
0751最凶VB厨房
NGNGhttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcn7/html/vaconprogrammingwithvb.asp?frame=true
これ見たら驚きの連続だぞ(ワラ
0752デフォルトの名無しさん
NGNGキャプってみたけど訳分からん。ネットワークの基礎から
勉強しないと・・・ とりあえずロケットマウスでしのぎますw
0754デフォルトの名無しさん
NGNG>これ見たら驚きの連続だぞ(ワラ
そんなにいっぺんに驚いても勿体ないでしょ。
ところで、最凶はVBにかかるの? 厨房にかかるの?
今回Graphicsのサンプルをテストするとき、C#をすこし使いましたが、
InterisenceとかがVBにくらべて弱いですね。VBの方がかなり楽にプログラム
できます。
言語的に幾分弱いVBに便利さで意図的にアドバンテージをおくのはMSの戦略ですかね。
0755デフォルトの名無しさん
NGNGやっぱり初心者に優しくという方向性なんだろうな。
0756デフォルトの名無しさん
NGNGなんで初心者のお前がうざいと感じるんだよ。
0758デフォルトの名無しさん
NGNG速くなるのか? やってみたことあるベテランさん感想をどうぞ!
0759デフォルトの名無しさん
NGNGC#はOFF、VBはON
このちがいか?
0760デフォルトの名無しさん
NGNG俺にレスするな
0761デフォルトの名無しさん
NGNGMultiLineがいつもTrueで、通常は1行表示でフォーカスを持つと入力部分が大きくなるような奴です。
で、入力部分を大きくする時にフォーム中央にある場合は問題ないんですが、
隅にあったりして大きくなるとフォームからはみ出す場合に途切れずに
表示するにはどのようなアイデアがあるでしょうか?
現在はフォームにテキストボックスだけを貼り付けて、それを表示させようかと考えてはいるのですが・・・
0763デフォルトの名無しさん
NGNGフォーム側がユーザコントロールのResizeイベント辺りでフォーム自身のサイズ変更すればいいんじゃない?
0764デフォルトの名無しさん
NGNGDim sText As String
sText = a
Dim sNewText As String
sNewText = StrConv(sText, VbStrConv.Narrow)
a2 = sNewText
End Sub
入力された文字を、上のコードで半角にしてみましたが、作ったデーターを渡す
相手がオフコンなので、半角の長音が通りません。
半角の長音をマイナスに入れ替えるルーチンを書きたいのですが、どなたかど
の命令を使えばよいかアドバイスください。
0765デフォルトの名無しさん
NGNG0766デフォルトの名無しさん
NGNGMSDEのVIEWを作り、列にコード値に対応する文字を持たせたテーブルの用意して
テキストボックスにその文字が表示されるように.Databinding.Textに設定したいんですが、
オブジェクトのプロパティ設定画面上では、設定したい列名がすべてExprn(nは数字)
となっていて、すごく使いにくいです。
MSDEでVIEWをデザインした時に、結合した列には全て別名を登録したのに
VS.NETのエディター上は別名で表示してくれる機能はないのでしょうか?
0767デフォルトの名無しさん
NGNGどうしたらそんなことになるの? 列名はチャンとレコードアイテムが
でるはずよ。もっと手順を追って詳しく説明してくれたら何かアドバイス
できると思う。DBの作り方はいろんな方法、I/Fがあるから、その説明では
何をやってるのかサッパリわかりません。
0768デフォルトの名無しさん
NGNG分からないなら書くなよ。
0769デフォルトの名無しさん
NGNGそんなに自分を責めるなよ。
0770769
NGNG0771デフォルトの名無しさん
NGNG0773デフォルトの名無しさん
NGNGなにこいつ
0774デフォルトの名無しさん
NGNGできないこと。
結局リストアーに仕方が分からんままに中国に納めたよ。
まあトラブルことはめったにないし大丈夫だろ。
0775デフォルトの名無しさん
NGNG0776デフォルトの名無しさん
NGNG0777775
NGNGDim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
vp.Xgw = ○○
vp.Ygw = ○○
vp.Xgc = ○○
vp.Ygc = ○○
vp.Xvw = ○○
vp.Yvw = ○○
vp.Xvc = ○○
vp.Yvc = ○○
DrawPoint(○, ○, c)
DrawPointScs(○, ○, c, vp)
DrawPointWcs(○, ○, c, vp)
DrawLine(○, ○, ○, ○, c)
DrawLineScs(○, ○, ○, ○, c, vp)
DrawLineWcs(○, ○, ○, ○, c, vp)
End Sub
で、三角形の各頂点 (200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300 高さ300
なのですが座標系についてさっぱりなので埋めることができなくて困ってます(´・ω・`)
必要でしたらコードをうpします。
0778デフォルトの名無しさん
NGNGどこにそんなルールが?
0779デフォルトの名無しさん
NGNGこのイベントのSenderから選択されたファイル名を取得する方法はありませせんでしょうか?
0780デフォルトの名無しさん
NGNGなんでsenderから取りたいのでしょうか?
OpenFileDialog1 からは取れないの?
0781デフォルトの名無しさん
NGNGなぜわざわざイベントで? とは思うな。
0782デフォルトの名無しさん
NGNGリナックスで作動するDBがよいのですがMySQLは上記のような作り方で
作動しますか?
0783デフォルトの名無しさん
NGNG自分も詳しくないけどさ、取りあえずViewPortというクラスか構造体か、
.NET FrameworkにもManaged DirectX9.0にも無いようなんだけど。
DrawPointScsとかのメソッドも分からないわけだし。
0784デフォルトの名無しさん
NGNGなぜわざわざイベントで???
0785779
NGNG>なぜわざわざイベントで???
「わざわざそういうプログラムをしてみたい」としか答えようがありませんが、
そういうこともできるのかというのが分かると、これはまた別の応用が、つまり
senderとは何かについての性質がよりはっきりと理解できるのではないでしょうか?
これで理由になりますか? 理由に間違いないのですが、この気持ちを
理解可能ですか?
0786779
NGNGそういうやり方が即座に浮かぶようになりたい。です。
0787779
NGNGパスを取りたいのですが。
0788779
NGNG>OpenFileDialog1 からは取れないの?
OKボタンを押したことを知る方法はEVENT以外にありません。
イベントで待ち構えているとSender、とE がやってきます。
ですからこの二つからすべてを処理するのが、自分の感性として
はスマートなのです。
0789デフォルトの名無しさん
NGNG.NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
手っ取り早いのはVBのコンポーネントを参照するこったね。
0790デフォルトの名無しさん
NGNG>OKボタンを押したことを知る方法はEVENT以外にありません。
平然とウソを書くなよ。ちゃんとヘルプ読んだか?
0791デフォルトの名無しさん
NGNGOKボタンってOpenFileDialog上にあるOKボタンのこと?
ShowDialog()の戻り値を見るのが普通だと思うけど
いまいち何がしたいのか分からないなぁ。
0792デフォルトの名無しさん
NGNGあのさ、どういう機能を実現したいのかまずは日本語だけで
まとめてみれば?
あと>785みたいな人の神経を逆撫でするような書き込みしといて
その後すぐ質問ってどういう神経なんだろう。投稿前に見直し
とかしてる?
0793デフォルトの名無しさん
NGNG単に見れないからMSDN代わりにここを利用しようとしてる?
ちょいとそこんとこ教えて。
0794デフォルトの名無しさん
NGNGttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049&res=84&fi=no
にソースコードを書いておきました。
埋める場所は空欄(先の通り)となっています。
0795デフォルトの名無しさん
NGNG漏れも一時期Senderをキャストしてイベントの内容拾ったりしてたが
無駄だということに気が付いてやめた
0796779
NGNGええっ、戻り値があったのか? 知らんかった。そうだったの。ガックシ。
FolderBrawserDialogはもっと悲惨だった。こっちは探してもEVENTがない。
継承元からイベントを取れないか半日も悪戦苦闘してあきらめた。
いつにもまして「MSのアフォたれ、馬鹿たれ」と思っていが、戻り値があるんか?
なら簡単だった。
>平然とウソを書くなよ。ちゃんとヘルプ読んだか?
HELP
■ShowDialog
(CommonDialog から継承されます)
オーバーロード。 コモン ダイアログ ボックスを実行します。
何だこのHELPは。このHELPをみて分かるか? わかるか?おい。
0797デフォルトの名無しさん
NGNGじゃあCommonDialogの方も読むだろ、普通
0798デフォルトの名無しさん
NGNG0799デフォルトの名無しさん
NGNGアホ
0800デフォルトの名無しさん
NGNG0801デフォルトの名無しさん
NGNG0802デフォルトの名無しさん
NGNGなんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか?
0803779
NGNG普通は読まん。遡るほど分からなくなるものだとは知らないの?普通。
分かりやすく、使いやすくするために継承するんですよ。
遡るほど、分かりやすいなら最初からSystemを読んでください。分かりやすいですか?
>いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。
エムエスの
アフォ糞餓鬼の
ガタガタの
能書き言わず
サンプルを出せ
(一首贈呈)
サンプルコードが大切だよね。マトモな。
>800
お前は剥けすぎベロリンチョ
>ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。
林晴彦のサンプル全部みたよ。10ページに渡って穴が開くほど見たが、
戻り値を使う例はただの一つも無い。(VB6のだけどね)
すまん、このセンセのチンコも剥いてやってくれ。
>Overloads Public Function ShowDialog() As DialogResult
>なんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか?
なんでそれを目に入るところに書かないのかなあ?
0804デフォルトの名無しさん
NGNGVB.NETは別スレあるからそっちでやれよ。
0805779
NGNG.> NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
どういう意味なの? File1やDir1の方がシンプルでスマートだと思うよ。
対応するのはFoldeBrowzerDialogだろうけど、今一って感じる。ダイアログは簡単
だけど、フォームに貼り付ける方がいい場合がたまにある。
>手っ取り早いのはVBのコンポーネントを参照するこったね。
このコンポーネントって参照できるの? どうやって? OCXが分からん。
VB6組み込みじゃないの?
分からないからVB6でDirとFileをフォームに貼り付けてActiveXを作って
VBNETに貼り付けてやってみたが誤動作する。
Dirをダブルクリックすると内部でエラーがでてハングする。
うまくいかんかった。
もちろんそのActiveXはVb6上ではテストしてますよ。
0806デフォルトの名無しさん
NGNGチンコの皮までレスしてる
VB6の概念から抜け出せてないようだから.NETはしばらくやめておいたら?
もしかしたら2005でお望みの機能が追加されてるかもしれんし
>>805のようなOCXの事書いているようだから
マニュアル類は一切読んでないか、読んだつもりにいなってるんだろうな
コントロールの上でF1押せばほとんどのHELPが載っているし
記述の癖も1日2日すれば慣れると思うんだが
良くも悪くもHELPまでMicrosoftオブジェクト指向で書かれてるので
掘っていけばほぼ答えは見つかる
それでもなければ全文検索
>フォームに貼り付ける方がいい場合がたまにある。
フォームに張り付かないのか?
0807デフォルトの名無しさん
NGNG素晴らしいよ、君は。
一生そうやって生きればいいね。
0808デフォルトの名無しさん
NGNGフォームをオーナー ウィンドウのないモーダル ダイアログ ボックスとして表示します。
.NET Compact Framework でもサポート。
[Visual Basic] Overloads Public Function ShowDialog() As DialogResult
[指定した所有者を持つモーダル ダイアログとしてフォームを表示します。
[Visual Basic] Overloads Public Function ShowDialog(IWin32Window) As DialogResult
使用例
[Visual Basic]
Public Sub ShowMyDialogBox()
Dim testDialog As New Form2()
'Show testDialog as a modal dialog and determine if DialogResult = OK.
If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
Read the contents of testDialog's TextBox.
txtResult.Text = testDialog.TextBox1.Text
Else
txtResult.Text = "Cancelled"
End If
testDialog.Dispose()
End Sub 'ShowMyDialogBox
0809779
NGNGまちがってない?
0810デフォルトの名無しさん
NGNG冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
0811デフォルトの名無しさん
NGNGあってるよ
0812779
NGNGSystem.Windows.Forms.DialogResult.OK
これは何?
Dim testDialog As New Form2
宣言をしっかりして、Localでは省略するのが正解だと思うよ
第一動かんサンプル(W
0813811
NGNGもしForm2の下に並線が出るようだったら
ソリューションエクスプローラで新規のフォーム(Form2)を追加してくれ
0814779
NGNGありがとう。しかしこの例は何を説明したいのかサッパリ分からん。
実行したらFolderBrowserDialogが立ち上がって、OKしても
txtResultには何にも帰ってこない。
あれ、Form2ってインスタンスなんでしょ
クラスとしても認識するんですか? わけわからん。
0815779
NGNG0816779
NGNG例の意味はこういうことね。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As New Form2
If x.ShowDialog() = DialogResult.OK Then
Debug.Write("OK")
Else
Debug.Write("CAN")
End If
End Sub
MSってなんで持って回ったような頓珍漢な例をかくんだろね。
0817779
NGNG(日経BPソフトプレスの全サンプルもそうですからしかたありませんが)
先生方こういうサンプルが多いんですがだめですよ。
戻り値がある場合は必ず戻り値を見るようにしましょうね。
If CommonDialog1.filename <> "" Then
とくにこの判別のしかたはまずいですよ。誰かの本みて真似してるんでしょ。
■サンプル(悪)
Private Sub Command1_Click()
'***** ファイル名の取得 *****
With CommonDialog1
.filename = ""
.Filter = "Data(*.dat)|*.dat"
.ShowOpen
End With
'***** ファイルのオープンと表示 *****
If CommonDialog1.filename <> "" Then
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Line Input #1, a$
Print a$
Loop
Else
MsgBox "キャンセルされました。", , "メッセージ"
End If
End Sub
0818779
NGNGtry
cd = CommonDialog1
cd.filename = "":cd.Filter = "Data(*.dat)|*.dat"
if cd.ShowOpen = vbOk then
fname = CommonDialog1.filename
If fname <> "" Then
'***** ファイルのオープンと表示 *****
End If
end if
catch ex as Exception
msgbox ex.discription
end try
0819779
NGNGDim testDialog As New Form2()
....
testDialog.Dispose()
End Sub
このMSサンプルの testDialog.Dispose() は意味の無いコード
もし意図的に終了処理をする必要があるなら、内部でするべきだ。
(ShowDialog、モーダルだろ!)
こういう無造作に何でも追加したコードは最も悪い例だね。
0820779
NGNG>冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
コンプレッサーをモーターに置き換えて読むんだよ。そんなに違いはない。
ボタンを押したら、ランプがついて、回って、時間が来たらとまる。
0821779
NGNG>コントロールの上でF1押せばほとんどのHELPが載っているし
NETになって多少はよくなってるな。
>記述の癖も1日2日すれば慣れると思うんだが
>良くも悪くもHELPまでMicrosoftオブジェクト指向で書かれてるので
これは皮肉? どこがオブジェクト指向?
MSオブジェクト羅列っていうんだよ。
>掘っていけばほぼ答えは見つかる
それがみつからないから、藁おもつかむ。
0822デフォルトの名無しさん
NGNG0823デフォルトの名無しさん
NGNG>>822
構造体という物にクリアという概念そのものが余りなじまないわけだが。
//Integerをクリアって何それ、って感じでしょ。
用意されているならEmpty静的読み込み専用フィールドを使うとか。
(引数を取らない)デフォルトコンストラクタがあるならnewし直すとか。
引数を0とNothingのみでnewし直すとか。
0824779
NGNG外部でDisposeが必要なのはComponentのメモリーリリース。
FormはCompornetじゃない。リリースの必要はない。やってもgcに対しては意味がない。
ひょっとすると君の方じゃないのか吼えてるのは
Disposeの意味より、Compornentの意味だな重要なのは。
さて正しいのはどちらだろう。
0825デフォルトの名無しさん
NGNGなるほど!ちょっとやってみます。
0826デフォルトの名無しさん
NGNGこれでも読んでみると良いよ。
ttp://www7.big.or.jp/~pinball/discus/vb/54337.html
0827779
NGNGクラスは構造体のバージョンアップ。
だから構造体は使わない方がいいですよ。全部クラスでやる。
構造体を使う意味はない。
だからクラスにしてClear()メソードを実装するのが正解。
かな?
0828デフォルトの名無しさん
NGNGありがとうございます!
上手い具合にいきました!
0829デフォルトの名無しさん
NGNG相当偉い人のようだが
0830デフォルトの名無しさん
NGNG0831779
NGNG>さすがに828には失笑を隠せなかった。
お前の方が失笑ものだ。構造体をまだ使ってるんだろ。
0832デフォルトの名無しさん
NGNG> 構造体を使う意味はない。
言い過ぎ。
0833779
NGNG>ttp://www7.big.or.jp/~pinball/discus/vb/54337.html
たしかにShowDialogの時はDisposeに飛んでこないね。フォームを閉じた時点で
内部のコンポーネントを使うことを意識しているのか?
xx.ShowDialogをやったからと言って、そのあとでxx.Dispose()をやってる
例はないな。ざっと10例近くのサンプルを見たがそういう例はない。
MSのあのサンプルだけだね。
大事なことがよく分からんなー。
1000万回ほどぐるぐる回ししてテストしてみるか。
0834デフォルトの名無しさん
NGNG0835779
NGNG言いすぎではないとおもうよ。構造体は使わない方がいいと思う。
どうしても区別したいなら、名前のつけ方を変えたらいい。
0836779
NGNGない
0837779
NGNGきみの観察眼は鋭いかも?ウホン。
0838デフォルトの名無しさん
NGNG0839デフォルトの名無しさん
NGNGどうして言い切れる?
0840779
NGNG■高度なトピック
Obfuscation for .NET -- Dotfuscator by PreEmptive Solutions
P/Invoke メソッド
P/Invoke メソッド (つまり、ネイティブ プラットフォーム メソッド) の名前は自動的に変更されません。
これのどこが高度なトピックなのか? 中身がないのが高度なのか。Pu
そりゃ中身が無けりゃ誰にもわからん。高度だよな。pU。
0841779
NGNGできない例をだしてください。
たちどころに、、、、clsでかいて見ましょう。
高度すぎて中身が書いて無いとどうにもなりませんが。
0842779
NGNGドットネットのこころを暗くする要因
-- Dotfuscator by PreEmptive Solutions
先制攻撃的解決によるドットフスケーター(これは英語かよ?)
0843779
NGNG処理しないでね。
0844デフォルトの名無しさん
NGNG0845832
NGNGいえない。
初心者の内はそれでいいが、最適化の過程で構造体を
使いたくなってくる場面もある。
「なくてもできる=無意味」じゃないということだ。
0846779
NGNGそれとも実行コードの? コードには違いは影響しないと思うよ。
違いを儲ける必然せいがない。
いらない機能は有害とおもう。
まあベテランが新しい技術についていけないから、とりあえず残してある
という理由はわかりますが。
少なくとも初心者にとっては有害ですね。
0847デフォルトの名無しさん
NGNGモノによってはクラスでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
構造体そのもののサイズが重要な場合はクラスだとちと難しい罠
0849779
NGNG>モノによってはクラスでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
>構造体そのもののサイズが重要な場合はクラスだとちと難しい罠
それは配列でしょ。
構造体というのは配列を含んでいるの? 配列は重要だとおもうよ。
配列以外の構造体のことね。
それとも、構造体はメモリーアレンジが予測可能とかそういう性質が
あるの? うんそれなら意味あるね。クラスにはそんな機能は無いかも?
つければいいだけなんだけどね。
そういう違いがあるのか? ヒョットシテ。
0850デフォルトの名無しさん
NGNG0851779
NGNGそうします。
要するに、要らん機能がOS周辺にあるから、それに合わすために
言語にも要らん機能がいるってことですね。
0852デフォルトの名無しさん
NGNG0853デフォルトの名無しさん
NGNGプログラムから呼び出したいのですが、安全に呼び出すための
常套手段はどんな方法でしょうか。
イメージ的には呼び出し前に何らかのロックを取得して
呼びだし、実行後にロックを解除するみたいな
感じかなと・・・
0854デフォルトの名無しさん
NGNGEnter
Exit
0855デフォルトの名無しさん
NGNGフォームの内容をURLに追記したいのですが、
どうすれば良いのでしょうか?
0856デフォルトの名無しさん
NGNGもうちょい詳しくお願い
0857デフォルトの名無しさん
NGNGまぁ、記述が長いと思うならImports であってるんだっけ?
それで名前空間をインポートしてもいいと思うんだが?
そこまで判らないとは言わせない(;´Д`)
そこまでの記述を吹っ飛ばせるから長さは感じないはず
まぁ、コレをするとそのうち似たよな名前作ってしまうと、名前空間がこんがらがってくるのだが・・・
まぁ、普通に問題ないと思われ
0858777
NGNG全然わかんないよママン_| ̄|○
0860777
NGNGStructure ViewPort
Dim Xgw As Integer
Dim Ygw As Integer
Dim Xgc As Integer
Dim Ygc As Integer
Dim Xvw As Double
Dim Yvw As Double
Dim Xvc As Double
Dim Yvc As Double
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
↓ここから
vp.Xgw = 000
vp.Ygw = 000
vp.Xgc = vp.Xgw / 2
vp.Ygc = vp.Ygw / 2
vp.Xvw = 000
vp.Yvw = 000
vp.Xvc = 000
vp.Yvc = 000
DrawPoint(000, 000, c)
DrawPointScs(000, 000, c, vp)
DrawPointWcs(000, 000, c, vp)
DrawLine(000, 000, 000, 000, c)
DrawLineScs(000, 000, 000, 000, c, vp)
DrawLineWcs(000, 000, 000, 000, c, vp)
↑ここまで の数値入力がわかりません。
End Sub
0861777
NGNGPictureBox1.Refresh()
End Sub
Private Sub DrawPoint(ByVal x As Integer, ByVal y As Integer, ByVal c As Color)
Dim g As Graphics
Dim p As Pen
g = PictureBox1.CreateGraphics
p = New Pen(c)
g.DrawEllipse(p, x, y, 1, 1)
End Sub
0862777
NGNGDim x As Integer
Dim y As Integer
Dim a As Double
If x1 = x2 Then
x = x1
If y1 <= y2 Then
For y = y1 To y2 Step 1
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
DrawPoint(x, y, c)
Next
End If
0863777
NGNGa = CDbl(y2 - y1) / CDbl(x2 - x1)
If Math.Abs(a) <= 1 Then
If x1 < x2 Then
For x = x1 To x2 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
Else
For x = x2 To x1 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
End If
Else
If y1 < y2 Then
For y = y1 To y2 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
End If
End If
End If
End Sub
0864777
NGNGDim Xg As Integer
Dim Yg As Integer
Xg = x + vp.Xgc
Yg = -y + vp.Ygc
DrawPoint(Xg, Yg, c)
End Sub
Private Sub DrawPointWcs(ByVal x As Double, ByVal y As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv As Double
Dim Yv As Double
Dim Xs As Integer
Dim Ys As Integer
Xv = x - vp.Xvc
Yv = y - vp.Yvc
Xs = CInt(Xv * vp.Xgw / vp.Xvw)
Ys = CInt(Yv * vp.Ygw / vp.Yvw)
DrawPointScs(Xs, Ys, c, vp)
End Sub
0865777
NGNGDim Xg1 As Integer
Dim Yg1 As Integer
Dim Xg2 As Integer
Dim Yg2 As Integer
Xg1 = x1 + vp.Xgc
Yg1 = -y1 + vp.Xgc
Xg2 = x2 + vp.Xgc
Yg2 = y2 + vp.Ygc
DrawLine(Xg1, Yg1, Xg2, Yg2, c)
End Sub
Private Sub DrawLineWcs(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv1 As Double
Dim Yv1 As Double
Dim Xv2 As Double
Dim Yv2 As Double
Dim Xs1 As Double
Dim Ys1 As Double
Dim Xs2 As Double
Dim Ys2 As Double
Xv1 = x1 - vp.Xvc
Yv1 = y1 - vp.Yvc
Xv2 = x2 - vp.Xvc
Yv2 = y2 - vp.Xvc
Xs1 = CInt(Xv1 * vp.Xgw / vp.Xvw)
Ys1 = CInt(Yv1 * vp.Ygw / vp.Yvw)
Xs2 = CInt(Xv2 * vp.Xgw / vp.Xvw)
Ys2 = CInt(Yv2 * vp.Ygw / vp.Yvw)
DrawLineScs(Xs1, Ys1, Xs2, Ys2, c, vp)
End Sub
End Class
0866777
NGNGちょっと長いですがこちらに張らせて頂きました。すみません。
求めるモデルが
三角形の頂点 (200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300 高さ300
となります。
0867デフォルトの名無しさん
NGNG反応サンクスです。
>855 の続きです。
まるっきり初心者ですので宜しくお願いします。
Submitでページを移行させると、フォームの内容がURLの後ろの方に
「 hogehoge=**** 」
のように追記されて、次のページで内容を取得できますよね?
同じように、Hyper Linkでページを移行させて、次のページで元ページの
フォームの内容を取得する為には、どのような方法を使えば良いのでしょうか?
SubmitのようにURLの後ろに付いてくれるとありがたいのですが、
全く別の方法でも構わないので教えて頂けるとありがたいす。
0868デフォルトの名無しさん
NGNG0869デフォルトの名無しさん
NGNG途中でArrayListの編集を行った後
DataGridが更新されないのです。
フォーカスが移るとDataGridも反映されます。
DataGrid1.DataSource = objArray
DataGrid1.Refresh()
DataGrid1.Update()
じゃ駄目ですか・・
0870869
NGNG0871デフォルトの名無しさん
NGNG<A href="http://www.google.co.jp/search?ie=UTF-8&q=%e3%83%8f%e3%82%a1%ef%bc%9f">
0872デフォルトの名無しさん
NGNGすみません、用語の使い方とかメチャクチャってことっすか?
もっと簡単に書くと、「Submitボタン」を
「下線付きの文字列」(hrefとかasp:hyperlink)に変えたいんですが、
テキストボックスに入力された内容を次のページで取得する為には
どうすれば良いのでしょうか?
(Submitの時は、URLから前頁の情報を引っ張ってました。)
0873デフォルトの名無しさん
NGNG0874デフォルトの名無しさん
NGNGうろ覚えだけど、リンクボタンっていうオブジェクトがなかったっけ?
0875デフォルトの名無しさん
NGNGもしかしてVBにはない?
[attributes] [modifiers] event type member-name {accessor-declarations};
の{accessor-declarations}を書きたいんですが
0876デフォルトの名無しさん
NGNG確かにあるし、普通のボタンと全く同じ感覚で使えるので、867=872が
普通にWebアプリケーションの処理を理解していれば問題ないんだけどね。
>872
あのねぇ、Webアプリケーションの基礎的な動作について、根本的な
理解が足りないのね。
そして、根本的にASP.NETでのコントロールの値の取り方が分かって
いない。(以前の経験を引きずりすぎ)
Submitボタンでページ遷移(サーバーに送信)を行う際の動作は、
「GET」Methodと「POST」Methodの二種類あるのよ。
「GET」Methodの場合は、ブラウザが自動的にsubmit先のURLに
QueryStringを自動的に生成・追加して送っているのよ。
「POST」MethodはQueryStringを使わず、submit先のサーバーに
接続した後にデータを送っているのよ。
ASP.NET(VB.NETのWebアプリケーション)は「POST」Methodを使う様に
作られているのよ。(まずGETを使おうと思わないし)
VB.NETで普通にWebフォームを作成して、普通にWebフォームに
配置したコントロールの値は、Me.コントロール名.(値の格納されているプロパティ)
だけで取れるんだよ。余計な事を考えすぎ。
0877デフォルトの名無しさん
NGNG文字列を出力させる方法を誰か知っている方教えてください。
いろいろ調べてはいるんですが、よく分からなくて
初歩的な質問でスマソ
0878デフォルトの名無しさん
NGNG同時に.NET Frameworkを最新版にするようなことは可能でしょうか。
0879872
NGNGありがとうございます。
全てが初めてなので大変参考になります!
POSTにすべきというのは理解しました。
遷移先での取得方法ですが、サンプルでもよく「Me」という単語
を見かけるのですが、どう使うのでしょうか?
0880デフォルトの名無しさん
NGNG片方のドロップダウンから選択した値が、
もう片方のコンボボックスにも自動的に入ってしまうんですが、
それぞれ独立して選択できるようにするにはどうしたらいいでしょうか?
できればテーブルは増やしたくないです。
仕事いってきます。
0881デフォルトの名無しさん
NGNG「Excel.Application」を検さくぁwせdrftgyふじこ
0882デフォルトの名無しさん
NGNGそんな変態的な設計を止める
0883デフォルトの名無しさん
NGNG例えば、コンボボックスを使ってSelectionValueがNULL値のときに他のコンボボックスの
EnabledをFalseのようにしたいのですが、うまくいきません。
Private Sub combobox1_SelectedIndexChanged(・・・・・・)
If combobox2.SelectionValue ="" then
combobbox1.Enabled = False
End If
End Sub
のようにすると「演算子が、型 'DBNull' および 文字列 "System.DBNull" に対して有効ではありません。」
になってしまいます。
「If combobox2.SelectionValue ="" then」 の部分を「If combobox2.SelectionValue = null then」
にしても同じでした。。。このような場合どのようにしてNULL値を取得するのでしょうか?
よろしくお願いします。
0884デフォルトの名無しさん
NGNGPrivate Sub combobox1_SelectedIndexChanged(・・・・・・)
If combobox1.SelectionValue ="" then
combobbox2.Enabled = False
End If
End Sub
でした(*_*)よろしくお願いします
0885デフォルトの名無しさん
NGNG0886デフォルトの名無しさん
NGNGnull値は""でもnullでもないのですね(汗)
オブジェクトの型にデータ(system.DBNull)を渡して、IsNull関数を使ってBoolean型にTrue、Falseを返すのですね^^
ちなみに自分なりに書いてみたのですがうまく行きました♪
Dim aaa As Object
Dim bbb As Boolean
aaa = ComboBox1.SelectedValue
bbb = IsDBNull(aaa)
If bbb = True Then
TextBox1.Text = "self"
Else
TextBox1.Enabled = True
TextBox1.Text = ComboBox1.SelectedValue
End If
End Sub
>>885さんありがとうございます♪♪♪
0887デフォルトの名無しさん
NGNGやろうとしてること↓
例文(ローマ字)をテキストボックスに表示して、
フォームがアクティブなときに打ったキーを取り出して、
例文の1文字目から順番に比較しようとしました。
しようとしたのですが、例文から1文字ずつ取り出すっていうのができません。
substringで文字を取り出して、for文でまわそうとしたのですが失敗しました。
文字列を配列のようにするにはどのようにすればよいでしょうか?
0888デフォルトの名無しさん
NGNGTextBox1.Textの三文字目が欲しいならTextBox1.Text.Chars(2)。
String.Lengthプロパティで文字列の長さも分かる。
0889デフォルトの名無しさん
NGNG0890デフォルトの名無しさん
NGNG好きが行数のデータソースを作ればいいだろ。
0891デフォルトの名無しさん
NGNG0892880
NGNGこういうやり方が妥当かどうか分かりませんが、
データの冗長性を排除して保守性を高めるには、とりあえずこれしか思い浮かびませんでした。
朝っぱらからすんませんでした。
これから残業です。
多分また来ます。
0893デフォルトの名無しさん
NGNGんで、VB6.0のVSSをUpdateすればVB.NET2003で使えるようになるのかなって
試してみたらソース管理の項目が出ねー
どうなってんだこらー
0894デフォルトの名無しさん
NGNG0895デフォルトの名無しさん
NGNG[ファイル]の中に無え?
tu-ka、”VB”6.0 にもVSSは憑いてない訳だが・・・・・・
0896デフォルトの名無しさん
NGNGそれを説明できるレベルの人はこのスレにはいないでしょう。
0897デフォルトの名無しさん
NGNGついてきても使わないけど
0898デフォルトの名無しさん
NGNGわざわざ謝罪でスレを消費するのは良くないと思いましたので、ここでお詫びします;
>昨日購入し、まだ条件分岐を覚えたレベルです。
>binフォルダにあるexeはVBがインストールされているPCでしか使えない。
>という事ですが、配布されている方はどうやってexeを作っているのですか?
>アプリケーションをうまく初期化できませんでした?見たいに表示されるみたいです。
>自PCじゃないので詳細なエラーメッセージがわからないのですが、宜しくお願いします。。
>相手のPCに.NET Frameworkが入ってないとか…
との事ですが、.NET Frameworkを入れてあるPCに、binフォルダのEXE渡せば良いのですか?
ディストリビューションウィザードでしたっけ?そういうの無いんですか?
アホすぎる質問ですが・・・誰か教えて下さいorz
0899デフォルトの名無しさん
NGNGそうみたいね。でも昔のDLLとかも使うでしょ。だからその時はむかしの
ディストリビューションウィザードをつかうんじゃない?
0900yukki
NGNGShowDialogではなく、フォームをアップデートするイメージです。
ご存知の方いましたら伝授お願いします。
0901デフォルトの名無しさん
NGNG必要な部分をメソッドに切り出してそれを実行すれば済む話。じゃないのか?
0902デフォルトの名無しさん
NGNGPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Refresh()
End Sub
じゃだめなの?
0903887
NGNGありがとうございます。配列として使うことは出来ました。
後は打った文字を取り出す処理ができれば・・・
出来てると思ってたらそれも出来てなかった(´・ω・`)
keypressでできると思ってたら甘かった罠・・・
0904デフォルトの名無しさん
NGNG新しいの出ないの?
0905デフォルトの名無しさん
NGNGこれ誰か分かりませんか?SP1用のdotnetfx.exeを自分で
作れたりするといいのですが・・・
0906デフォルトの名無しさん
NGNGがあるやつってVB.NETで作れるの?誰かわかる人いる?
ぐぐってもでてこない
0907デフォルトの名無しさん
NGNGOwnerDrawで描画制御を乗っ取る
初期のny1はVB.NETで作られてるらしいからガンガレ
0908デフォルトの名無しさん
NGNGマシンがある状態になるまで処理を中断するうまい方法が思い浮かびません。
とりあえず考えたのは、
〜メイン処理
While 1
System.Windows.Forms.Application.DoEvents()
If Timer2.Enabled = False Then
Exit While
End If
End While
〜タイマー
Private Sub Timer2_Tick(…)
If (マシン = ある状態) Then
Timer2.Enabled = False
End If
End Sub
として、Timer2で設定した時間ごとにマシンの状態を聞き、
所望の状態になったらTimer2を無効化する、というものです。
が、これだとWhileループで無駄な負荷が生じてしまい、困っています。
何か良い方法はありませんでしょうか?
0909デフォルトの名無しさん
NGNG0910908
NGNG0911デフォルトの名無しさん
NGNG09121 ◆ExGQrDul2E
NGNG私の興味はASPの組み込みオブジェクトに興味があったのですがそれでも参加することにしました。
COM+2.0の仕様書を見て私は驚愕しました。
すべての言語の境界がなくなり、さらに便利で強力なクラスが膨大に盛り込まれていたのです。
それは後に.NETと名づけられました。
強力なWEBアプリを構築できる.NETを知ってからはもはやASPに戻ることはありませんでした。
0913デフォルトの名無しさん
NGNGコントロールパネル内のどっかのローカルエリア接続の状態
でパケット数が出てるからな。取れるだろ。
送信したバイトって自分で数えりゃ出るじゃん。
カウント関数はないのか?VB
0914デフォルトの名無しさん
NGNGおー、そりゃよかった。乙。
0915デフォルトの名無しさん
NGNGで?
0916デフォルトの名無しさん
NGNGどうやったらいいんですかねー
0917デフォルトの名無しさん
NGNGttp://www.google.com/search?hl=ja&lr=lang_ja&oe=utf8&q=%E9%80%81%E5%8F%97%E4%BF%A1%E3%83%90%E3%82%A4%E3%83%88%E6%95%B0+%E3%82%B3%E3%83%BC%E3%83%89
0918デフォルトの名無しさん
NGNG�d
やってみます
0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNGデータグリッドにテーブルの情報を表示させる時、
そのテーブルの或る列に持っている1〜7の文字値については
グリッド上では月〜日に読み替えて表示させたいのです。
列スタイルクラスのFONTプロパティが怪しそうですが、
使い方を調べてもなんだかよく分かりません。
自分ももっと調べてみますが、何かいい方法があれば教えてください
お願いします。
0921デフォルトの名無しさん
NGNG同じ言語仕様にいろんな文法をかぶせただけとも言える。
まぁ、従来の構造化オブジェクト指向言語も少なからずそんな感じだったから
相互運用出来るようになったくらいか。
0923デフォルトの名無しさん
NGNG早いレスthxです。
グリッド上のその列は、ネットで拾った、グリッド上にコンボボックスを乗せるクラス
から生成した列スタイルオブジェクトを使っていて、
教えていただいたプロパティはないんですよ。
そのクラスはコンボボックス得意のDisplayMenberと
ValueMenberが設定できるので、1〜7を月〜日に表示させる
こと自体はできるんですが、でもコンボボックスは要らないってことで(汗
なんとかならないもんかと。
コンボボックスを使用不可設定してもいいんですが、
見た目も変だし、そもそも編集不可の列としたいんで
なんかもっとちゃんとしたやり方があるような気がしてるんです。
もうちっと調べてみます。ありがとうございました。
920の訂正:FONTプロパティ→formatプロパティ
0924デフォルトの名無しさん
NGNGRotateFlipType.Rotate90FlipNoneで90、180、270度の回転はできるのですが・・・。
0925デフォルトの名無しさん
NGNG0926デフォルトの名無しさん
NGNGこれは?
ttp://dobon.net/vb/dotnet/graphics/skewing.html
0928デフォルトの名無しさん
NGNG0929デフォルトの名無しさん
NGNGチェックボックス
Dim box1 As Integer
box1 = CheckBox1.Checked
ボタン
Dim box1 As Integer
If box1 = True Then MsgBox("on") Else MsgBox("off")
こんな感じでやってもダメでした。。
0930デフォルトの名無しさん
NGNG.NETではBooleanとIntegerは全く別物であるという認識を持ってないからか。
そもそも
If CheckBox1.Checked Then ...
で済むし。
Ifの条件式はBoolean型ならOKなんだから。
0931デフォルトの名無しさん
NGNGありがとうございます!
実は数日前届いたばかりで・・・。
意味不明な質問すいません。。
0932デフォルトの名無しさん
NGNGいや、意味は分かるよ。>930が人としてなっちゃいないだけ。
気にするな。
0933デフォルトの名無しさん
NGNG0934デフォルトの名無しさん
NGNG0935デフォルトの名無しさん
NGNGまったく別物と言い切るのもどうよ。"-1"や"0"で相互に扱えるし。
0936デフォルトの名無しさん
NGNG0937デフォルトの名無しさん
NGNG0938デフォルトの名無しさん
NGNG0939デフォルトの名無しさん
NGNG0940デフォルトの名無しさん
NGNG0941デフォルトの名無しさん
NGNGDialogResult列挙体をどうやってBooleanで受けるんだ?
俺の知らない隠し値でも定義されてるのか。
0942デフォルトの名無しさん
NGNG空気嫁
DialogResultをBooleanで受けて変になったことがあったな。
0943デフォルトの名無しさん
NGNGresult = box.ShowDialog()
System.Windows.Forms.MessageBox.Show(result) '問答無用でTrue。 FalseになるのはDialogResult.Noneだけ
とにかくOption Strict Onしとけってことだな。
0944デフォルトの名無しさん
NGNG0945デフォの名無しさん
NGNGab→xyのときabc→xyc
はReplace関数を使えばイイんですが
a?b→xyのときacb→xy(?は任意の1字)
a*b→xyのときacpqb→xy(*は任意の文字列)
のような変換をしたいのですが、
このような機能を実現する関数は用意されているでしょうか?
0946デフォルトの名無しさん
NGNG0947デフォルトの名無しさん
NGNGというエラーが出たんですが修復可能でしょうか??
0948デフォルトの名無しさん
NGNG漏れも一度出したことがあるんだけど簡単に解決できたので余りよく覚えてない
0949デフォルトの名無しさん
NGNG訂正
メモ帳でForm1.resxって空ファイル作って
Form1.vbと同じフォルダに突っ込む
0950デフォルトの名無しさん
NGNGでもありがとうございます!!!(TT)
0951デフォルトの名無しさん
NGNG0952デフォルトの名無しさん
NGNGVB.NET
0953デフォルトの名無しさん
NGNGえっプログラムでつくるのか?
BMPともフォーマット違うみたいだし。
BMP+@だろけどね。だれかフォーマットの規格どこにあるか
おしえてくれ。
0954デフォルトの名無しさん
NGNGICOとBMPのファイルをStreamで開いて解析する。どうせ2,3バイトの
ヘッダーが付いてるぐらいだから、BMPにそのヘッダーをつければいい。
0955デフォルトの名無しさん
NGNGやってみました、なんだ簡単なんだね。
0956デフォルトの名無しさん
NGNGVB.NET単体にはなかったのかorz
0957最凶VB厨房
NGNG2002。
VB.NET2003単体にはなかったのかorz
0958デフォルトの名無しさん
NGNG[Text2](数値)文字分マイナス転置(アスキーコードで)する
プログラムを作っています。
例:cde⇒abc 2文字動かす
下のプログラムだと最初の1文字しか表示されません。
入力した数だけ表示させるにはどうすればいいでしょうか?
お願いします。
Private Sub Command1_Click()
i = Len(Text1.Text)
Text3.Text = Chr(Asc(Mid(Text1.Text, i, 1)) - Val(Text2.Text))
End Sub
0959デフォルトの名無しさん
NGNGIf num = 0 Then
num = 1
Else
num = 0
End If
MsgBox(num)
これでボタン押すたびに1になったり0になったりするはずなのに!!!
ならないのは何故ですか('A`)
0960デフォルトの名無しさん
NGNG0961デフォルトの名無しさん
NGNG0962デフォルトの名無しさん
NGNGDim num As Integer
If num = 0 Then
num = 1
Else
num = 0
End If
MsgBox(num)
無理でした、MsgBoxに1しか出ません!
0963デフォルトの名無しさん
NGNG(1)テキストファイルの指定行の値を変更するのに、
ファイルの全部を読み出して配列に格納。
変更したい行に相当する配列を変更
配列を for で、vbcrlfを & して結合
ファイルを元のファイルに書き出し
という手順でやっています。
でも何かもっといいやり方がありそうな気がして成りません。
もっといい方法はないのでしょうか。
(2)コンマで区切られた文字列を配列に格納するやりかたで、
str_ary(3)="1,2,3"
みたいにしたら
str_ary(0)←1 str_ary(1)←2 str_ary(2)←3
とコンマで区切られた文字列が自動的に配列に格納されるやり方を
どこかで見たような気がするのですが、見あたらなくなりました。
(もちろん上のやり方ではうまくいきません)
そのような方法がありましたらどうぞご教示願います。
0964デフォルトの名無しさん
NGNG0965デフォルトの名無しさん
NGNG0966デフォルトの名無しさん
NGNGprivate 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)
0967デフォルトの名無しさん
NGNG0968デフォルトの名無しさん
NGNG0969デフォルトの名無しさん
NGNGていうか取りあえず試そうよ。
0970デフォルトの名無しさん
NGNG一文字しか処理してないから。
.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
0971デフォルトの名無しさん
NGNG0972967
NGNGEndifが無かっただけでした・・・。
0973デフォルトの名無しさん
NGNGiiff
0974デフォルトの名無しさん
NGNGエレガントだ。(w
0975デフォルトの名無しさん
NGNG0977デフォルトの名無しさん
NGNGPC98で動かしてたベーシックのプログラムは
VBで動かすことは可能なのでしょうか?
0978デフォルトの名無しさん
NGNGN88Basicね。
部分的に流用するぐらいならなんとか可能だけど
そのまんまは無理だよ。
0979デフォルトの名無しさん
NGNGレスありがとうございます
そうなのですか
父がN88Basicで作ったプログラムをPC98を使用していて、古くていよいよ壊れそうなので
移植できるならVBでも買ってあげようかなと思いまして
0980デフォルトの名無しさん
NGNGPC98エミュレータとかなかったっけ?
0981デフォルトの名無しさん
NGNG0982デフォルトの名無しさん
NGNGVB.netでDataGridにデータを表示するのに、DataSetを作成して、
そいつをSetDataBindingでDataGridに表示しています。
そのGridについて、列幅や列ヘッダ名称をDataGridTextBoxColumn、
GridColumnStylesを利用して設定し、TableStyles.Addとしているの
ですが、表示が変わらずにDataSetの項目名が列ヘッダーに表示
されたままです。
変更するにはどうすればよいのでしょうか
0983デフォルトの名無しさん
NGNGある。普通にググれば見つかるはず。
0984デフォルトの名無しさん
NGNGHeaderTextは設定しているの?
0985デフォルトの名無しさん
NGNG0986デフォルトの名無しさん
NGNGファイルコピーすれば?
0987デフォルトの名無しさん
NGNGSystem.IOクラスでファイル操作は色々できる。
0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNG下記のように設定しています。
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)
0990デフォルトの名無しさん
NGNGこれでヘッダに「First Name」って出ないの?
0991デフォルトの名無しさん
NGNGよさそうだけどな。DataGridの概要のページのサンプルがあるから
比較してみたら?
0992デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNGhttp://pc5.2ch.net/test/read.cgi/tech/1102512868/
次スレ
0996デフォルトの名無しさん
NGNGDataSetをBindした後、下記のようにDataGridTableStyleと
マッピングさせたらうまく行きました。
Dim dt As DataTable = dsPrjList.Tables(0)
Dim DGTS As New DataGridTableStyle
DGTS.MappingName = dt.TableName
0997デフォルトの名無しさん
NGNG原因不明で、やっぱこういうときってやり直すべきなのだろうか
0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG10011001
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。