funkmasterflow schrieb:
Hallo,
kannst Du noch mal ein bisschen klarer beschreiben, was Du machen willst?
Du willst aus deinem Projekt eine APK erzeugen und das funktioniert nicht?
Visual Studio wird in dem Fall doch sicherlich eine Fehlermeldung ausspucken. Die ist ein guter Anhaltspunkt zum Googlen bzw. hier posten damit man dir weitere Empfehlungen mit auf den Weg geben kann.
Ich habe ein Programm geschrieben, das wenn man auf dem Button klickt eine exe Datei abspeichern kann, wenn man dann auf diese exe drauf klickt einen Screenshot automatisch erstellt und abspeichert:
If Not IO.Directory.Exists("TB_Speicherpfad.Text" & "\" & "AdF") Then
IO.Directory.CreateDirectory("TB_Speicherpfad.Text" & "\" & "AdF")
End If
TB2_ScreenUhr.Text = System.DateTime.Now
Dim sText As String = TB2_ScreenUhr.Text
sText = sText.Replace(":", "")
sText = sText.Replace(".", "")
sText = sText.Replace(" ", "")
TB2_ScreenUhr.Text = sText
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppPArgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
If Not IO.Directory.Exists("TB_Speicherpfad.Text" & "\" & "AdF") Then
IO.Directory.CreateDirectory("TB_Speicherpfad.Text" & "\" & "AdF")
End If
Dim Pfad As String = "TB_Speicherpfad.Text" & "\" & "AdF" & "\"
screenshot.Save(Pfad & TB2_ScreenUhr.Text & ".jpg")
End Sub
Hier ist der Code vom Button:
SaveFileDialog1.Title = "exe erstellen..."
SaveFileDialog1.Filter = ".exe|exe"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim nl As String = Microsoft.VisualBasic.vbCrLf
Dim c34 As String = Microsoft.VisualBasic.Chr(34)
Using VB_CP As CodeDom.Compiler.CodeDomProvider = _
New Microsoft.VisualBasic.VBCodeProvider()
'Angaben für das Compilieren des Win-Forms-Projekts zusammenstellen
Dim ComParams As New CodeDom.Compiler.CompilerParameters()
With ComParams
.GenerateExecutable = True
'benötigte Projekt-Verweise
.ReferencedAssemblies.Add("System.Windows.Forms.DLL")
.ReferencedAssemblies.Add("System.Drawing.DLL")
'Erstellte Datei
.OutputAssembly = SaveFileDialog1.FileName
.GenerateInMemory = False
.CompilerOptions = "/target:exe"
.MainClass = "xxxform"
End With
'Code-String zum Erstellen eines Projekts, das eine Form öffnet
'(Man könnte den Code auch aus einer VB-Datei laden ... incl. Designer)
Dim code As String = RichTextBox1.Text
'Code-Zeichenfolge Compilieren und EXE erstellen
Dim ComResults As CodeDom.Compiler.CompilerResults = _
VB_CP.CompileAssemblyFromSource(ComParams, code)
'ggf. Compiler-Fehlermeldungen anzeigen
With ComResults
If .Errors.Count > 0 Then
MsgBox("Exe Datei konnte nicht erstellt werden!", MsgBoxStyle.Critical)
Else
MsgBox("Exe Datei ist erfolgreich erstellt worden!", MsgBoxStyle.Information)
End If
End With
Nun möchte ich gerne, das mein Programm anstatt eine exe eine APK Datei erstellt für mein Smartphone.
Dazu muss ich glaube ich erstmal den Code ins Java übersetzen oder?
Ich weiß nicht wie ich das hin bekommen könnte...
