トップページ⇒tech
988コメント350KB

くだすれVB6.0以前（超初心者向け）

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2006/12/08(金) 19:36:45
このスレッドはVBについて、
他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。
VB使いが優しくコメントを返しますが、
お礼はVBの布教はしなくてよいので、初心者の救済をお願いします。
02672582007/04/19(木) 20:21:18
>>266
あれ、俺がいる･･･？ｗ
02682592007/04/19(木) 20:23:44
>>267
きっとそれはﾄﾞｯﾍﾟﾙだな。
俺のﾄﾞｯﾍﾟﾙはいないみたいだ。安心安心♪
0269デフォルトの名無しさん2007/04/24(火) 09:35:53
Windows共有フォルダのアクセス権限変更ツールってVBでは作れない？
0270デフォルトの名無しさん2007/04/24(火) 10:29:50
できるだろうけど、非常に難しいと思われ

コノあたりかな　つ　SECURITY_ATTRIBUTES
0271デフォルトの名無しさん2007/04/24(火) 10:54:14
㌧。ググってみる。
0272デフォルトの名無しさん2007/04/24(火) 11:10:32
書籍一覧がヒットしますたorz

CreateFileとかCreateDirectoryって、
ファイルやフォルダを作成した上で、
それのセキュリティを同時に設定しようってやつだよね。

それじゃないんだよなぁ。

まぁ要望は「もし出来たら」ってことだから、
「出来ません」って言って終わりにしちゃおっかな。。
単なるオプション機能だしｗ
0273デフォルトの名無しさん2007/04/24(火) 15:06:51
質問があります。

VB6.0なのですが、
Dim picture As Picture
picture = LoadPicture("HOGE.GIF")
とやると画像の読み込みは成功するのですが、
WidthとHeightを見てみると、ピクセル数ではなく何かとんでもない数値が
入っていました。

調べてみると、ここは0.01mm単位でのポイント数になっており、
ScaleX メソッドおよび ScaleY メソッドを使って必要なスケールに変換する
らしいのですが、ちょっと意味が分かりません。

単純にピクセルに変換できる方法などをご存知でしたら教えてもらえないで
しょうか。宜しくお願いします。
02742732007/04/24(火) 15:32:50
自己解決しました。。。

picture_width = ScaleX(picture.Width, 8, 3)
picture_height = ScaleY(picture.Height, 8, 3)

これでピクセル数を算出することができました。
どうもお騒がせしました。
0275デフォルトの名無しさん2007/04/24(火) 19:33:25
>272
NTFSのアクセス権限なら、
SetNamedSecurityInfoのあたりだったとおもう。
もものすごく面倒くさかった記憶しかない。

