約 575,913 件
https://w.atwiki.jp/slotwiki/pages/42.html
機種検索 (フ行) ●プレミアムダイナマイト? ●PLAYBOY? ●ファイヤードリフト? 誰でも自由に機種を追加出来ます。 まだ載っていない機種はどんどん新規作成してください。 また「?」がついている台はまだページがありません。是非新規作成してください。「?」台は手順4.からです。 【新規掲載手順】 1.このページの下部の「このページを編集する」をクリック。 2.機種名の一番上に ●作成する機種名〜を記入。他の機種同様、機種名を [ のかっこを2つ付けてくくってください。(これでリンクが作られます) 3.「投稿」ボタンをクリック。 4.するとページが反映される。次に今入れた機種名?のリンクをクリックする。 5.「機種名〜 は作成されていないか、削除されました」と出るので、「機種名〜 をwikiモードで編集する」をクリック。 6.編集方法を見ながら分かる範囲でデータ入力。 ※ここでオカルトやご自分の意見は入れないでください。解析データ等の事実データのみ入力してください。 7.「投稿」ボタンで投稿完了。 8.変更点が反映されたのを確認して、最後に「編集履歴/コメント」欄に名前とどこを編集したかを記入して終了。お疲れさまでした。 ●詳しくは編集方法をご覧下さい。 編集履歴/コメント ※コメント欄は質問をするところではありません。編集箇所を書いてください。不要なコメントは随時削除します 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/slotwiki/pages/18.html
機種検索 (エ行) ●新世紀エヴァンゲリオン? 誰でも自由に機種を追加出来ます。 まだ載っていない機種はどんどん新規作成してください。 また「?」がついている台はまだページがありません。是非新規作成してください。 【新規掲載手順】 1.このページの下部の「このページを編集する」をクリック。 2.機種名の一番上に ●作成する機種名〜を記入。他の機種同様、機種名を [ のかっこを2つ付けてくくってください。(これでリンクが作られます) 3.「投稿」ボタンをクリック。 4.するとページが反映される。次に今入れた機種名?のリンクをクリックする。 5.「機種名〜 は作成されていないか、削除されました」と出るので、「機種名〜 をwikiモードで編集する」をクリック。 6.編集方法を見ながら分かる範囲でデータ入力。 ※ここでオカルトやご自分の意見は入れないでください。解析データ等の事実データのみ入力してください。 7.「投稿」ボタンで投稿完了。 8.変更点が反映されたのを確認して、最後に「編集履歴/コメント」欄に名前とどこを編集したかを記入して終了。お疲れさまでした。 ●詳しくは編集方法をご覧下さい。 編集履歴/コメント ※コメント欄は質問をするところではありません。編集箇所を書いてください。不要なコメントは随時削除します 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/fumiduki1985/pages/163.html
[Ctrl]キーを押しながらノードを選択することで、複数選択が可能。 このページのタグ一覧 NUKE
https://w.atwiki.jp/nimame/pages/14.html
自動選択ツールを使って背景を消す方法 単色の背景は自動選択ツール ・背景が一色だけだったりと、割と単純な画像の場合は楽です。 緑一色だけの単純な背景。 背景レイヤーをダブルクリック→新規レイヤー作成のウィンドウが出る→OK ツールバーから自動選択ツールを選び、背景色を選択→Delete。マジック消しゴムツール(消しゴムツールを横にドラッグすると選択できる)で一気に消すこともできます。 背景が左の図のようになれば背景が透明になっている状態です。 ☆保存をする前にジャギーを目立たなくする。 前のページへ
https://w.atwiki.jp/draemonash/pages/70.html
ここを編集 フォルダ選択 ================================================================== = 概要 フォルダ選択ダイアログを表示する = 引数 sInitPath String [in] デフォルトフォルダパス(省略可) = 戻値 String フォルダ選択結果 = 覚書 なし ================================================================== Private Function ShowFolderSelectDialog( _ Optional ByVal sInitPath As String = "" _ ) As String Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFolderPicker) fdDialog.Title = "フォルダを選択してください" If sInitPath = "" Then Do Nothing Else If Right(sInitPath, 1) = "\" Then fdDialog.InitialFileName = sInitPath Else fdDialog.InitialFileName = sInitPath "\" End If End If ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ShowFolderSelectDialog = "" Else Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems.Item(1) If CreateObject("Scripting.FileSystemObject").FolderExists(sSelectedPath) Then ShowFolderSelectDialog = sSelectedPath Else ShowFolderSelectDialog = "" End If End If Set fdDialog = Nothing End Function Private Sub Test_ShowFolderSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") MsgBox ShowFolderSelectDialog( _ objWshShell.SpecialFolders("Desktop") _ ) End Sub ファイル選択 ================================================================== = 概要 ファイル(単一)選択ダイアログを表示する = 引数 sInitPath String [in] デフォルトファイルパス(省略可) = 引数 sFilters String [in] 選択時のフィルタ(省略可)(※) = 戻値 String ファイル選択結果 = 覚書 (※)ダイアログのフィルタ指定方法は以下。 = ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv = ・拡張子が複数ある場合は、";"で区切る = ・ファイル種別と拡張子は"/"で区切る = ・フィルタが複数ある場合、","で区切る = sFilters が省略もしくは空文字の場合、フィルタをクリアする。 ================================================================== Private Function ShowFileSelectDialog( _ Optional ByVal sInitPath As String = "", _ Optional ByVal sFilters As String = "" _ ) As String Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFilePicker) fdDialog.Title = "ファイルを選択してください" fdDialog.AllowMultiSelect = False If sInitPath = "" Then Do Nothing Else fdDialog.InitialFileName = sInitPath End If Call SetDialogFilters(sFilters, fdDialog) フィルタ追加 ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ShowFileSelectDialog = "" Else Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems.Item(1) If CreateObject("Scripting.FileSystemObject").FileExists(sSelectedPath) Then ShowFileSelectDialog = sSelectedPath Else ShowFileSelectDialog = "" End If End If Set fdDialog = Nothing End Function Private Sub Test_ShowFileSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") Dim sFilters As String sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" sFilters = "" MsgBox ShowFileSelectDialog( _ objWshShell.SpecialFolders("Desktop") "\test.txt", _ sFilters _ ) MsgBox ShowFileSelectDialog( _ objWshShell.SpecialFolders("Desktop") "\test.txt" _ ) End Sub ================================================================== = 概要 ファイル(複数)選択ダイアログを表示する = 引数 asSelectedFiles String() [out] 選択されたファイルパス一覧 = 引数 sInitPath String [in] デフォルトファイルパス(省略可) = 引数 sFilters String [in] 選択時のフィルタ(省略可)(※) = 戻値 なし = 覚書 (※)ダイアログのフィルタ指定方法は以下。 = ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv = ・拡張子が複数ある場合は、";"で区切る = ・ファイル種別と拡張子は"/"で区切る = ・フィルタが複数ある場合、","で区切る = sFilters が省略もしくは空文字の場合、フィルタをクリアする。 ================================================================== Private Function ShowFilesSelectDialog( _ ByRef asSelectedFiles() As String, _ Optional ByVal sInitPath As String = "", _ Optional ByVal sFilters As String = "" _ ) Dim fdDialog As Office.FileDialog Set fdDialog = Application.FileDialog(msoFileDialogFilePicker) fdDialog.Title = "ファイルを選択してください(複数可)" fdDialog.AllowMultiSelect = True If sInitPath = "" Then Do Nothing Else fdDialog.InitialFileName = sInitPath End If Call SetDialogFilters(sFilters, fdDialog) フィルタ追加 ダイアログ表示 Dim lResult As Long lResult = fdDialog.Show() If lResult -1 Then キャンセル押下 ReDim Preserve asSelectedFiles(0) asSelectedFiles(0) = "" Else Dim lSelNum As Long lSelNum = fdDialog.SelectedItems.Count ReDim Preserve asSelectedFiles(lSelNum - 1) Dim lSelIdx As Long For lSelIdx = 0 To lSelNum - 1 Dim sSelectedPath As String sSelectedPath = fdDialog.SelectedItems(lSelIdx + 1) If CreateObject("Scripting.FileSystemObject").FileExists(sSelectedPath) Then asSelectedFiles(lSelIdx) = sSelectedPath Else asSelectedFiles(lSelIdx) = "" End If Next lSelIdx End If Set fdDialog = Nothing End Function Private Sub Test_ShowFilesSelectDialog() Dim objWshShell Set objWshShell = CreateObject("WScript.Shell") Dim sFilters As String sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv" sFilters = "画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" sFilters = "全てのファイル/*.*,画像ファイル/*.gif; *.jpg; *.jpeg; *.png,テキストファイル/*.txt; *.csv" Dim asSelectedFiles() As String Call ShowFilesSelectDialog( _ asSelectedFiles, _ objWshShell.SpecialFolders("Desktop") "\test.txt", _ sFilters _ ) Dim sBuf As String sBuf = "" sBuf = sBuf vbNewLine UBound(asSelectedFiles) + 1 Dim lSelIdx As Long For lSelIdx = 0 To UBound(asSelectedFiles) sBuf = sBuf vbNewLine asSelectedFiles(lSelIdx) Next lSelIdx MsgBox sBuf End Sub ShowFileSelectDialog() と ShowFilesSelectDialog() 用の関数 ダイアログのフィルタを追加する。指定方法は以下。 ex) 画像ファイル/*.gif; *.jpg; *.jpeg,テキストファイル/*.txt; *.csv ・拡張子が複数ある場合は、";"で区切る ・ファイル種別と拡張子は"/"で区切る ・フィルタが複数ある場合、","で区切る sFilters が空文字の場合、フィルタをクリアする。 Private Function SetDialogFilters( _ ByVal sFilters As String, _ ByRef fdDialog As FileDialog _ ) fdDialog.Filters.Clear If sFilters = "" Then Do Nothing Else Dim vFilter As Variant If InStr(sFilters, ",") 0 Then Dim vFilters As Variant vFilters = Split(sFilters, ",") Dim lFilterIdx As Long For lFilterIdx = 0 To UBound(vFilters) If InStr(vFilters(lFilterIdx), "/") 0 Then vFilter = Split(vFilters(lFilterIdx), "/") If UBound(vFilter) = 1 Then fdDialog.Filters.Add vFilter(0), vFilter(1), lFilterIdx + 1 Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ """/"" は一つだけ指定してください" vbNewLine _ " " vFilters(lFilterIdx) MsgBox "処理を中断します。" End End If Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ "種別と拡張子を ""/"" で区切ってください。" vbNewLine _ " " vFilters(lFilterIdx) MsgBox "処理を中断します。" End End If Next lFilterIdx Else If InStr(sFilters, "/") 0 Then vFilter = Split(sFilters, "/") If UBound(vFilter) = 1 Then fdDialog.Filters.Add vFilter(0), vFilter(1), 1 Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ """/"" は一つだけ指定してください" vbNewLine _ " " sFilters MsgBox "処理を中断します。" End End If Else MsgBox _ "ファイル選択ダイアログのフィルタの指定方法が誤っています" vbNewLine _ "種別と拡張子を ""/"" で区切ってください。" vbNewLine _ " " sFilters MsgBox "処理を中断します。" End End If End If End If End Function ファイル選択(パターン2)(未使用) Dim vFilePath As Variant vFilePath = Application.GetOpenFilename( _ Title ="ファイル選択ウィンドウ", _ FileFilter ="エクセルファイル(*.xls),*.xls,CSVファイル(*.csv),*.csv", _ FilterIndex =1, _ MultiSelect =True _ ) If IsArray(vFilePath) Then Debug.Print UBound(vFilePath) Else Debug.Print 0 End If ここを編集
https://w.atwiki.jp/jizouyakusi/pages/370.html
推奨:アルフ(リリィ専用) 条件:『楽園の記憶』を取得したキャラであること 解説:あなたの正体は遥か太古の時代シグルドたちと共に旅をし、そしてその末に“闇の王”と化したシグルドを封印したアルフ、アルメリアである。長い旅の果てにあなたはそのことを思い出し、そして同時にかつて封印したシグルドもまたかつてシグルドの側についたヴァルキリー・ブリュンヒルデの手によって復活を果たした。だがブリュンヒルデがいかなる手段を用いたのか、復活したシグルドから闇の気は薄れ、彼は機械神を滅ぼし真帝国と敵対する事を世界に向けて宣言した。……シグルドがやろうとしていることは善なのか、悪なのか、記憶が戻ったあなたにはもう一度彼と逢ってそれを見極める義務がある。かつての選択をもう一度繰り返す事になるのか、それとも……今度こそ悔いの無い選択をするために、あなたの旅はまだ終わりはしないのだ。 クエスト:【己の選択に悔いを残さない】 ギフト:≪真なる星の導きⅡ≫を得る ≪真なる星の導きⅡ≫ レベル:1 種別:- タイミング:オート 判定値:自動成功 難易度:なし 対象:単体 射程:視界 代償:なし あなたを常に影からサポートしてくれているレリクスたちに働きかけて、少しだけ因果そのものを書き換える権限を行使する。 判定の直後に使用する。1D6点その判定の達成値が上昇する。この特技は1回の判定に1回まで使用できる。またこのとき上昇させた達成値と同じだけの【HP】を失う。 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/musaka/pages/14.html
参考HP http //www1.coralnet.or.jp/mako10/vc/a0004a.html http //www.geocities.co.jp/SiliconValley-PaloAlto/5610/vc/03030422/index.html http //www.runan.net/program/tips/sdk_01_SHBrowseForFolder.shtml http //www.kumei.ne.jp/c_lang/sdk3/sdk_276.htm http //www.usefullcode.net/2006/12/post_16.html
https://w.atwiki.jp/yamaha_qy/pages/8.html
マニュアルの入手について QYシリーズに限らず、大抵の YAMAHA 製品はヤマハ マニュアル ライブラリーから日本語マニュアルがダウンロードできるようになっている。英語版など各国語版についても、同様にダウンロードサイトが用意されている。 また、視覚障碍者などが用いる「読み上げソフト」向けに作られたテキストも、専用ページからダウンロードできるようになっている。
https://w.atwiki.jp/magicman/pages/44056.html
選択の守護者ドッチンビー UC 光/闇 (4) クリーチャー:ガーディアン 4000 ■このクリーチャーが出た時、自分の山札を見る。その中からエンジェル・コマンドを1体選び、自分の手札に加えるか墓地に置く。その後、山札をシャッフルする。こうして墓地に置いたなら、カードを1枚引いてもよい。 ■バトルゾーンに自分のエンジェル・コマンドが1体でもあれば、このクリーチャーに「ブロッカー」を与える。 作者:シザー・ガイ 実はとあるタイピングサイトでデュエマ関連のタイピングを作成していたりしてなかったりします フレーバーテキスト 同じガーディアンの仲間たちは皆闇エンジェルについた。だが光エンジェルの者たちにはそれなりの恩がある。ドッチンビーはどちらに加勢するか迷い続けた。そして迷いに迷った末の答えは… 評価 名前 コメント
https://w.atwiki.jp/llss/pages/627.html
元スレURL 穂乃果「究極の選択ZERO」 概要 真っ白な空間で、二つの扉の前に立たされたことり 全ての始まりの前、彼女が下した決断とは 関連作 前作:穂乃果「究極の選択!!」 タグ ^南ことり ^園田海未 ^シリアス 名前 コメント