Majestix

Servus leute,

ich hoff mal der Basic berreich ist das richtige Forum. Folgendes Problem:

Ein Excel File mit 29 Spalte( A -> AC ) und 2 bis 9999 Rows (variert). Alle Daten befinden sich auf einem Sheet und es kann vorkommen das manche der Spalten "hide" sind. In dem Sheet befinden sich Daten vom Format Integer, Strings und Date. (die erste row beinhaltet überschriften, keine daten)

Das ganze Sheet soll nun asce sortiert werden, unter berückstigung ALLER spalten ! die excel sort funktion selber bietet nur ein sortierung in einbeziehen 3er Spalten ich brauch aber wie gesagt 29.....

ich habe bereits folgendes macro versucht:

Range("A1:AC9999").Sort 

Key1 :=Range("A2"),  Order1 :=xlAscending, _ 

Key2 :=Range("B2"),  Order2 :=xlAscending, _

Key3 :=Range("C2"),  Order3 :=xlAscending, _

Key4 :=Range("D2"),  Order4 :=xlAscending, _ 

Key5 :=Range("E2"),  Order5 :=xlAscending, _ 

Key6 :=Range("F2"),  Order6 :=xlAscending, _ 

Key7 :=Range("G2"),  Order7 :=xlAscending, _ 

Key8 :=Range("H2"),  Order8 :=xlAscending, _ 

Key9 :=Range("I2"),  Order9 :=xlAscending, _ 

Key10:=Range("J2"),  Order10:=xlAscending, _ 

Key11:=Range("K2"),  Order11:=xlAscending, _ 

Key12:=Range("L2"),  Order12:=xlAscending, _ 

Key13:=Range("M2"),  Order13:=xlAscending, _ 

Key14:=Range("N2"),  Order14:=xlAscending, _ 

Key15:=Range("O2"),  Order15:=xlAscending, _ 

Key16:=Range("P2"),  Order16:=xlAscending, _ 

Key17:=Range("Q2"),  Order17:=xlAscending, _ 

Key18:=Range("R2"),  Order18:=xlAscending, _ 

Key19:=Range("S2"),  Order19:=xlAscending, _ 

Key20:=Range("T2"),  Order20:=xlAscending, _ 

Key21:=Range("U2"),  Order21:=xlAscending, _ 

Key22:=Range("V2"),  Order22:=xlAscending, _ 

Key23:=Range("W2"),  Order23:=xlAscending, _ 

Key24:=Range("X2"),  Order24:=xlAscending, _ 

Key25:=Range("Y2"),  Order25:=xlAscending, _ 

Key26:=Range("Z2"),  Order26:=xlAscending, _ 

Key27:=Range("AA2"), Order27:=xlAscending, _ 

Key28:=Range("AB2"), Order28:=xlAscending, _ 

Key29:=Range("AC2"), Order29:=xlAscending, _ 

Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _

xlTopToBottom, _

DataOption1 :=xlSortNormal, _

DataOption2 :=xlSortNormal, _

DataOption3 :=xlSortNormal, _

DataOption4 :=xlSortNormal, _

DataOption5 :=xlSortNormal, _

DataOption6 :=xlSortNormal, _

DataOption7 :=xlSortNormal, _

DataOption8 :=xlSortNormal, _

DataOption9 :=xlSortNormal, _

DataOption10:=xlSortNormal, _

DataOption11:=xlSortNormal, _

DataOption12:=xlSortNormal, _

DataOption13:=xlSortNormal, _

DataOption14:=xlSortNormal, _

DataOption15:=xlSortNormal, _

DataOption16:=xlSortNormal, _

DataOption17:=xlSortNormal, _

DataOption18:=xlSortNormal, _

DataOption19:=xlSortNormal, _

DataOption20:=xlSortNormal, _

DataOption21:=xlSortNormal, _

DataOption22:=xlSortNormal, _

DataOption23:=xlSortNormal, _

DataOption24:=xlSortNormal, _

DataOption25:=xlSortNormal, _

DataOption26:=xlSortNormal, _

