BellBell の回答履歴

広告収入がある 個人的な文章コンテンツサイトの 運営を委託・代行したいのですが、 出版や不動産のように、 利益の数％を受け取るような サービスはありますか。

VB2010で作成してるんですけど。 ラジオボタンをフォームに入れてデバッグすると、ラジオボタンがチェックされて表示されてしまいます。。 Form_Loadでラジオボタンのチェックを外すコードは書いたんですけど・・。 RadioButton1.Checked = False という風に。 でもやはりチェックがついています。。 どうしたらチェックを外した状態で表示できるでしょうか？

VB6.0のマルチセレクトダイアログで250個のファイルを選択したいのですがエラーが出ます。 10個程度の選択ならエラーが出ません。 どこをどう修正したら多数のファイル選択が可能になるのでしょうか？ どなたかわかる方教えてください。 どうぞよろしくお願いいたします。 エラー内容：下記のGetFileNameが空でファイル名を取得できない。 Dim GetFileName As Variant 'ファイル名(フルパス) GetFileName = apiGetOpenFileName(Form1.hWnd, strFilter, strDir) 'ダイアログ表示 使用したコード：下記リンク先のコードにマルチセレクト用のコードを追加しました。 "?http://www.red.oit-net.jp/tatsuya/vb/FileDialog.htm"? 以下、追加したコードです。---------------------------- Public Const OFN_LONGNAMES = &H200000 '旧スタイルのダイアログのとき、ロングファイル名を使用可能にする Public Const OFN_EXPLORER = &H80000 'エクスプローラ型ダイアログとして表示 '構造体の設定 With OFN .Flags = OFN_PATHMUSTEXIST Or _ OFN_FILEMUSTEXIST Or _ OFN_HIDEREADONLY Or _ OFN_ALLOWMULTISELECT Or OFN_EXPLORER 'マルチセレクト追加

一昨日（日曜日の23時頃）コンドーム破けにより避妊に失敗をしました。 彼女の知人が予備のモーニングアフターピルを持っているということで、 月曜日の21時頃にピルを貰い服用をしました。 彼女の知人がそれらの点に詳しい事もあり、 彼女自身は信頼をしているのですが、サイト等で情報を集めた所、 「72時間以内に服用をし、その12時間後にもう一度服用」 との記載が多いのですが、彼女の知人曰く「このピルは一回の服用で大丈夫」 との事で1回しか服用をしておりません。お伺いをしたいのですが、 ・1回の服用で大丈夫なモーニングアフターピルは存在するのでしょうか？ ・あるとすると、そのピルの種類等を教えて頂けないでしょうか？ 引っ張ってでも病院に連れて行くべきと考えがあるのですが、彼女が その知人を信頼しており、病院に行っても定型のピルが処方されるだけ ならそれで良いとも思っております。

ＶＢでラベルの文字色を透明から黒に徐々にしたいと思ってるんですけど。 For文で作ってみたものの・・・ エラーがでて困っています。 作ってみたFor文を以下に書きます。 For i = 255 To 0 Step -2 Label1.ForeColor = RGB(i, i, i) Next この文の中の　RGB(i,i,i)　というところがエラーでます。。 どうしたら徐々に色を変化させれるのか教えてください！

生理前に下っ腹が張ること ってあるんですか？ 彼女は妊娠かもと言います。 精神的にもまいっちゃってます。 全ての症状を妊娠につなげたりします。 男の俺には理解できないと思いますが 安心させようという 一言一言がなんで私を わかってくれないのってなるし 逢いに行ったら 近づかないでと言われるし とにかく早く 健康的に過ごしてほしいんです。 どんな言葉で安心できるんでしょうか？ どうかよろしくお願いします。

ＶＢでラベルの文字色を透明から黒に徐々にしたいと思ってるんですけど。 For文で作ってみたものの・・・ エラーがでて困っています。 作ってみたFor文を以下に書きます。 For i = 255 To 0 Step -2 Label1.ForeColor = RGB(i, i, i) Next この文の中の　RGB(i,i,i)　というところがエラーでます。。 どうしたら徐々に色を変化させれるのか教えてください！

