首页 \ 问答 \ Runnable接口和Thread类未导入。(Runnable interface and Thread class not imported. Why?)

Runnable接口和Thread类未导入。(Runnable interface and Thread class not imported. Why?)

 我正在从Oracle的Java教程中学习并发性，我在本地机器上尝试了以下两个例子 -  
public class HelloRunnable implements Runnable {

    public void run() {
        System.out.println("Hello from a thread!");
    }

    public static void main(String args[]) {
        (new Thread(new HelloRunnable())).start();
    }

}
 
 和  
public class HelloThread extends Thread {

    public void run() {
        System.out.println("Hello from a thread!");
    }

    public static void main(String args[]) {
        (new HelloThread()).start();
    }

}
 
 这些例子很有用。 现在，请原谅我，如果这个问题看起来很奇怪，因为我是Java编程的新手，但为什么不是Runnable接口，在第一个例子中，并且两个例子中的Thread类都被导入了？  
 提前致谢！ 

I was learning about concurrency from the Oracle's Java Tutorials and I tried the following two examples in my local machine-  
public class HelloRunnable implements Runnable {

    public void run() {
        System.out.println("Hello from a thread!");
    }

    public static void main(String args[]) {
        (new Thread(new HelloRunnable())).start();
    }

}
 
and 
public class HelloThread extends Thread {

    public void run() {
        System.out.println("Hello from a thread!");
    }

    public static void main(String args[]) {
        (new HelloThread()).start();
    }

}
 
The examples worked. Now, Pardon me if the question seems very kiddish, as I am a novice in Java's programming, but why wasn't the Runnable interface, in first example, and Thread class, in both examples, imported? 
Thanks in advance! 

原文：https://stackoverflow.com/questions/38813879

更新时间：2023-10-14 14:10

最满意答案

 我想出了一个解决方案。 我在我的数据末尾放了一个占位符。 在我的例子中，我的占位符是“X”。 在每行的末尾是一个占位符。 现在我可以使用一个定义为带有“X”的单元格的范围。 然后我可以使用该范围在其左侧插入一列。 这是我的代码，以防任何人查看此内容以供参考。 我想我的代码比实际需要的多。  
Sub Button_Click()

Dim wb As Workbook
Dim newdata As Range
Dim StartCell As Range
Dim LastRow As Long
Dim LastColumn As Long
Dim n As Range

    Set wb = Workbooks("VBA TEST BOOK.xlsm")

    Set newdata = wb.Worksheets("Sheet2").Range("B2:B8")

    Set StartCell = Cells.Find("X")

wb.Worksheets("Sheet1").UsedRange

LastRow = StartCell.SpecialCells(xlCellTypeLastCell).Row

LastColumn = StartCell.SpecialCells(xlCellTypeLastCell).Column

    Set n = wb.Worksheets("Sheet1").Range(StartCell, wb.Worksheets("Sheet1").Cells(LastRow, LastColumn))

n.Activate

ActiveCell.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromRightOrAbove

Dim PasteDestination As Range

    Set PasteDestination = Cells.Find("X").Offset(0, -1)

newdata.Copy

PasteDestination.PasteSpecial xlPasteValues

End Sub   
 
 干杯 

I Figured out a solution. I put a place holder at the end of my data. In my example my placeholder is "X". At the end of each row is a placeholder. Now I can use a range that is defined as cells with "X" in them. I can then use that range to insert a column to the immediate left of it. Here is my code in case anyone ever looks this up for reference. I think I have more code than is actually necessary. 
Sub Button_Click()

Dim wb As Workbook
Dim newdata As Range
Dim StartCell As Range
Dim LastRow As Long
Dim LastColumn As Long
Dim n As Range

    Set wb = Workbooks("VBA TEST BOOK.xlsm")

    Set newdata = wb.Worksheets("Sheet2").Range("B2:B8")

    Set StartCell = Cells.Find("X")

wb.Worksheets("Sheet1").UsedRange

LastRow = StartCell.SpecialCells(xlCellTypeLastCell).Row

LastColumn = StartCell.SpecialCells(xlCellTypeLastCell).Column

    Set n = wb.Worksheets("Sheet1").Range(StartCell, wb.Worksheets("Sheet1").Cells(LastRow, LastColumn))

n.Activate

ActiveCell.EntireColumn.Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromRightOrAbove

Dim PasteDestination As Range

    Set PasteDestination = Cells.Find("X").Offset(0, -1)

newdata.Copy

PasteDestination.PasteSpecial xlPasteValues

End Sub   
 
Cheers

Runnable接口和Thread类未导入。(Runnable interface and Thread class not imported. Why?)

最满意答案

相关问答

TCP/IP模型是一个________。[2023-05-19]

下列中不属于面向对象的编程语言的是?[2022-05-30]

Excel：需要宏 - 2列数据成为1列“彼此”(Excel: Macro needed - 2 columns of data to become 1 column “every other”)[2023-12-27]

Excel VBA - “复制/粘贴”仅粘贴所选范围的值(Excel VBA - “Copy/Paste” pastes only value of selected range)[2022-11-09]

使用excel宏对特定列的数据求和并将数据传输到sheet2(using excel macro to sum data of specific column and transfer data to sheet2)[2023-12-31]

在我的最后一列之后创建一个粘贴数据列的按钮宏(Make a Button Macro That Pastes a Column of Data After my Last Column)[2023-07-10]

Excel新列宏(Excel new column macro)[2022-09-12]

多列宏(Macro For MULTIPLE Columns)[2021-07-26]

将宏应用于整个列(Applying a macro to an entire column)[2022-04-03]

宏从一个工作表中逐列复制和粘贴到主工作表中，以保持增长的数据(Macro to copy and paste column by column from one sheet into master sheet by header to maintain growing data)[2021-09-09]

相关文章

最新问答