| |
|
|
|
|
|
|
|
| メッセージボックス |
|
|
|
MsgBox("メッセージ",
vbOKOnly, "タイトル") |
|
CWnd::MessageBox("メッセージ",
"タイトル"); |
JOptionPane.showMessageDialog(null,
"メッセージ", "タイトル",
JOptionPane.INFORMATION_MESSAGE); |
| |
alert("メッセージ"); |
|
MsgBox("メッセージ",
vbExclamation, "タイトル") |
|
CWnd::MessageBox("メッセージ",
"タイトル", MB_ICONEXCLAMATION); |
JOptionPane.showMessageDialog(null,
"メッセージ", "タイトル",
JOptionPane.WARNING_MESSAGE); |
| |
|
|
MsgBox("メッセージ",
vbCritical, "タイトル") |
|
CWnd::MessageBox("メッセージ",
"タイトル", MB_ICONSTOP); |
JOptionPane.showMessageDialog(null,
"メッセージ", "タイトル",
JOptionPane.ERROR_MESSAGE); |
| 確認ダイアログ |
|
var r = confirm("メッセージ"); |
|
Dim r As Integer
r = MsgBox("メッセージ", vbYesNo Or vbQuestion, "タイトル")
vbOKCancel |
|
int r = CWnd::MessageBox("メッセージ",
"タイトル", MB_YESNO|MB_ICONQUESTION);
MB_OKCANCEL |
int r = JOptionPane.showConfirmDialog(null,
"メッセージ", "タイトル",
JOptionPane.YES_NO_OPTION, JOptionPane.QUESTION_MESSAGE);
JOptionPane.OK_CANCEL_OPTION |
| |
false以外 |
|
vbYes, vbOK |
|
IDYES, IDOK |
JOptionPane.YES_OPTION, OK_OPTION |
| |
false |
|
vbNo, vbCancel |
|
IDNO, IDCANCEL |
JOptionPane.NO_OPTION, CANCEL_OPTION |
| インプットボックス |
|
var r = prompt("メッセージ,
"初期値"); |
|
Dim r As String
r = InputBox("メッセージ", "タイトル")
Dim r As Variant
r = Application.InputBox("メッセージ",
"タイトル", "初期値", Type:=2)
If VarType(r) = vbBoolean Then
Debug.Print "キャンセル："; r
Else
Debug.Print "入力文字列："; r
End If |
|
|
String r = JOptionPane.showInputDialog(null,
"メッセージ", "タイトル",
JOptionPane.PLAIN_MESSAGE); |
| ファイル選択 |
<input type="file"
name="〜"> |
|
|
Dim r As Variant
r = Application.GetOpenFilename
'r = Application.GetSaveAsFilename
If VarType(r) = vbString Then
Debug.Print "ファイル名"; r
Else
Debug.Print "キャンセル"; r
End If
Dim r As Boolean
r = Application.Dialogs(xlDialogOpen).Show
If r Then
Debug.Print "OK"
Else
Debug.Print "CANCEL"
End If
xlDialogSaveAs
xlDialogFindFile
xlDialogFileDelete
xlDialogImportTextFile |
|
CFileDialog
SHFileOperation |
JFileChooser |
| |
|
|
|
|
|
|
|
| ラベル |
<label for="lbl1">ラベル</label> |
|
<c:out value="ラベル"/> |
Dim lbl1 As Label
Set lbl1 = フォーム.ラベル名
lbl1.caption = "ラベル" |
|
CStatic m_Lbl1; |
new JLabel("ラベル") |
| テキストボックス |
<input id="edt1" type="text"> |
|
<html:text property="edt1"/> |
Dim edt1 As TextBox
Set edt1 = フォーム.テキストボックス名 |
|
CEdit m_Edt1; |
JTextField field = new
JTextField(); |
| |
var str = edt1.value; |
|
Dim str As String
str = edt1.Text |
|
CString str;
m_Edt1.GetWindowText(str); |
String str = field.getText(); |
| |
edt1.value = "値"; |
|
edt1.Text = "値" |
|
m_Edt1.SetWindowText("値"); |
field.setText("値"); |
| テキストエリア |
<textarea cols="桁数" rows="行数">
初期文章</textarea> |
|
<html:textarea property="edt1" cols="桁数"
rows="行数"/> |
Dim edt2 As TextBox
Set edt2 = フォーム.テキストボックス名
edt2.MultiLine = True
edt2.EnterKeyBehavior = True 'Enterキーで改行する
edt2.TabKeyBehavior = True 'Tabを入力可能とする |
|
|
new JTextArea("初期文章", 行数, 桁数) |
| ボタン |
<input id="btn1" type="button" value="ボタン名"> |
|
<html:button property="btn1" value="ボタン名"/> |
Dim btn1 As CommandButton
Set btn1 = フォーム.コマンドボタン名
btn1.Caption = "ボタン名" |
|
CButton m_Btn1; |
new JButton("ボタン名") |
onclick()="スクリプト" |
|
onclick()="スクリプト" |
Private Sub コマンドボタン名_Click()
〜
End Sub |
|
|
|
| コンボボックス |
<select id="cmb1">
<option value="1">選択肢1</option>
<option value="2">選択肢2</option>
<option value="3" selected="selected">選択肢d</option>
</select> |
|
<html:select property="cmb1" size="1">
<html:option value="1">選択肢1</html:option>
<html:option value="2">選択肢2</html:option>
<html:option value="3">選択肢3</html:option>
</html:select> |
Dim cmb1 As ComboBox
Set cmb1 = フォーム.コンボボックス名 |
|
CComboBox m_Cmb1; |
JComboBox cmb1 = new JComboBox();
cmb1.addItem("選択肢1");
cmb1.addItem("選択肢2");
cmb1.addItem("選択肢3"); |
| リストボックス |
<select id="lst1" size="行数">
<option value="1">選択肢1</option>
<option value="2">選択肢2</option>
〜
</select> |
|
<html:select property="lst1" size="行数">
<html:option value="1">選択肢1</html:option>
<html:option value="2">選択肢2</html:option>
〜
</html:select> |
Dim lst1 As ListBox
Set lst1 = フォーム.リストボックス名 |
|
CListBox m_Lst1; |
String[] opts = { "選択肢1", "選択肢2", 〜 };
JScrollPane lst1 = new JScrollPane(new
JList(opts)); |
<select id="lst2" size="行数" multiple>
〜
</select> |
|
<html:select property="lst2" size="行数"
multiple="true">
〜
</html:select> |
lst2.MultiSelect = fmMultiSelectMult 又は
fmMultiSelectExtended |
|
CListBox m_Lst2; |
|
| チェックボックス |
<input id="chk1" type="checkbox"
value="c1"><label for="chk1">チェック</label> |
|
<html:checkbox property="chk1"/>チェック |
Dim chk1 As CheckBox
Set chk1 = フォーム.チェックボックス名
chk1.Caption = "チェック" |
|
|
new JCheckBox("チェック") |
<input id="chk2" type="checkbox" value="c2"
checked>〜 |
|
chk2.Value = True |
|
|
new JCheckBox("チェック", true) |
| ラジオボタン |
<input id="rdo1" type="radio" value="r1" name="group1"><label
for="rdo1">ラジオ1</label>
<input id="rdo2" type="radio" value="r2" name="group1"><label
for="rdo2">ラジオ2</label> |
|
<html:radio property="group1"
value="r1"/>ラジオ1
<html:radio property="group1" value="r2"/>ラジオ2 |
Dim rdo1 As OptionButton, rdo2 As OptionButton
Set rdo1 = フォーム.オプションボタン名
rdo1.Caption = "ラジオ1"
rdo1.GroupName = "group1"
Set rdo1 = フォーム.オプションボタン名
rdo2.Caption = "ラジオ2"
rdo2.GroupName = "group1" |
|
|
JRadioButton rdo1 = new JRadioButton("ラジオ1");
JRadioButton rdo2 = new JRadioButton("ラジオ2");
ButtonGroup group1 = new ButtonGroup();
group1.add(rdo1);
group1.add(rdo2);
|
<input id="rdo" type="radio" value="r"
name="group1" checked>ラジオ |
|
rdo.Value = True |
|
|
new JRadioButton("ラジオ", true) |
| グループボックス |
<fieldset>
<legend>キャプション</legend>
〜
</fieldset> |
|
|
Dim frm As Frame
Set frm = フォーム.フレーム名
frm.Caption = "キャプション" |
|
|
|
| |
|
|
|
|
|
|
|
| フォーカス制御 |
|
|
|
Dim 部品 As Control |
部品 As Control |
CWnd* 部品 |
Component 部品 |
| |
部品.fucos();
部品.blur(); |
|
部品.SetFocus |
部品.Focus() |
部品->SetFocus();
pWnd->SetForegroundWindow();
ダイアログの場合
pDlg->GotoDlgCtrl(部品); |
部品.requestFocus();
部品.requestFocusInWindow(); |
| |
|
|
Set c = フォーム.ActiveControl |
|
CWnd *pWnd = CWnd::GetFocus();
CWnd *pWnd = CWnd::GetForegroundWindow(); |
|
| |
|
|
|
部品.SelectNextControl(基準部品, 方向, タブストップ,
入れ子部品, 先頭に戻る) |
ダイアログの場合
pDlg->NextDlgCtrl();
pDlg->PrevDlgCtrl(); |
部品.transferFocus();
部品.transferFocusBackward(); |
| アクティブ |
|
|
|
|
部品.Activate |
pWnd->SetActiveWindow(); |
|
| |
|
|
|
フォーム = Form.ActivateForm |
CWnd *pWnd = CWnd::GetActiveWindow(); |
|
| ウィンドウ |
|
self |
|
ActiveWindow |
|
pWnd = (CMainFrame*)AfxGetApp()->m_pMainWnd; |
|
| |
top
parent
opener |
|
ウィンドウ.Parent |
|
pWnd->GetWindow()
pWnd->GetNextWindow()
pWnd->GetParent()
pWnd->GetOwner()
pWnd->GetTopWindow()
pWnd->GetDlgItem(nID) |
win.getOwner()
win.getWindows()
win.getOwnedWindows() |
| 探索 |
|
ウィンドウ.名前
ウィンドウ["名前"] |
|
Dim w As Window
Set w = Application.Windows("Book1") |
|
CWnd *pWnd = CWnd::FindWindow(NULL, "ウィンドウタイトル"); |
|
| 位置 |
|
var x = ウィンドウ.screenLeft;
var y = ウィンドウ.screenTop; |
|
x = 部品.Left
y = 部品.Top |
x = 部品.Left
y = 部品.Top
pt = 部品.Location |
CRect rect;
pWnd->GetWindowRect(&rect);
int x = rect.left;
int y = rect.top; |
int x = 部品.getX();
int y = 部品.getY();
getLocation()
getBounds()
getLocationOnScreen() |
| |
ウィンドウ.moveTo(dx, dy)
ウィンドウ.moveBy(ox, oy) |
|
部品.Left = dx
部品.Top = dy
部品.Move(dx, dy) |
部品.Left = dx
部品.Top = dy
部品.Location = pt
SetBounds() |
MoveWindow()
SetWindowPos() |
部品.setLocation(dx, dy);
setBounds()
setLocationRelativeTo(null) |
| |
|
|
|
|
WM_MOVE |
ComponentListener
#componentMoved() |
| サイズ |
|
|
|
nx = 部品.Width
ny = 部品.Height |
nx = 部品.Width
ny = 部品.Height
sz = 部品.Size |
CRect rect;
pWnd->GetWindowRect(&rect);
int nx = rect.Width();
int ny = rect.Height(); |
int nx = 部品.getWidth();
int ny = 部品.getHeight();
getSize();
getBounds() |
| |
ウィンドウ.resizeTo(nx, ny);
ウィンドウ.resizeBy(ox, oy); |
|
部品.Width = nx
部品.Height = ny |
部品.Width = nx
部品.Height = ny
部品.Size = sz
SetBounds() |
MoveWindow()
SetWindowPos() |
部品.setSize(nx, ny);
setBounds() |
| |
var wx = screen.width;
var wy = screen.height;
var wx = screen.availWidth;
var wy = screen.availHeight; |
|
|
|
int wx = GetSystemMetrics(SM_CXFULLSCREEN);
int wy = GetSystemMetrics(SM_CYFULLSCREEN); |
GraphicsEnvironment env = GraphicsEnvironment. getLocalGraphicsEnvironment();
Rectangle rect = env.getMaximumWindowBounds();
int wx = rect.width;
int wy = rect.height; |
onresize() |
|
|
|
|
WM_SIZE |
ComponentListener
#componentResized() |
| |
|
|
|
|
|
|
|
| フォーム |
<form>
〜
</form> |
|
<html:form>
〜
</html:form> |
UserForm |
|
CFormView |
JPanel |
| テキストエディター |
|
|
|
|
|
CEditView |
JEditorPane |
| スクロール |
|
|
|
|
|
CScrollView |
JScrollPane |
| |
scrollTo(dx, dy)
scrollBy(nx, ny) |
|
|
|
|
|
| 分割 |
|
|
|
|
|
CSplitterWnd |
JSplitPane |
| ツリー |
<ul><li>〜</li></ul> |
|
|
|
|
CTreeView |
JTree |
| テーブル |
<table>
<tr><th>〜</th></tr>
<tr><td>〜</td></tr>
</table> |
|
|
|
|
|
JTable |
| メニュー |
|
|
|
Dim menu As CommandBar
Set menu = Application.CommandBars("Worksheet Menu Bar") |
|
CMenu |
JMenuBar
JMenu
JMenuItem |
| |
|
|
Position:=msoBarPopupのCommandBarを作成し、ShowPopupで表示 |
|
CMenu::TrackPopupMenu() |
JPopupMenu |
| ツールバー |
|
|
|
Dim tool As CommandBar
Set tool = Application.CommandBars("ツールバーの名前") |
|
CToolBar
CDialogBar |
JToolBar |
| ステータスバー |
|
|
|
Application.StatusBar = "メッセージ"
Application.StatusBar = False '元に戻す
Application.DisplayStatusBar = False 'バーを消す |
|
CStatusBar |
ステータスバーもどき |
| |
|
|
|
|
|
|
|
| マウスイベント |
onmousemove() |
|
|
|
|
WM_MOUSEMOVE |
MouseMotionListener#mouseMoved()
MouseMotionListener#mouseDragged() |
onmouseover()
onmouseout() |
|
|
|
|
|
MouseListener#mouseEntered()
MouseListener#mouseExited() |
onmousedown()
onmouseup() |
|
|
|
|
WM_LBUTTONDOWN
WM_RBUTTONDOWN
WM_LBUTTONUP
WM_RBUTTONUP |
MouseListener#mousePressed()
MouseListener#mouseReleased() |
onclick()
ondblclick() |
|
|
|
|
WM_LBUTTONDBLCLK
WM_RBUTTONDBLCLK |
MouseListener#mouseClicked(MouseEvent
e)
e.getClickCount() …クリック数 |
| |
|
|
|
|
|
MouseWheelListener#mouseWheelMoved() |
| キーイベント |
onkeydown()
onkeypress()
onkeyup() |
|
|
|
|
WM_KEYDOWN
WM_KEYUP |
KeyListener#keyTyped()
KeyListener#keyPressed()
KeyListener#keyReleased() |
| |
|
|
|
|
WM_CHAR
WM_IME_CHAR |
|
| |
|
|
|
|
|
registerKeyboardAction() |