korin_ の回答履歴

はじめまして。 VB2005にてデータグリッドについて質問です。 データグリッドの初期化がうまくいかなく困っています。 ネットでもいろいろ探しましたが解決策が見つからない為、投稿しました。 下記にソースの一部を記述します。 Dim User_Clone As New ADODB.Recordset Private Sub AAA_Load() User_Clone = XXXX '-- XXXXにはデータベース接続情報が入っている。 DataGrid1.DataSource = User_Clone '-- ↑XXXXの内容が正しくDataGrid1に表示される。 End Sub Private Sub BBB_Click DataGrid1.DataSource = Nothing DataGrid1.Refresh() '-- ↑DataGrid1にはXXXXの内容が表示されたままとなっている。 End Sub なんとか対応をと思い、下記方法で試しましたが いまいち納得いきません。 Private Sub BBB_Click User_Clone = New ADODB.Recordset DataGrid1.DataSource = User_Clone '-- ↑DataGrid1には何も表示されませんが '-- Refresh等で初期化できれば・・・。 End Sub 長文ですみませんが、どなたかご教授願います。

こんにちは、初めて投稿させていただきます。 現在VB2005を勉強しています。 ボタンを押すとtextboxに文字が入力されるというものを作成しているのですがひらがなを漢字に変換した際、次の文字を打とうとすると２文字目を入力した際に変換した文字が消えてしまいます。 このような具合です。 「きょうは」と打ち、変換して「今日は」にした後「はれ」と打とうとすると「れ」を入力した際に「今日は」が消えて「はれ」だけになってしまいます。 何処がいけないのかまったくわからない状況で困っています。 ボタンの設定は下記のようにkeybd_eventでそれぞれ行っています。 Private Sub ExButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExButton1.Click TextBox4.Focus() 'Aを押す TextBox4.Text = "" TextBox4.Focus() Call keybd_event(VK_A, 0, 0, 0) Call keybd_event(VK_A, 0, KEYEVENTF_KEYUP, 0) End Sub

こんにちは、初めて投稿させていただきます。 現在VB2005を勉強しています。 ボタンを押すとtextboxに文字が入力されるというものを作成しているのですがひらがなを漢字に変換した際、次の文字を打とうとすると２文字目を入力した際に変換した文字が消えてしまいます。 このような具合です。 「きょうは」と打ち、変換して「今日は」にした後「はれ」と打とうとすると「れ」を入力した際に「今日は」が消えて「はれ」だけになってしまいます。 何処がいけないのかまったくわからない状況で困っています。 ボタンの設定は下記のようにkeybd_eventでそれぞれ行っています。 Private Sub ExButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExButton1.Click TextBox4.Focus() 'Aを押す TextBox4.Text = "" TextBox4.Focus() Call keybd_event(VK_A, 0, 0, 0) Call keybd_event(VK_A, 0, KEYEVENTF_KEYUP, 0) End Sub

VB6の以下のプログラムで下記URLのテレビ番組表を保存しようとしたのですが、うまくできませんでした。ソースを開いてみるとEUC-JPとなっていまして、これが原因かと思うのですが、保存するにはどうしたら良いでしょうか？　よろしくお願いします。 ■URL http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05 ■プログラム Private Sub Command1_Click() Dim strURL As String ' 取得URL Dim strFileName As String ' ファイル名 ' URLとファイル名を代入する strURL = Text1.Text strFileName = Text2.Text ' 指定されたURLのドキュメントをファイルに出力する Open strFileName For Output As #1 Print #1, Inet1.OpenURL(strURL) Close #1 MsgBox strURL & "を" & strFileName & "に出力しました" End Sub