DataOption27:=xlSortNormal, _

DataOption28:=xlSortNormal, _

DataOption29:=xlSortNormal 

hierbei kommt aber die Fehlermeldung:

"Too many line continuations"

laut der excel hilfe soll ich das ganze in mehrer functionen splitten .. wobei mir aber noch nicht ganz klar ist wie ich das machen soll, während der sortier algorythmus richtig bleibt.

jemand eine idee ?

danke vorab !

EDIT: problem is behoben war ganz einfach

ich ruf nicht den dialog selber auf sondern nun eine methode innerhalb der klasse die public ist. die hat als erstes den befehl: me.show

und alles geht wunderbar

so einfach, und doch hab ich stunden dran rumgemacht ^^ *fg*

nabend leute,

ich bin auf der suche für eine windows standart form, welches erst aufgerufen wird nachdem die form zu sehen ist. also nach dem load event !

die form soll quasi gezeigt werden und dann erst die funktionen aufgerufen.. wenn ich das load event benutze passiert diese bevor die form gezeigt wird.

bsp: processbar füllen/leeren ..

weiß einer ne lösung ?

hab schon das activation event versucht, mit nem globalen boolean aber irgendwie will das net so richitg.. die form hängt sich dann mehr oder weniger auf...

danke vorab !

hi, ich hab abi gemacht und anschließen eine ausbildung zum fachinformatiker in anwendungsentwicklung. in meinem betrieb war dann eine stelle als vb .net entwickler frei für die ich genommen wurde. (also übername, nach ausbildung)

seit dem programmiere ich vb .net und nix anderes. ob ich mich jetzt fachinformatiker in anwendungsentwicklung oder vb .net entwickler nenne is mir eigentlich sowas von latte ! hauptsache ich hab spaß an dem was ich tue! und wenn dich jemand nach deinem job fragt, und du ihm antwortest: vb .net entwickler wird er damit weniger anfangen können als wenn du programmiere oder fachinformatiker sagst.

aber ob ich nun ein "offizieller/anerkannter" .net entwickler bin weiß nicht, ist mir wie gesagt auch latte weil ich .net seit ende der ausbildung programmiere, egal wat ich bin

man warum geht edit bei mir nie ???

also ich hab nen paar geräte gefunden die im haus durch wende musik und bild 30m weit übertragen können ! kostet ca. 40euro.

damit wäre es möglich ohne kabel geziehe die musik ins wohnzimmer zubringen wie bild auf den toucscreen und auch auf den fernseh im wohnzimmer.

jetzt müsste ich nur noch wissen ob ich den toucscreen einfach an den pc anschließen kann und dann eine von mir stink normal geschriebene .net anwendung einfach bedienen kann oder nicht..

hum ne müsste dann noch nen kabel vom schlafzimmer wieder ins wohnzimmer gehen.. touchscreen mit sound ausgang gibbet wohl net oder sind teuer !?!

andere idee wäre mann nimmt eine xbox 360, aber die lässt sich glaub ich nicht oder nur sehr schwer per touchscreen steuern...

(edit wieder net möglich... )

ich hab grad noch bisle was gelesen. also im prinzip müsste es doch so gehen:

- Ich hab Vista (inkl. windows media center)

- einen touchscreen der über VGA und Seriel angeschlossen wird

und wolla kann ich einfach das media center über den screen steuern!? :confused:

d.h hab ne nette "musikanlage" für meine mp3s für ca. 200euro im wohnzimmer hängen und muss nur 2kabel verlegen ?!

hi leute,

ich würde gerne in meine wohnung im wohnzimmer einen touchscreen aufhängen der mit meinem PC im schlafzimmer verbunden ist. Jetzt ist meine Frage, kann man mit .Net Anwendungen für einen Touchscreen schreiben, und wie funktioniert das ?! Einfach eine normale Anwendung und der Touchscreen funktioniert dann einfach nur als Maus ? Wie verbinde ich den Touchscreen mit meinem PC? Ist das Aufwendig?