ゲームを作っています。 そのときに、背景を透過した画像を作る関数を書いたのですが、どうしてもうまく処理が出来ません。 Function CreateMask(hBmp As HBITMAP) As HBITMAP Dim hDC As HDC Dim hBaseDC As HDC,hBaseBmp As HBITMAP Dim hMaskDC As HDC,hMaskBmp As HBITMAP Dim hTempDC As HDC,hTempBmp As HBITMAP Dim hCompDC As HDC,hCompBmp As HBITMAP Dim bmp As BITMAP Dim dummy[5] As HBITMAP hDC=GetDC(hMainWnd) hBaseDC=CreateCompatibleDC(hDC) hMaskDC=CreateCompatibleDC(hDC) hTempDC=CreateCompatibleDC(hDC) hCompDC=CreateCompatibleDC(hDC) GetObject(hBmp,len(bmp),bmp) hMaskBmp=CreateCompatibleBitmap(hMaskDC,bmp.bmWidth,bmp.bmHeight) hBaseBmp=CreateCompatibleBitmap(hDC,bmp.bmWidth,bmp.bmHeight) hCompBmp=CreateCompatibleBitmap(hDC,bmp.bmWidth,bmp.bmHeight) dummy[0]=SelectObject(hTempDC,hBmp) dummy[1]=SelectObject(hMaskDC,hMaskBmp) dummy[2]=SelectObject(hBaseDC,hBaseBmp) dummy[3]=SelectObject(hCompDC,hCompBmp) SetBkColor(hTempDC,GetPixel(hTempDC,0,0)) BitBlt(hMaskDC,0,0,bmp.bmWidth,bmp.bmHeight,hTempDC,0,0,NOTSRCCOPY) BitBlt(hBaseDC,0,0,bmp.bmWidth,bmp.bmHeight,hTempDC,0,0,SRCCOPY) BitBlt(hBaseDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hMaskDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,NOTSRCCOPY) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hBaseDC,0,0,SRCPAINT) SelectObject(hTempDC,dummy[0]) SelectObject(hMaskDC,dummy[1]) SelectObject(hBaseDC,dummy[2]) SelectObject(hCompDC,dummy[3]) DeleteDC(hTempDC) DeleteDC(hMaskDC) DeleteDC(hBaseDC) DeleteDC(hCompDC) CreateMask=hCompBmp End Function とりあえず、いろいろと実験したところ、 背景を黒くしたもの(hBaseDC)とマスク画像(hMaskDC)はちゃんと出来ています。 おそらく問題なのは、 BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hBaseDC,0,0,SRCPAINT) ここではないかと思っています。 これを処理すると、背景を黒くしたもの(hBaseDC)と同じものが出てきます。 これを透過するにはどうしたらいいのでしょうか？ ご教授お願いします。 Win.XP AB 4.23.00

ホムペ経験、中級者です。 「Yomi-Search」について、お聞きしたいことがございます。 通常、yomi.cgiがメインページとなりますが、yomi.cgiを利用せずに、オリジナ ルページ（例：index.htmlに検索ボックスなどを設置）をメインページにした場 合、他人がyomi.cgiにアクセスした際、自動的に指定先のページ （例：index.html）にジャンプする機能はないのでしょうか？

クラスファイルをnewをしてから関数を呼び出す場合と クラス名::関数名で呼び出す場合だとパフォーマンスやメモリの負担などの違いは在りますでしょうか？ また、独自のpublic function関数のみのファイル(lib.php)をclassで囲ってあるのですが、 実際はincludeして扱うので、classで囲わなくても問題はないと思うのですが、どこのクラスにあるのかという目安として囲っています。 上記のファイル関数を呼び出す場合に 1.newをしてから$クラス変数->関数名(); 2.それともクラス名::関数名(); 3.そもそもclassで囲わないで、関数名();のみ コーディングルールがないのでどれが一般的なのかが分かりません。 教えて下さい。

締まりがいいのと悪いのではどっち？ 私は自分で締めていないのですが、 とても締まりがいいみたいです。 男性経験は普通にあり、出産経験もありますが、 とてもきつく、締まりがいいみたいで、 相手の人は長く持ちません。 締まりが良すぎて持たないし、つまらないと言われたことがあります。 男性にとっては、どちらがいいのでしょうか？

コンドームを着ける前に萎えてしまいます・・・ 彼女とセックスをするとき、前戯のときはギンギンなのに、いざゴムを着けようとするとすぐに萎えてしまい本番ができません・・・ このような事態になる人はよくいると聞いたのですが、なにか良い打開策はないのでしょうか？