現在ＶＢを勉強しております。（WindowsXP、VB6.0） http://oshiete1.goo.ne.jp/qa996239.html ↑の質問と同じ内容で悩んでいるんですが、回答を見ても理解出来ず、解決出来ていません(>_<) １．処理起動時に、テキストファイルからデータを読み込み、グリッドへ表示した後。 ２．ソートした後。 ３．「検索」処理にてデータを絞り込んで表示した後。 以上３点の時に、行選択状態でなくなってしまうので、それを修正したいんですが、方法が分かりません(;_:) 現在は、グリッドのフォーカスイベントに MSFlexGrid1.SelectionMode = flexSelectionByRow を設定しているだけです。 以上、よろしくお願いいたしますm(__)m

下記は配布する予定で作成したプログラムの一部（ソート部）です。EXCEL2007で作成して機能しているのですが残念ながらEXCEL2003ではエラーとなります。（方法2）そこでもうひとつ（方法1）に変えてみましたがどちらもEXCEL2003ではエラーになります。 内容は1行目の見出し部分を並び替えさせるというものです。（優先順に左から右）抜粋コードの前段階では各見出しの先頭にアルファベットと数字を付加し、その後その付加を基準にソート対象列を抜粋コードにより並び替え、その後は付加コードを切り取るという流れです。 残念なことにEXCEL2003が無いものですから、2007と2003のソートの記述の違いが解りません。何卒ご教示願えませんでしょうか？ ちなみに変数　見出し列数　は列のカウント数です。（ソート対象外の列）そして変数の指定の誤りというおちはありません。 方法1（2回めに2003用でもいけるかなと思って作成分） SH2.Sort.SortFields.Clear SH2.Sort.Orientation = xlLeftToRight SH2.Range(Cells(1, 見出し列数 + 1), Cells(1, 見出し列数 + 1).End(xlToRight)).Sort _ key1:=SH2.Cells(1, 見出し列数 + 1), Order1:=xlAscending, _ Header:=xlNo 方法2 （最初に深く考えず作成したもの　思いきり2007仕様になってます） With SH2.Sort '見出し優先順位により入れ替え .SortFields.Clear .SortFields.Add key:=SH2.Range(Cells(1, 見出し列数 + 1), Cells(1, 見出し列数 + 1).End(xlToRight)), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange SH2.Range(Cells(1, 見出し列数 + 1), Cells(1, 見出し列数 + 1).End(xlToRight)) .Header = xlNo .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With

VB2008の環境です。 元々VB6を使用していて１週間前からVB.NETを勉強中です。 現在データグリッドビューを用いてデータを入力できるソフトを作成中です。 編集中の行から移動した時に、移動前の行の入力した項目について、上限値を超えていないか？ブランクではないか？他の行と重複した値になっていないか？などの確認を行いたいと思っています。 上記のチェックの内、他の行との重複チェックを行おうとすると、新規行を追加した時に、新規行に値が入っていないためエラーとなってしまいます。 どなたか行単位のデータチェックで参考になりそうなサンプルソースをご存知ないでしょうか。

すみませんVB6を使っているものなんですけど テキストからデータを読み込んで そのデータをEXCELに羅列させたい場合どうしたらいいでしょうか？？ ちなみにMy.Computer.FileSystem.WriteAllText("フルパス","出力データ",True) でやってみたんですけど駄目でした。 どういう構文なんでしょうか？？

Visual Basic 2003 を使っています。 If文で、　If (A = Me.TextBox1.Text) And ・・・ Then・・・ のように、「＝」はできるのですが、「＝でないとき」はどうすればいいのでしょうか？ AはTextbox1と一致・Bはtextbox2と一致しない・cはtextbox3と一致の場合は○○、 AはTextbox1と一致・BはTextbox2と一致・CはTextbox3と一致しない場合は■■・・・のような条件式を作りたいんです。 調べてはみたのですが、見当たらなくて・・・。 分かる方がいらしたら、教えてください！ （もし無理な場合もそう教えていただけると嬉しいです。他の方法を考えるか、諦めます。）