Ist das einfach nur nen Kabel oder geht das auch Wireless?!

Was für einen Touchscreen sollte man nehmen? Hab gelesen es gibt verschiedene, so ca. 400euro aufwärts..

Wenn das auch irgendwie Wirless geht, könnte man sich einfach so nen ding ins Wohnzimmer an die Wand knallen, und einfach z.b darüber Winamp steuern und Musik abzuspielen...

Ich hab bereits gegoogelt und hier im Forum gesucht. Aber nix gefunden was genau auf die Fragen eingeht..

danke im voraus !

property = eigenschaft

  Private mBEISPIEL As DATENTYP

    Public Property BEISPIEL() As DATENTYP

        Get

            Return mBEISPIEL

        End Get

        Set(ByVal Value As DATENTYP)

            mBEISPIEL = Value

        End Set

    End Property ' BEISPIEL

meiner meinung nach, wird dies genutzt um auf daten andere klassen zuzugreifen. du kannst z.b aus der klasse 2 mit dem befehel klasse1.BEISPIEL() auf die Get und Set der Property zu greifen welche die den Wert vor mBEISPIEL zurück geben lassen oder ihn setzen.

Quasi den gleiche effekt hättest du wenn du eine globale variable public deklarierst. nur hast du dann keine getter und setter + vorgeben datentyp

Problem behoben !

e.NewValue = CheckState.Unchecked

war die lösung

hi leute, ich breuchte mal wieder hilfe.

ich habe eine CheckListBox mit ca. 40Items drinnen. Ganz oben in der ListBox gibt es den Eintrag "ALL" . Wenn dieser makiert wird, sollen alle anderen Items nicht gechecked sein. Ebenso soll wenn alle Items ausgewählt werden das All automatisch gechecked werden, und somit alle anderen unchecked...

Das ganze Funktioniert mit der Maus wunderbar, doch sobald man die Items mit der Leertaste auswählt klappt es nicht mehr. Das letzte Item was mit der leetaste angechecked wurde bleibt gechecked und ebenso ist All gechecked. Aus irgendeinem Grund wird das letzte angewählte Item nicht in die Liste der Gechecketen Items aufgenommen, um es dann zu unchecken ...

hab schon was im Inet gefunden, was mir aber irgendwie nicht hilft...

Suche Möglichkeit - .NET Archiv @ tutorials.de: Forum, Tutorial, Anleitung, Schulung & Hilfe

danke vorab !

Hier eine kleine Verdeutlichung was nicht funktioniert.. eigentlich sollte nur All selektiert sein..

weiß mitlerweile einer was anders ?

ich mein gibt ja auch proggyz die bei 32bit so ne "GUI" haben..

hi leute,

ich würde gern in .NET so ne sidebar ersellen, die quasi am rechten bildschrimrand minimiert wird und erst wieder zum vorschein kommt, wenn man auf den "Reiter" geht der als einziges noch zusehen ist....

quasi sowat wie in visual studio die toolbox ist....

jmd. sowas schonma gemacht oder nen paar links ?

Im GUI Designer musst du das Control

System.Windows.Forms.NotifyIcon

einfügen.

Hier ein Paar events dazu:

Wenn du es minimierst das es nicht mehr angezeigt wird:

Private Sub PROGRAMM_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        If Me.WindowState = FormWindowState.Minimized Then

            Me.Hide()

        End If

    End Sub

Wenn du unten auf das Tray icon klickst das es wieder maximiert wird:

Private Sub PROGRAMM_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Zeiterfassung.Click

        Me.WindowState = FormWindowState.Maximized

        Me.Show()

    End Sub

Wenn du mit der Maus drüber gehst, das ein Text über dem Tray angezeigt wird:

Private Sub PROGRAMM_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Zeiterfassung.MouseMove

        PROGRAMM.Text = "BLA BLA TEXT!"

    End Sub

ikea

ein arbeitskollege von mir hat mit seiner fachhochschulreife an der Uni studiert. er meinte es sind alles studiengänge möglich auf dennen kein nummerusklausus liegt...