osはvistaを使ってます。 photoshop cs3で画像加工していたファイルがどこかへいってしまってみつかりません。 保存はしてあるはずなんですが、ある日加工の続きをしようとpc開けたらいつもの場所にファイルが無かったんです。一通り検索かけてみたんですが見つからず。 最近使った項目をみたらあったんですが、ショートカットエラーが表示されてしまって… 初心者でわけがわからず… もうあきらめるしかないんでしょうか。

自分で考えた、発電システムを作ってみたいのですが、電磁石　ベアリングなどの機器を手に入れるには？どこで売ってるのでしょうか？

締まりがいいのと悪いのではどっち？ 私は自分で締めていないのですが、 とても締まりがいいみたいです。 男性経験は普通にあり、出産経験もありますが、 とてもきつく、締まりがいいみたいで、 相手の人は長く持ちません。 締まりが良すぎて持たないし、つまらないと言われたことがあります。 男性にとっては、どちらがいいのでしょうか？

よく、体の相性って聞きます。 体の相性が合わなかったら、あまり長く続かないとか・・・。 私は、彼との行為は好きです。まだ挿入ではいったことはありませんが、気持ちいいし、前戯ではいきます。 私は満足ですが、彼はどうなのか気になります。 動いているときに、毎回お互い良いか確認し合うのですが、彼は私が聞くとすごく良いよと言ってくれます。私が聞かなくても自分からすごくいいと言うときもあります。彼が自分から言うと、直後にいきます。 でも不安なので、彼にそれとなく自分たちの体の相性はどうなのか聞いてみると、「もっと頑張らなきゃね」と言われてしまいました・・・。 私は彼が初めてで、まだ経験が浅いこともあって正常位でしかできなくて、前に彼がバック?と、私が上になる（名称が分かりません）体位をしようとしたんですが、怖くてできませんでした。 それに、「お前はまだまだお子様だからな」とも言われます。 彼は満足していないのかと不安です・・・。一応、一度も萎えたり、いけなかったことはありません（満足と関係あるのか分かりませんが）。 相性って、改善できるんでしょうか？

ゲームを作っています。 そのときに、背景を透過した画像を作る関数を書いたのですが、どうしてもうまく処理が出来ません。 Function CreateMask(hBmp As HBITMAP) As HBITMAP Dim hDC As HDC Dim hBaseDC As HDC,hBaseBmp As HBITMAP Dim hMaskDC As HDC,hMaskBmp As HBITMAP Dim hTempDC As HDC,hTempBmp As HBITMAP Dim hCompDC As HDC,hCompBmp As HBITMAP Dim bmp As BITMAP Dim dummy[5] As HBITMAP hDC=GetDC(hMainWnd) hBaseDC=CreateCompatibleDC(hDC) hMaskDC=CreateCompatibleDC(hDC) hTempDC=CreateCompatibleDC(hDC) hCompDC=CreateCompatibleDC(hDC) GetObject(hBmp,len(bmp),bmp) hMaskBmp=CreateCompatibleBitmap(hMaskDC,bmp.bmWidth,bmp.bmHeight) hBaseBmp=CreateCompatibleBitmap(hDC,bmp.bmWidth,bmp.bmHeight) hCompBmp=CreateCompatibleBitmap(hDC,bmp.bmWidth,bmp.bmHeight) dummy[0]=SelectObject(hTempDC,hBmp) dummy[1]=SelectObject(hMaskDC,hMaskBmp) dummy[2]=SelectObject(hBaseDC,hBaseBmp) dummy[3]=SelectObject(hCompDC,hCompBmp) SetBkColor(hTempDC,GetPixel(hTempDC,0,0)) BitBlt(hMaskDC,0,0,bmp.bmWidth,bmp.bmHeight,hTempDC,0,0,NOTSRCCOPY) BitBlt(hBaseDC,0,0,bmp.bmWidth,bmp.bmHeight,hTempDC,0,0,SRCCOPY) BitBlt(hBaseDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hMaskDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,NOTSRCCOPY) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hBaseDC,0,0,SRCPAINT) SelectObject(hTempDC,dummy[0]) SelectObject(hMaskDC,dummy[1]) SelectObject(hBaseDC,dummy[2]) SelectObject(hCompDC,dummy[3]) DeleteDC(hTempDC) DeleteDC(hMaskDC) DeleteDC(hBaseDC) DeleteDC(hCompDC) CreateMask=hCompBmp End Function とりあえず、いろいろと実験したところ、 背景を黒くしたもの(hBaseDC)とマスク画像(hMaskDC)はちゃんと出来ています。 おそらく問題なのは、 BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hMaskDC,0,0,SRCAND) BitBlt(hCompDC,0,0,bmp.bmWidth,bmp.bmHeight,hBaseDC,0,0,SRCPAINT) ここではないかと思っています。 これを処理すると、背景を黒くしたもの(hBaseDC)と同じものが出てきます。 これを透過するにはどうしたらいいのでしょうか？ ご教授お願いします。 Win.XP AB 4.23.00