ファイル共有の権限のほうなら、net shareを叩いて
弄った方が早いと思うけど。
0276デフォルトの名無しさん2007/04/25(水) 11:31:17
>>275
ファイル共有の方でござる('A`)
0277デフォルトの名無しさん2007/04/30(月) 03:41:54
VB6のリソースファイルの
ＭＩＤＩファイルを再生することは
できるのでしょうか？

リソースにＭＩＤＩファイルを埋め込むことは
できたのですが、そこからがわかりません。
できれば他のＯＣＸやＤｉｒｅｃｔＸはつかわないで
ＡＰＩなどだけでおこないたいです。
0278デフォルトの名無しさん2007/04/30(月) 18:44:44
コードを区切りたいときはどうしたらよいですか？
ほんと初心者ですみません
0279デフォルトの名無しさん2007/04/30(月) 18:53:41
>>277
やったことないけど、
リソースからバイナリデータとして受け取って、一時ファイルに書き出してから再生させてみては？

>>278
もっと説明ちょーだい
0280２７８2007/04/30(月) 20:41:06
>>279
長い分をかくときに二行にわけたいだけです
改行です
0281デフォルトの名無しさん2007/04/30(月) 20:59:37
>>280
それなら
a = _
  1 _
  + _
  2
みたいな
名称忘れた
0282２７８2007/04/30(月) 22:31:42
>>281
ありがとうございます
0283デフォルトの名無しさん2007/05/02(水) 17:02:04
アホみたいな質問で悪いが、VB6のコードエディタでタブ文字は使えないのか？
半角スペースにされるとちと困るので。
0284デフォルトの名無しさん2007/05/02(水) 17:52:15
何故困る？
0285デフォルトの名無しさん2007/05/02(水) 18:22:06
メニューバーの[ツール]→[オプション]
ここで設定出来ないなら諦めた方が早くね？

別にタブ文字をオンコードしなきゃいけないってことはないだろーに。
タブ文字の出力はvbTabで出来るからな。

塚、あれか。
VBｴﾃﾞｨﾀって確かUnicodeだよな。
Unicodeでタブ文字表示しようとすると中黒になるんじゃなかったか？
0286デフォルトの名無しさん2007/05/02(水) 18:41:25
やっぱ無理か
同じ部署のやつがタブｺﾋﾟﾍﾟしたらスペースになるってうるさいだけだから放置しとくよ。
thx
0287デフォルトの名無しさん2007/05/03(木) 15:39:58
VB5.0とVB6.0の違いって何なんですか？
0288デフォルトの名無しさん2007/05/03(木) 19:22:22
バージョン
0289デフォルトの名無しさん2007/05/03(木) 19:23:19
つまり文法的な違いは無いということですか？
0290デフォルトの名無しさん2007/05/03(木) 19:49:36
6.0で新規の組み込み関数とかあるけど、
文法で躓くことはないと思う。
0291デフォルトの名無しさん2007/05/04(金) 21:16:57
VB5を使っている日曜プログラマーです

今ファイルの移動・削除をするプログラムを書いています。
通常のファイル移動はNameステートメントを使い、削除はSHFileOperationでゴミ箱に捨ててます。

移動の際はログファイルを吐いてUndo可能にしているのですがゴミ箱に捨てたファイルの
Undoのやり方が分かりません。
どのようにコーディングしたら良いのでしょうか？
0292デフォルトの名無しさん2007/05/04(金) 22:48:18
>>291
アプリでWindowsのUndo機能をそのまま実装するのは難しいと思います。

ファイルの移動でundo機能のためにログを吐いてるのと同じように、
そのアプリ用にtempフォルダを作成し、ごみ箱に捨てるタイミングで
tempにファイルを移動、その情報をログに保存しておけば、ファイルの
復元を疑似的には実装出来ると思います。
0293デフォルトの名無しさん2007/05/04(金) 23:40:35
>291
ちょっと調べてみましたが、意外に難しいというか、MSからの情報がないというか。
ttp://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
ttp://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
あたりを参考にしてみてはいかがでしょうか。
02942912007/05/05(土) 00:09:35
>>292-293さん レスありがとうございます

>ttp://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
>ttp://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
参考になりました、なりましたけどう～んと唸ってしまいます

ゴミ箱を直接いじれるので仕方ない仕様なのかも
02952932007/05/05(土) 00:47:58
>294
Win32APIスレの連中ならもう少し真っ当な回答をしてくれるかも。
0296デフォルトの名無しさん2007/05/05(土) 02:00:37
shell.applicationの
folder.movehere folderitem
で駄目？
0297デフォルトの名無しさん2007/05/05(土) 08:03:44
>>296
ありがとうございます。実験はまだですがNameステートメントと違い自前のエラートラップを
減らせそうですね。ゴミ箱からのUndoに役に立つのかどうかはよく読み取れませんでした。
0298デフォルトの名無しさん2007/05/05(土) 14:18:43
VB6なのですが、キーボードショートカットのカスタマイズはできますか？
やり直しをメニューでやってるのですが、Ctrl+YかCtrl+Shift+Zでやりたいなぁと
思ったのですが、ヘルプや設定を見てもそれっぽいのが無かったので。
0299デフォルトの名無しさん2007/05/05(土) 15:02:51
>>291
set folderitem=ゴミファイル
folderitem.invokeverb "元に戻す(&E)"
または>>296
set folder=戻し先
set folderitem=ゴミファイル
folder.movehere folderitem
0300デフォルトの名無しさん2007/05/05(土) 20:10:40
「ゴミファイル」の特定が難しいのれす
ファイルさえ特定できればその通りなんでしょうけど
http://mtamaki.cocolog-nifty.com/blog/2005/01/post_f992.html
の方法を使う場合XPと2K限定っぽいし、Vista持ってないから
分かりませぬが・・・

http://rararahp.cool.ne.jp/cgi-bin/lng/vc/vclng.cgi?print+200310/03100013.txt
こちらはExplorer同様直前の動作のUndoなわけで
0301デフォルトの名無しさん2007/05/05(土) 20:17:42
名前と元の場所で絞って、削除した日の新しいもの
0302デフォルトの名無しさん2007/05/05(土) 20:50:00
ごめんなさい、どうもアドバイスが高度すぎてついていけませぬ
このFileはCloseさせて頂きます
0303デフォルトの名無しさん2007/05/06(日) 22:14:31
folder.getdetailsof(folderitem,数字)で情報が取れる。
あと、日曜プログラマーならwsh/vbscriptがお勧め。
0304デフォルトの名無しさん2007/05/08(火) 11:37:48
適当なスレがなかったのでここで。

新しいPCを購入。OSはXPです。
そこでVisual Studio 6.0 をインストールしようとすると、
「Microsoft Virtual Machine for Javaのインストールを行う画面」
にて再起動を促され、指示に従うと再起動後、また同じ画面になりインストールが進みません。
またこれをインストールしないと次ボタンが有効にならないため、インストールが進みません。

調べたところ、Microsoft Virtual Machine for Javaの提供終了と関係がありそうでしたが、結局インストール方法がみつかりませんでした。
どうすればよろしいでしょうか？
0305デフォルトの名無しさん2007/05/08(火) 12:12:03
>>304
インスコ中断して、事前にjavaVMを入れればそこで聞かれなくなるハズ。
0306デフォルトの名無しさん2007/05/08(火) 13:35:03
>>305
なるほど。そういえば今までのマシンでは聞かれたことがありませんでした。
最近のＰＣだとサポート終了確定のJavaVMはプレではいってないのはわかるが、
じゃあJavaVMいれてインスコしたあとJavaVMをアンインスコでやってみるよ。
0307デフォルトの名無しさん2007/05/09(水) 17:30:58
質問があります。
VB6.0なのですが、CommandButton の Caption を
「決定(&E)」
とすると、"決定"の横に、アンダーバーのある (E) が出ます。

これ、(A)とか(B)とか1文字のはいいんですが、
(DEL) (INS) (ESC) のように、
DELキーやINSキーやESCキーを同じように出すことは可能でしょうか？
0308デフォルトの名無しさん2007/05/09(水) 19:13:01
(&D&E&L)
できるか知らん
0309デフォルトの名無しさん2007/05/09(水) 19:40:15
>>307
DELとかINSとかにアンダーバーを付与させることは不可能だが、
メニューのショートカットキー機能を使えば、
押下されたキーでそのボタンに対応した動作を行うことは多分可能。
0310デフォルトの名無しさん2007/05/09(水) 19:43:20
メニューの親ボタン(っての？)を非表示にしちゃうと不可能だな
0311デフォルトの名無しさん2007/05/09(水) 20:00:12
>>307
漏れが読解力無くてすまないが・・・

altキーとDELキーやINSキーやESCキーを組み合わせた
ショートカットキーを作成したいという意味だったりする？？
0312デフォルトの名無しさん2007/05/10(木) 09:36:45
>>311
Alt使ったらホットキーって言わね？
03133072007/05/10(木) 09:52:05
遅レス、すいません。

>>308
(&D&E&L)は駄目でした…

>>309
キーの判定は、Form.KeyPreviewをtrueにした上で、FormのKeyDownイベントを
拾うことで実現できました。

>>311
いえ、組み合わせは考えていません。
DELキーのみや、ESCキーのみなどのように1つだけです。

色々試してみたのですが、無理っぽいですね。
重要でもないですし、諦めようと思います。（各ボタンのToolTipTextに記載する方法にしました）
皆さん回答ありがとうございます。
0314デフォルトの名無しさん2007/05/10(木) 16:08:03
>>311
ESCキーとか標準の窓操作に使われてるからそんなのに使用しないほうがいい。

例；メニューを開いた状態でESCキーではメニューが閉じる
0315デフォルトの名無しさん2007/05/10(木) 16:28:14
>>314
311が使用したいと思っているのわけではないだろう。
03163142007/05/10(木) 16:49:36
>>315 本当だ。レス番号を間違えたよ >>307だった
0317デフォルトの名無しさん2007/05/10(木) 20:27:34
VB6.0というのを使ってみたいのですが、VisualStadioの中に入ってるものなのでしょうか？
0318デフォルトの名無しさん2007/05/10(木) 22:19:26
>>317
入ってる。　当然バージョンが6.0ならだけどね。

俺も昔はviエディタとにらめっこだったから
Windows系の開発にウトイのはわかるぜよ。
0319デフォルトの名無しさん2007/05/10(木) 22:38:13
VisualStadioてぇのはないだろ
0320デフォルトの名無しさん2007/05/10(木) 22:44:35
はいはい。Studio、Studio。これでいい？
0321デフォルトの名無しさん2007/05/10(木) 22:57:48
ごめんなさい
スタジオ間違ったなと思いつつ・・・
>>318
ありがとうございます
もう０からの独学の状態でして、助かりました
0322デフォルトの名無しさん2007/05/11(金) 00:52:12
テキストボックス上でEnterキーを押した時に鳴る
「ポンッ」て音がいやなんですけど、音が出ないようにする方法はありますか？
0323デフォルトの名無しさん2007/05/11(金) 00:56:01
>>322
あるけど、あんたの期待している答えなら無い。
03243142007/05/11(金) 09:55:52
>>317
VisualStudio6.0はもう販売してないぞ。
VB6.0のみならまだ単体で出ているので大丈夫だ

>>322
スピーカーをビルの屋上から落とす
03253142007/05/11(金) 09:57:31
>>322
考えたけど、マルチラインにしてキー入力ごとのイベントをつかみ、
毎回改行をカットする。
0326デフォルトの名無しさん2007/05/12(土) 07:30:57
普通に改行カットするだけでいいんだけど
keydownの
if keycode = &hd or keycode = &ha then
keycode = 0
end if
0327デフォルトの名無しさん2007/05/12(土) 16:13:50
(x,y)のプロットで、
(1,1)
(2,4)
(3,2)
(4,8)
の４点を通る３次曲線y=ax^3+bx^2+cx+dの、
定数、a,b,c,dを求めるプログラムを作りたいのですが…。

今までエクセルのソルバーで計算させていたのですが、
VB6.0でこの４点のプロットからa,b,c,dを出すプログラムは、
どうすればいいんでしょうか？

VBでの連立方程式やら二次方程式やらをググってもみたのですが、
さっぱりでして…。

御助言お願いします。
0328デフォルトの名無しさん2007/05/12(土) 16:52:11
４変数4本の連立一次方程式でそ。
アルゴリズム辞典とかで行列の掃き出し法を
ひけばおわる
0329デフォルトの名無しさん2007/05/13(日) 17:38:55
http://www.imgup.org/iup380485.png
”商品代金”と”支払い金額”を入力し
もし支払い金額textboxが商品代金textbox未満なら釣銭textboxに不足と表示
もし支払い金額textboxが商品代金textboxを超えている場合は釣銭textboxに釣銭の金額を表示し
更に釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示せよ

という課題があるのですが
釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示ってどうやるんでしょうか？
0330デフォルトの名無しさん2007/05/13(日) 17:57:18
http://www.imgup.org/iup380496.png
簡略した流れ図にすると、こんな感じでしょうか・・・
0331デフォルトの名無しさん2007/05/13(日) 18:41:52
>>330
自販機のアルゴリズムっぽいけど
千円札がない場合は、購入する前に
札がないランプが点いてるだろうから購入すらできない
＝「千円札があるかないか」の分岐は意味ない様な希ガス
全部硬貨で出すのならまた別だろうけど。。。
0332デフォルトの名無しさん2007/05/13(日) 18:43:54
>>329
> 釣銭金額の各紙幣ないし硬貨の個数を各々の項目の隣に別のラベルとして表示ってどうやるんでしょうか？ 
「一万円札」
「五千円札」
…
って描かれている場所の水平方向右に適当な余白を置いて、Labelコントロールを配置する
で、紙幣の枚数または硬貨の個数をそのラベルのCaptionとして設定すればいいのではないかと思われ
0333デフォルトの名無しさん2007/05/13(日) 18:48:39
全部一円玉で返せばいいじゃん（ｗ
0334デフォルトの名無しさん2007/05/13(日) 18:51:10
与えられた金額に対応する、紙幣・硬貨の最適な組み合わせを表示するプログラム
Option Explicit

Private Sub Form_Load()
    Const a = (10000# + 8500# + 9230# + 100# + 500#) * 1.05
    Dim v   As Variant
    Debug.Print Int(a); "="
    For Each v In getMoneys(Int(a))
        Debug.Print v(0) & "×" & v(1)
    Next
End Sub

Private Function getMoneys(ByVal in_Money As Double) As Collection
    Dim v   As Variant
    Set getMoneys = New Collection
    For Each v In Array(10000, 5000, 2000, 1000, 500, 100, 50, 10, 5, 1)
        Call getMoneys.Add(Array(v, in_Money \ v))
        in_Money = in_Money Mod v
    Next
End Function
0335デフォルトの名無しさん2007/05/13(日) 21:13:38
万札のつり銭ってどういう状況なんだろうな。
デノミ後の日本を想定してるんだろうかw
おまけに>>329のフォームはどう見てもドトネトのだし

だいいち、宿題は自分でやらなアカンやろ。
できないなら素直に単位落とせよ。
0336デフォルトの名無しさん2007/05/14(月) 09:52:02
>>335
しょせん大学生だといってもこんなもんだな
スレタイすら読めないというｗｗｗｗ
0337デフォルトの名無しさん2007/05/14(月) 10:08:46
万札の釣り銭は、払いすぎた時に生じるんでないかい？
流れを全く読まずにレスするが。
0338デフォルトの名無しさん2007/05/14(月) 10:25:22
>>337
商品にもよるけどお札は一枚しか受け付けない仕様でよくないかい？

多分一万入れてキャンセルした時の仕様だろうなぁ････
とマジレス
0339デフォルトの名無しさん2007/05/14(月) 12:22:33
アルゴリズム作るのが楽しめないなら　そういう職種を選ばない方がよさげ
0340デフォルトの名無しさん2007/05/14(月) 21:37:43
>>327と似てる?気がするんですが、
数点のx,y座標より、最小２乗法で３次曲線y=ax^3+bx^2+cx+dの係数a,b,c,dを出したいんですが、

ttp://homepage1.nifty.com/gfk/square_ren.htm
を参考に考えてはみたものの、

＞逆マトリックス( A-1 ) の計算
＞逆マトリックス( A-1 ) ×　ベクトル( b ) の計算

というのが、vbでどう考える（置き換える？）べきなのか、わかりません。
何かいい方法ありますでしょうか？
0341デフォルトの名無しさん2007/05/14(月) 21:57:24
・行列クラスを作る
・ベクトルクラスを作る（こっちは構造体でもいいかもしれない）
・行列クラスに自分の逆行列を求めるメソッドやベクトルとの積を求めるメソッドを書く。
0342デフォルトの名無しさん2007/05/15(火) 15:54:24
二つの文字列を連結するにはどうしたらいいですか？
0343デフォルトの名無しさん2007/05/15(火) 16:00:42
"a" & "b"
じゃなかった？
0344デフォルトの名無しさん2007/05/15(火) 18:02:32
>>342
str = "a" & "b"

もしくは

str = Join( Array( "a", "b" ), vbNullString )
0345デフォルトの名無しさん2007/05/15(火) 18:50:06
すみません、助けてください。
Win2ｋ-sp4にVB6をインストールできなくて困ってます。

CDを入れてすぐ、「Virtual machine for javaの更新」というチェックが表示されて、
次へ進もうとすると「再起動します」ダイアログ→[OK]ボタンで再起動すると、また最初の「Virtual machine・・・・」

の、繰り返しで先へ進めません。
あれこれ検索してみましたが、それらしい同様の症状を見つけることが出来ませんでした。
何か環境が足りないのでしょうか？Windowsはクリーンインストール状態です。
宜しくお願いします。
0346デフォルトの名無しさん2007/05/15(火) 18:51:36
MSDNにJavaのいらないVBがあった希ガス
0347デフォルトの名無しさん2007/05/15(火) 18:55:38
>>343,344
ありがとうございます。VBに慣れてないと思いつきづらい様な感じですね。
0348デフォルトの名無しさん2007/05/15(火) 19:30:39
>>345
他スレでも見た気がするが…マルチか？

VMｲﾝｽｺ→VBｲﾝｽｺ→VMｱﾝｲﾝｽｺ

こんな流れだったような
03493452007/05/15(火) 19:52:07
ありがとうございます。

>>346
探してみます。

>>348
いえ、初めての質問です。
その流れで試してみます。
「VMｲﾝｽｺ」というのは、"msjavx86.exe"を単体で実行する、という事でよろしいのでしょうか？

実機が今手元に無いもので、確認とれずすみません。。。
0350デフォルトの名無しさん2007/05/17(木) 22:18:55
テキストボックスにdoubleで宣言した値を入れると
2.33333333332673E-04
のようになるのを、
0.000233333のようにEで表記しない方法で貼り付ける方法はないでしょうか？
0351デフォルトの名無しさん2007/05/17(木) 22:20:30
Format
っていうか、VB6の初心者スレなんて意味あんのか？
現時点でVB6学び始めてどうするんだよw
0352デフォルトの名無しさん2007/05/17(木) 22:31:21
業務でしゃぁなしもいるんだよｗｗｗｗ
0353デフォルトの名無しさん2007/05/17(木) 23:04:58
MSChart使ってy=x^2+xの二次関数のグラフ書きたいんだが、
xは1～50の領域で表示したいなら、

ChartType=VtChChartType2dLine

for x=1 to 50
y=x^2+x
next

何かけばええの？ｗ
サンプル見ても棒グラフばっかで、チンプンカンプン
0354デフォルトの名無しさん2007/05/17(木) 23:13:49
>>352
VB厨は質問者がVBしか経験がないという前提で
書き込むよな。 >351とか正にそうだ。
0355デフォルトの名無しさん2007/05/17(木) 23:15:57
>>354
不思議な思考をする奴だな。
こういう非論理的な人間はプログラマ向かないよ。
0356デフォルトの名無しさん2007/05/17(木) 23:22:33
>>355
専用ブラのオマイw

キンタマに(ry
0357デフォルトの名無しさん2007/05/17(木) 23:26:51
>>355
まぁちょっと叩かれたからって
そう気張るなよ？な？肩の力抜いていこうぜ？
言語なんてしょせん方言だ
0358デフォルトの名無しさん2007/05/17(木) 23:36:16
　　　　 ＿＿＿＿_
　　 ／::::::::::::::::::::::::::＼～ﾌﾟｰﾝ
　 /:::::::::::::::::::::::::::::::::::::::＼～ﾌﾟｰﾝ
　 |:::::::::::::;;;;;;|＿|＿|＿|＿|～ﾌﾟｰﾝ
　 |;;;;;;;;;;ノ∪ 　＼,) ,,／ ヽ～
　 |::（ 6∪ ー─◎─◎　）～　　　　　　 >>355
　 |ノ　　（∵∴　（ o o）∴）～　　　　　　
　 |　∪<　∵∵　　 ３　∵>　ﾑｯｷｰ!　　　　
　　＼　　　　　　　 ⌒　ノ＿＿＿＿＿
　　　　＼＿＿＿＿_／　|　　|￣￣＼　＼
＿＿_／　　　　　　＼ 　 |　　|　　　　|￣￣|
|:::::::/　　＼＿＿＿　| ＼|　　|　　　　|＿＿|
|:::::::|　＼＿＿＿＿|つ⊂|＿_|＿＿／　／
|:::::/　　　　　　　　|￣￣￣￣|　　〔￣￣〕
0359デフォルトの名無しさん2007/05/19(土) 21:28:03
>>353なんですが、
もしかしてVBでこういう曲線のグラフって、pictureに描画するのが一般的なんですか？
MSchartをイジってたんだけど、中々エクセルでいうところの散布図みたいなのが出来ない。。。
0360デフォルトの名無しさん2007/05/19(土) 23:15:20
どこの一般を聞かれてるのかわからんが
日曜プログラマの俺は金が無いので自力で全部書いてる
もしかしたらExcelのコンポーネントで出来るかもしれないけど、取り扱いに気を使いそうだから全くしらない
0361デフォルトの名無しさん2007/05/20(日) 02:09:17
俺はExcelでできるかどうか調べる前に
自前(PictureBox)で実現しようとするかな・・・
0362デフォルトの名無しさん2007/05/20(日) 04:58:57
むしろエクセルに依存したりサードパーティにあんま頼りたくないので自前で
0363デフォルトの名無しさん2007/05/20(日) 21:27:46
Excelじゃ無くてMSChartで実現したいって言ってるから、

Dim x As Single, y As Single

With MSChart1
　　.chartType = VtChChartType2dLine
　　.ColumnCount = 1
　　.RowCount = 50
　　For x = 1 To 50
　　　　y = x ^ 2 + x
　　　　.Row = x
　　　　.Data = y
　　Next
End With
0364デフォルトの名無しさん2007/05/22(火) 10:27:35
質問させてください。
例えば、以下の内容のCSVファイルがあったとします。
ID,TEL
1,0344445555

これを開くと、
cnDB.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=" & strDir & ""
cnDB.Open
rsDB.Source = "SELECT * FROM テーブル"
rsDB.Open , cnDB, adOpenStatic, adLockPessimistic

結果が、TEL=344445555となり、０が消えてしまいます。
2番目のフィールドを文字列として認識してテーブルを開く方法は無いでしょうか？
0365デフォルトの名無しさん2007/05/22(火) 10:41:11
ＣＳＶにアクセスする方法がなんでもいいなら別の方法をすすめるが
その方法じゃないとダメならＳＱＬを変えてみてはどうでしょうか～

rsDB.Source = "SELECT ID, STR(TEL) FROM テーブル"
0366デフォルトの名無しさん2007/05/22(火) 11:01:46
>>365
ありがとうございます。
やってみましたが、0がスペースに変わっただけで、やはり思い通りには
行きませんでした。
今後、フィールドの位置の変更や、追加削除がある可能性があるので
出来れば、この方法が便利なんですけど、、、
上手くいかないので、他の方法にした方が良さそうですね、、、
■ このスレッドは過去ログ倉庫に格納されています