hi, also das passt jetzt nicht 100%ig zu deiner frage. aber wir haben ähnliche probleme mit VS 2005 und ClearCase (SourceControl) .

Hier arbeitet VS2005 nicht richtig mit "älteren" ClearCase Versionen die unter VS2003 noch einwandfrei gingen. Gibt verschiedene Patches usw. dazu aber auch erst ab bestimmten Verisonen. Vielleicht habt ihr auch das Problem das eurer Source Control version einfach zu alt ist...

ne select anweisung wäre auch net schlecht falls du die benutzt ^^

hi, also ich hab das in VS 2003. es war sogar standartmässig eingestellt. kann dir also nicht sagen ob es dafür nen punkt in den optionen gibt.

bei mir wird angezeigt wenn ich etwas falsch eingebe, mich verschreibe etc. und die intelligence bietet dir auch verfügbare methoden usw.. an .

am besten kuggste einfach mal in den options ob du es nicht irgendwo ausgeschaltet hast..

hm, ich bin mir da jetzt nicht so sicher, weil ich nicht soviel ahnung von asp habe aber ich finde dein xml sieht leicht komisch aus !

müsste es nicht eher so sein?

<menu>

<button>~/gfx/new.png</button>

<bezeichnung_de>Löschen</bezeichnung_de>

<bezeichnung_en>Delete</bezeichnung_en>

</menu>

und dann würde ich einfach den eintrag unter button auslesen und als bild für den button setzen..´

btw: sicher das, dass ~ bei /gfx/new.png dazu muss?

aber wie gesagt, das is nur ne mutzmaßung

hm ich hab dem letzt eine sql abfrage nur mit odbc realisiert .. ganz ohne ado.net und es ging einwandfrei. performence probleme hat ich dabei ebenfalls keine...

 Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _

            "SERVER=XXXXXXXXXX;" & _

            "DATABASE=XXXXXXXXXX;" & _

            "UID=XXXXXXXXXX;" & _

            "PASSWORD=XXXXXXXXXX;" & _

            "OPTION=3;"

            Dim MyConnection As New OdbcConnection(MyConString)

            MyConnection.Open()

            Dim MyCommand As New OdbcCommand

            MyCommand.Connection = MyConnection

            MyCommand.ExecuteNonQuery()

        MyConnection.Close()

        Catch ex As System.Data.Odbc.OdbcException

            MessageBox.Show(ex.ToString)

        End Try

hi, ich kann das leider nicht ändern da es bereits eine fertige applikation ist in dem die labels bestehen bleiben sollen.

- weiß einer wie ich ein label dazu bekomm, das der txt wie in einem textfeld makierbar und kopierbar ist ?

- ich hab auf zwei labeln das selbe context menü. wie bekomm ich raus auf welchem label das context menü aufgerufen worden ist ?

sorry für die doppel post.. aber ich kann nicht editieren..

hier noch das event damit er bei strg+c im listview reinspringt:

Private Sub lvwCsmId_CopyToClipboard(ByVal sender As System.Object, ByVal e As Windows.Forms.KeyEventArgs) Handles lvwCsmId.KeyUp


If e.Control AndAlso e.KeyValue = 67 Then

.

.

.

.


end if

e.KeyValue = 67 entspricht der Taste "C"

und e.Control liefert True zurück wenn STRG gedrückt ist..

hi, ich hab bereits eine "erste" lösung gefunden..

Dim tLoop As Integer, mLoop As Integer, toClip As String, tmpSel As String

        For tLoop = 0 To lvwCsmId.Items.Count - 1

            If lvwCsmId.Items(tLoop).Selected Then

                tmpSel = lvwCsmId.Items(tLoop).Text

                For mLoop = 1 To lvwCsmId.Columns.Count - 1

                    tmpSel = tmpSel + " " + lvwCsmId.Items(tLoop).SubItems(mLoop).Text

                Next mLoop

                toClip = toClip +  tmpSel + vbNewLine

            End If

        Next tLoop

        Clipboard.SetDataObject(toClip)