我正在创建如下对话框：
@Override
protected Dialog onCreateDialog(int id) {
switch (id) {
case DIALOG_1:
return new AlertDialog.Builder(this)
.setTitle(R.string.s_dlg1)
.setPositiveButton(android.R.string.ok, this)
.create();
case DIALOG_2:
...
...
}
return null;
}
@Override
public void onClick(DialogInterface dialog, int whichButton) {
if (dialog == ???) {
...
}
else if (dialog == ???){
...
}
}
如何识别触发onClick方法的对话框？在创建对话框时，我无法将接口方法声明为内联，因为我想在我的类中访问变量。每个其他接口都将某种id传递给它的方法，以识别哪个对象称为方法，但我似乎无法对“DialogInterface对话框”做任何事情。
答案 0 :(得分：1)
也许您可以将onclick侦听器作为单独的类提取出来，然后传入对话框ID？界面是android.content.DialogInterface.OnClickListener
答案 1 :(得分：0)
这对我有用
case Dialog_import_database:
return new AlertDialog.Builder(Main.this)
.setTitle(R.string.ImportDatabaseDialogTitle)
.setPositiveButton("OK", new DialogInterface.OnClickListener() {
public void onClick(DialogInterface dialog, int which) {
// TODO Auto-generated method stub
Log.i("Main","positive Button In dialog Box");
因为在这里单击正面按钮时你想要的是什么
}
})
.setNegativeButton("Cancel", null)
.setMessage(R.string.ImportDatabaseMessage)
.create();
}
答案 2 :(得分：0)
这个问题很老，到目前为止还没有答案，所以我找到了解决这个问题的解决方案，我也遇到过这个问题。
在此活动中，我已经启动了根据用户的操作启动2个不同的自定义DialogFragment的可能性。我们称他们为DialogFragment A或B。我们使用标准构建器创建这些内容，然后使用.show(fragmentManager, <TAG>)标记A_TAG或B_TAG来稍后轻松识别它们。
因此，展示了这些DialogFragment中的任何一个，您需要决定在已实施的onClick(DialogInterface dialog, int buttonClicked)中做什么，以及我是如何做到的：
final DialogFragment aDialogInterface = (DialogFragment) getSupportFragmentManager().findFragmentByTag(A_TAG);
final DialogFragment bDialogInterface = (DialogFragment) getSupportFragmentManager().findFragmentByTag(B_TAG);
if (aDialogInterface != null) {
//do something for dialogfragment A
} else if (bDialogInterface != null) {
//do something for dialogfragment B
}
基本上对findFragmentByTag(...) ...
答案 3 :(得分：0)
我遇到了同样的问题。现在，我找到了以下解决方案。
private Dialog[] aaa = new Dialog[2];
@Override
protected Dialog onCreateDialog(int id) {
switch (id) {
case DIALOG_1:
aaa[0] = new AlertDialog.Builder(this)
.setTitle(R.string.s_dlg1)
.setPositiveButton(android.R.string.ok, this)
.create();
retrun aaa[0];
case DIALOG_2:
...
...
}
return null;
}
@Override
public void onClick(DialogInterface dialog, int whichButton) {
if (dialog == aaa[0])) {
...
}
else if (dialog == aaa[1]){
...
}
}
答案 4 :(得分：0)
这是一个古老的问题，但我仍然遇到了xO相同的问题。 作为一种解决方法，我使用了Dialog对象的“ hashCode”。 根据对话框类型，您可以将“对话框界面”转换为您的特定类型，并通过回调函数将“第一个”对话框和“第二个”对话框的“ hashCode”与“ DilaogInterface”对象的“ hasCode”进行比较。
“ public void onClick（DialogInterface对话框，int whichButton）{}”
功能签名。
答案 5 :(得分：-1)
难以直接识别哪个对话框有 显示而不是按下了哪个按钮，因此如果使用不同的按钮填充对话框，则可以执行此操作。 像这样：
Option Explicit
Sub LoopThroughDirectory()
Const ROW_HEADER As Long = 10
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim MyFolder As String
Dim StartSht As Worksheet, ws As Worksheet
Dim WB As Workbook
Dim i As Integer
Dim LastRow As Integer, erow As Integer
Dim Height As Integer
Dim RowLast As Long
Dim f As String
Dim dict As Object
Dim hc As Range, hc1 As Range, hc2 As Range, hc3 As Range, d As Range
Set StartSht = Workbooks("masterfile.xlsm").Sheets("Sheet1")
'turn screen updating off - makes program faster
Application.ScreenUpdating = False
'Application.UpdateLinks = False
'location of the folder in which the desired TDS files are
MyFolder = "C:\Users\trembos\Documents\TDS\progress\"
'find the headers on the sheet
Set hc1 = HeaderCell(StartSht.Range("B1"), "HOLDER")
Set hc2 = HeaderCell(StartSht.Range("C1"), "CUTTING TOOL")
'create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'get the folder object
Set objFolder = objFSO.GetFolder(MyFolder)
i = 2
'loop through directory file and print names
'(1)
For Each objFile In objFolder.Files
If LCase(Right(objFile.Name, 3)) = "xls" Or LCase(Left(Right(objFile.Name, 4), 3)) = "xls" Then
'(2)
'print file name to Column 1
'Open folder and file name, do not update links
Set WB = Workbooks.Open(fileName:=MyFolder & objFile.Name, UpdateLinks:=0)
Set ws = WB.ActiveSheet
'(3)
'find CUTTING TOOL on the source sheet
Set hc = HeaderCell(ws.Cells(ROW_HEADER, 1), "CUTTING TOOL")
If Not hc Is Nothing Then
Set dict = GetUniques(hc.Offset(1, 0))
If dict.count > 0 Then
Set d = StartSht.Cells(Rows.count, hc2.Column).End(xlUp).Offset(1, 0)
'add the values to the masterfile, column 3
d.Resize(dict.count, 1).Value = Application.Transpose(dict.keys)
End If
Else
'header not found on source worksheet
End If
'(4)
'find HOLDER on the source sheet
Set hc3 = HeaderCell(ws.Cells(ROW_HEADER, 1), "HOLDER")
If Not hc3 Is Nothing Then
Set dict = GetUniques(hc3.Offset(1, 0))
If dict.count > 0 Then
Set d = StartSht.Cells(Rows.count, hc1.Column).End(xlUp).Offset(1, 0)
'add the values to the master list, column 2
d.Resize(dict.count, 1).Value = Application.Transpose(dict.keys)
End If
Else
'header not found on source worksheet
End If
'(5)
With WB
'print TDS information
For Each ws In .Worksheets
'print the file name to Column 1
StartSht.Cells(i, 1) = objFile.Name
'print TDS name from J1 cell to Column 4
With ws
.Range("J1").Copy StartSht.Cells(i, 4)
End With
i = GetLastRowInSheet(StartSht) + 1
'move to next file
Next ws
'(6)
'close, do not save any changes to the opened files
.Close SaveChanges:=False
End With
End If
'move to next file
Next objFile
'turn screen updating back on
Application.ScreenUpdating = True
ActiveWindow.ScrollRow = 1
'(7)
End Sub
'(8)
'get all unique column values starting at cell c
Function GetUniques(ch As Range) As Object
Dim dict As Object, rng As Range, c As Range, v
Set dict = CreateObject("scripting.dictionary")
For Each c In ch.Parent.Range(ch, ch.Parent.Cells(Rows.count, ch.Column).End(xlUp)).Cells
v = Trim(c.Value)
If Len(v) > 0 And Not dict.exists(v) Then
dict.Add v, ""
End If
Next c
Set GetUniques = dict
End Function
'(9)
'find a header on a row: returns Nothing if not found
Function HeaderCell(rng As Range, sHeader As String) As Range
Dim rv As Range, c As Range
For Each c In rng.Parent.Range(rng, rng.Parent.Cells(rng.Row, Columns.count).End(xlToLeft)).Cells
If Trim(c.Value) = sHeader Then
Set rv = c
Exit For
End If
Next c
Set HeaderCell = rv
End Function
'(10)
Function GetLastRowInColumn(theWorksheet As Worksheet, col As String)
With theWorksheet
GetLastRowInColumn = .Range(col & .Rows.count).End(xlUp).Row
End With
End Function
'(11)
Function GetLastRowInSheet(theWorksheet As Worksheet)
Dim ret
With theWorksheet
If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
ret = .Cells.Find(What:="*", _
After:=.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
Else
ret = 1
End If
End With
GetLastRowInSheet = ret
End Function