vb2005で LEADTOOLS 16.5J を使用して元画像よりトリミングするプログラムを作っています。 Private Sub RasterImageViewer1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles theViewer.MouseDown 'クリックされた地点より、長さ150の正方形の座標を指定 Dim strRectangle As Rectangle = New Rectangle(e.X, e.Y, 150, 150) 'リージョンを作成 RasterImageViewer.Image.AddRectangleToRegion(Nothing, strRectangle, Leadtools.RasterRegionCombineMode.Set) End Sub 画像をクリックすると、リージョン(トリミングする範囲の点線)の枠が表示されるのですが、 座標の左上(0,0)から離れれば離れるほど、クリックした地点より右下にずれてリージョンの枠が表示されてしまいます。 調べてみると、オフセットを調整する処理が必要らしいことは分かったのですが、 具体的にどうすれば良いのか分かりません。 ご伝授よろしくお願いします。

VB6.0で、ファイルのマルチセレクトダイアログでエラーがでます。 ファイルを10個ほど選択ならエラーがでません。 250個ほどファイルを選択したいのですが、 コードを何度みなおしてもわかりません。 どなたか、どこをどう修正したらよいのかアドバイスをいただけませんでしょうか。 お手数をおかけしますがよろしくお願いします。 エラー箇所は下部の For i = 1 To UBound(GetFileName) です。 Public Function apiGetOpenFileName(nHandle As Long, nFilter As String, nDir As String) As Variant Dim OFN As OPENFILENAME 'OPENFILENAME構造体 Dim Ret As Long '戻り値 With OFN '構造体の設定 .Flags = OFN_PATHMUSTEXIST Or _ OFN_FILEMUSTEXIST Or _ OFN_HIDEREADONLY Or _ OFN_ALLOWMULTISELECT Or OFN_EXPLORER 'マルチセレクト追加 .hInstance = App.hInstance 'インスタンスハンドルを設定 .hwndOwner = nHandle 'ウインドウハンドルを設定 .lpstrTitle = "ファイルを開く" 'コモンダイアログのタイトルを設定 .lpstrFilter = nFilter 'フィルタを設定 .lStructSize = Len(OFN) '構造体のサイズを設定 .nMaxFile = 257 'ファイル名のバッファのサイズを設定 .lpstrFileTitle = String(257, Chr(0)) 'フルパス用のバッファを確保 .nMaxFileTitle = 257 'フルパス用のバッファのサイズを設定 .lpstrFile = String(257, Chr(0)) 'ファイル名のバッファを確保 .lpstrInitialDir = nDir 'デフォルトのディレクトリを指定 End With Ret = GetOpenFileName(OFN) '「ファイルを開く」ダイアログボックスを表示する If Ret = 0 Then '[キャンセル]を押した時 apiGetOpenFileName = vbNullString Exit Function Else '[OK]を押した時 apiGetOpenFileName = Split(OFN.lpstrFile, Chr(0)) End If End Function ' ファイル名を取得する ・・・コード省略 Dim GetFileName As Variant 'ファイル名(フルパス) GetFileName = apiGetOpenFileName(Form1.hWnd, strFilter, strDir) 'ダイアログ表示 'ファイル名取得 j = 1 For i = 1 To UBound(GetFileName)　←ここでエラーが出ます If GetFileName(i) <> "" Then strDFname(j) = GetFileName(i) j = j + 1 End If Next i

vbの学習のためにvisual basic express editionをインストールして使っています。上司からはvisual studioをインストールするように言われたのですが、expressとstdioは別物なんですか。ともにvisual basicを使う点では変わりないと思いますがどう違うんですか。詳しく教えてください。 序にexpressは無料でインストールできますがなぜですか。 宜しくお願いします。