超ド素人です。よろしくお願い致します。m(_ _)m データグリッドに表示しているデータ（金額）を カンマ区切りで表示するにはどうしたらよいですか？ for ～　next　で処理する間に、 どのように記入すればよいのでしょうか？ テーブルのデータ型は数値です。 kingaku　　→　　　kingaku 1234567　　　　　　1,234,567 プログラムは、ASP.NETです。 よろしくお願い致します。

超ド素人です。よろしくお願い致します。m(_ _)m データグリッドに表示しているデータ（金額）を カンマ区切りで表示するにはどうしたらよいですか？ for ～　next　で処理する間に、 どのように記入すればよいのでしょうか？ テーブルのデータ型は数値です。 kingaku　　→　　　kingaku 1234567　　　　　　1,234,567 プログラムは、ASP.NETです。 よろしくお願い致します。

現在Visual Basicのプログラムで起動するブラウザがインターネットエクスプローラーになっているんですが　それをファイアフォックスに変えたいのですが　どこのどの部分をいじくればいいでしょうか

ＶＢ6.0の勉強をしております。 windowsXPです。 標記の件についてなんですが、グリッド内のデータが数値なのか文字なのかで位置が変わってしまうのですが、これを全て左寄せにしたいと思っております。 以下のようなページを見つけたんですが、 http://m--takahashi.com/bbs/pastlog/a3100/A3027.html グリッドにデータを表示した後、ColとRowを動かしながら、全要素（セル）に対して処理しないとやはりダメでしょうか？ よろしくお願いいたします。

ＶＢ6.0の勉強をしております。 windowsXPです。 標記の件についてなんですが、グリッド内のデータが数値なのか文字なのかで位置が変わってしまうのですが、これを全て左寄せにしたいと思っております。 以下のようなページを見つけたんですが、 http://m--takahashi.com/bbs/pastlog/a3100/A3027.html グリッドにデータを表示した後、ColとRowを動かしながら、全要素（セル）に対して処理しないとやはりダメでしょうか？ よろしくお願いいたします。

EXCEL VBAの開発をしております。 標準モジュールから、シート内のコンボボックスやテキストボックスに値を書き込みたいときは、 プログラム上、どのように書けばよいのでしょうか？ シート内のモジュールなら、ダイレクトにオブジェクト名を書けますが。 すみません、初心者なもので・・・。

初めて質問させて頂きます。 最近ＶＢ２００５を始めたばかりの初心者ですので、くだらない質問だったら、スミマセン。 ＶＢ２００５でＤａｔａＧｒｉｄＶｉｅｗを使ってＳＱＬサーバーのテーブル内容を表示させています。 その中で日時を表示させる項目（セル）がありますが、０：００の場合に時刻部分がデータセットへ読み込みされません。 良い対処方法を知っていたら教えて下さい。 よろしくお願いします。

お世話になります。 バージョン：VB.net2005 DB：SQLserver2005 DB名：TESTDB VB.netにおいて、 ボタン１をクリックした時に、 SQLserver2005のTESTDBをバックアップする。 ボタン２をクリックした時に、 バックアップしたTESTDBを復元する。 上記の書き方を知っている方いますか？

お世話になります。 vb6で開発中なのですが、DataGridの行単位での背景色設定について質問させて下さい。 DataGridにはOracleで生成したViewをレコードソースに設定し、それを表示しているのですが、あるカラムの値が指定文字列を含む場合は、その行の背景色を変更して表示したいと考えております。 こういった事は可能でしょうか？ 可能であれば、どのような方法が取れるかご教授願いたいです。 よろしくお願いいたします。

お世話になります。 エクセルのマクロでシート追加時に 追加したシートに名前をつけたいのですが。 Worksheets.Add after:=Worksheets("Sheet1") このあとに追加されたシートに 名前をつけたいのですが。 よろしくお願いいたします。

現在Visual Basicのプログラムで起動するブラウザがインターネットエクスプローラーになっているんですが　それをファイアフォックスに変えたいのですが　どこのどの部分をいじくればいいでしょうか